delphi存取图片

佚名 6年前 (2019-04-21) 随笔 660人围观抢沙发百度已收录

1、存图片到数据库

var
PicStream: TMemoryStream;

SRE实战互联网时代守护先锋，助力企业售后服务体系运筹帷幄！一键直达领取阿里云限量特价优惠。

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;