Firebird - Zeos - Blob

[blackfin]

Delphi-Quellcode:

FStream := TMemoryStream.Create() ;

qryBlobInsert.Sql.Text := 'SELECT EVENT_PHOTO FROM EVENTS WHERE...' ;
qryBlobInsert.Open();
FStream := qryBlobInsert.CreateBlobStream(FieldByName('EVENT_PHOTO'), bmRead);
qryBlobInsert.Close() ;

FStream.Seek(0,soFromBeginning) ;
Image1.Picture.Bitmap.LoadFromStream(FStream );