🚀 go-pugleaf

Need help resolving this please if anyone can lead me in the right
direction. I am trying to resolve this with BCB6 objects as much as possible
but I have not found any examples on the net.

I am trying to load a blob image from a MSSQL database using a TADOQuery
object. The DoQuery is an object I created that encapsulates this TADOQuery
object and gives me access through the DBField method. This is all
functioning and has been tested many times without blobs and is not the
concern here.

The issue is the very last line. I am getting the old Access Violation and
appears the istream object is not working appropriately.

Any words of wisdom would be greatly appreciated.
----------------------------------------------------------------------------
-----
                AnsiString SQL;
                AnsiString MimeType;
                CLSID ClassID;

                // Create the new object entry in the objects table and get
the ID.

                SQL.sprintf("select * from thumbnails where id='%i'",
ObjectID);
                DoQuery(SQL);

                TStream *MemStream =
DBQuery->CreateBlobStream(DBQuery->FieldByName("image_data"), bmRead);
                MemStream->Seek(0, 0);
                TStreamAdapter *TheStream = new
TStreamAdapter(MemStream,soReference);
                IStream *istream = TheStream->operator IStream *();

                DBField("image_data_mimetype", MimeType);

                // Create the class ID object for the stream save.

                GetEncoderCLSID(L"image/png", &ClassID);

                // Load the stream buffer into the image object.

                Image = new Gdiplus::Image(istream, false);

----------------------------------------------------------------------------
-----