Devart Forums

Posted: **Sun 12 Oct 2008 23:29**

Hello!

Ich have a TOleContainer containing a graphic object.
How can I copy the Data into a Firebird blobfield?

Thank you.

Posted: **Mon 13 Oct 2008 07:44**

You can try the following code:

Code: Select all

var
  Stream: TStream;
begin
  IBCQuery.SQL.Text := 'SELECT * FROM IBDAC_BLOB';
  IBCQuery.Open;
  IBCQuery.Edit;
  Stream := IBCQuery.CreateBlobStream(IBCQuery.FieldByName('PIC'), bmWrite);
  try
    OleContainer1.SaveToStream(Stream);
  finally
    Stream.Free;
  end;
  IBCQuery.Post;
end;

Devart Forums

Saving a TOleContainer object into Blob-Field

Saving a TOleContainer object into Blob-Field