使用firebird从delphi中的blob字段加载并保存图像

发布时间：2020-12-15 09:40:40 所属栏目：大数据来源：网络整理

导读：在我的Firebird数据库中,我有一个包含位图的Blob字段.我必须加载并显示在我的表格上的T Image中.随后我将在同一个字段中保存由OpenDialog选择的图像. 解决方法 Procedure LoadBitmapFromBlob(Bitmap: TBitmap; Blob: TBlobField);var ms,ms2: TMemoryStream;

在我的Firebird数据库中,我有一个包含位图的Blob字段.我必须加载并显示在我的表格上的T Image中.随后我将在同一个字段中保存由OpenDialog选择的图像.

解决方法

Procedure LoadBitmapFromBlob(Bitmap: TBitmap; Blob: TBlobField);
var
  ms,ms2: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    Blob.SaveToStream(ms);
    ms.Position := 0;
    Bitmap.LoadFromStream(ms);
  finally
    ms.Free;
  end;
end;

示例用法

procedure TForm4.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    LoadBitmapFromBlob(bmp,TBlobField(Dataset.FieldByName('Image')));
    Image1.Picture.Assign(bmp);
    bmp.SaveToFile(OpenDialog.FileName);
  finally
    bmp.Free;
  end;

end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!