在我的 Firebird 数据库中,我有一个包含位图的 Blob 字段。我必须加载并显示在我的表单上的 TImage 中。随后,我必须将 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;
关于image - 使用 firebird 从 delphi 中的 blob 字段加载和保存图像,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13863169/