IBO和Firebird通过Params保存到Blob Field

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 - ＆gt; http://source.ibobjects.com/contributed/IBO_JPEGdemo.zip以及下面项目的描述：

  

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