delphi - IBO 和 Firebird 通过 Params 保存到 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;

谢谢。

Answer 1

“我在网上搜索过，但我找不到。” - 我不知道该说什么 - http://www.ibobjects.com/ibocontributed.html -> http://source.ibobjects.com/contributed/IBO_JPEGdemo.zip和下面的项目描述：

一个使用 IBO 和基于 TDBImage 的组件 TDBJPGImage 的小型演示项目，展示了如何将图像存储为 JPG 或 BMP blob 并进行动态转换和一些其他有趣的选项。包括使用 Firebird 1.5 gbak、所有者 SYSDBA 的示例数据库 gbak'ed。