🚀 go-pugleaf

A different way to do it:

To retrieve:

   TBlobField* bf = dynamic_cast<TBlobField
*>(Query1->FieldByName("BLOBFIELD"));
   TADOBlobStream* bl = new TADOBlobStream(bf, bmRead);
   try
   {
      bl->SaveToFile("bitmap.bmp");
   }
   __finally
   {
      delete bl;
   }

..and to insert:

   Query1->Edit();
   TBlobField* bf = dynamic_cast<TBlobField
*>(Query1->FieldByName("BLOBFIELD"));
   TADOBlobStream* bl = new TADOBlobStream(bf, bmWrite);
   try
   {
      bl->LoadFromFile("bitmap.bmp");
   }
   __finally
   {
      delete bl;
      Query1->Post();
   }

Or something like that!

HTH

--
Nigel Jones, FASL
____________________________________________________________
"The views of the author may not necessarily reflect those of the company."

"Arnie Mauer" <amauer@vrms.com> wrote in message news:3bf1308a_1@dnews...
> Note: I use the OraOLEDB.Oracle OLEDB provider, not ODBC.
>
> There might be better ways, but this is how I do it:
>
> // qry is a TADOQuery *
>
>    qry->SQL->Add( "INSERT INTO MyTable (MyBlob) VALUES (:blob)" );
>    TMemoryStream *MS = new TMemoryStream;
>    MS->Write(  MyBlobBuffer, sizeof( MyBlobBuffer )  );
>    MS->Seek( 0, soFromBeginning );
>    qry->Parameters->Items[0]->LoadFromStream( MS, ftBlob );
>    delete MS;
>    qry->ExecSQL();
>
> To get it back:
>
>     qry->SQL->Add( "SELECT MyBlob FROM MyTable WHERE ..." );
>     qry->Open();
>    TBlobStream *pBlob = (TBlobStream *)
> ry->CreateBlobStream( qry->FieldByName("MyBlob"),
>               Db::bmRead );
>    pBlob->Position = 0;
>    pBlob->Read( (void *) MyBlobBuffer, sizeof( MyBlobBuffer )  );
>    delete pBlob;
>
> Hope it helps.
>
> - Arnie
>
>
> "Martina Petrovicova" <martina@microstep-mis.com> wrote in message
> news:3bf0d69b_1@dnews...
> > Can anybody help me how to insert jpeg images into Oracle Database in
the
> > filed , which type is BLOB?
> >
> > Thanks,
> > Martina.
> >
> >
>
>