Delphi SQL数据库存取图片（利用流）

1、存图片到数据库

var

PicStream: TMemoryStream;

if imgBugPic.Picture.Graphic <> nil then

begin

PicStream := TMemoryStream.Create; // 创建内存流

imgBugPic.Picture.Graphic.SaveToStream(PicStream);

TBlobField(FieldByName('BUGPic')).LoadFromStream(PicStream);

PicStream.Free;

end;

2、从数据库中读取图片并显示

var

PicStream: TMemoryStream;

if not FieldByName('BUGPic').IsNull then

begin

try

PicStream := TMemoryStream.Create;

TBlobField(FieldByName('BUGPic')).SaveToStream(PicStream);

PicStream.Position := 0;

imgBugPic.Picture.Bitmap.LoadFromStream(PicStream);

PicStream.Free;

except

ShowMessage('对不起，图片有问题.');

end;

end;