Saving a TOleContainer object into Blob-Field

[barnie00]

Hello!

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

Thank you.

[Plash]

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;