delphi - IBO と Firebird は、パラメータによって Blob フィールドに保存します

Question

パラメータでTImageからblobフィールドに画像を保存したい。ネットでいろいろ調べたのですがわかりません。

私は試してみます: params[1].LoadFromFile(PicPath)。動作しますが、TImage からストリーミングしたいだけです。IBO ソースから変更する必要がありますか?

procedure TIB_ColumnBlob.LoadFromFile( const AFileName: string );
var
  tmpStream: TStream;
begin
  tmpStream := TFileStream.Create( AFileName, fmOpenRead );
  try
    LoadFromStream( tmpStream );
  finally
    tmpStream.Free;
  end;
end;

ありがとう。