🚀 go-pugleaf

Hello.

I have this code that I have written for retrieving a graphic from the
database.

//Connected to database
TADOQuery *Query = new TADOQuery(0);
TADOBlobStream *Stream;
Query->SQL->Add("SELECT Image FROM tbImage WHERE ImgID = 31");
Query->Connection = ADOConnection;
Query->CursorType = ctStatic;
Query->CacheSize = 10000;
Query->CursorLocation = clUseClient;
Query->LockType = ltReadOnly;
Query->Open();
if(Query->RecordCount > 0)
  {
  Query->First();
  TADOBlobStream((TBlobField*)Query->Fields->Fields[0],bmRead);
  Stream->Position = 0;
  //Work with graphic
  delete Stream;
   }
delete Query;
//DisConnect database

The database is Access using the 2002 format.

I have this code work ok in one project, but when I copy and pasted it
into another project it does not work.  

Here is the wierd part.  In the project when the code works, if you
look at the Stream->Size it is equal to 541881.  In the project where
it does not work if you look at the same size it is alway equal to 4.

Also if I load borlands service pack 4 the code in the application
that did work, quits working, it now only returns a Stream->Size = 4.


Can anyone tell me what I am doing wrong, and how to fix it please.

Thank You Very Much.
Michael Crapo