Thanks Jason for your quick response as always. I already converted to the
following code with your TIB_BlobStream class and it works great!!!!! Heres
the Code!!!


// Load the Picture from the Database
void __fastcall TForm1::LoadClientPicture(TImage *ClientPicture)
{
TJPEGImage *Jpg = new TJPEGImage();
TIB_BlobStream *S;

S =
Query_ClientInformation->CreateBlobStream(Query_ClientInformation->FieldByNa
me("PICTURE"), bsmRead);
try
{
if (S->Size > 0)
{
Jpg->LoadFromStream(S);
ClientPicture->Picture->Assign(Jpg);
}
else
ClientPicture->Picture->LoadFromFile("C:\\Pictures\\BLANKPICTURE.JPG");
}
__finally
{
delete Jpg;
delete S;
}
}

Chris Hulsey
Visible Changes, Inc.
chulsey@...