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

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi 去掉mdi窗口的滚动条

Delphi打开"我的电脑"等特殊文件夹

Delphi 服务器与客户端的时间同步

Delphi ^ 符号的特殊用法

Delphi incyear、incmonth、incweek、incday、inchour、incminute、incsecond、incmillisecond �c 增时

Delphi d10.x安卓app开发中简单使用原生toast

Delphi 判断端口是否被使用

Delphi 无边框窗体常见问题

Delphi中使用flash控件

Delphi调用百度语音识别服务

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi SQL数据库存取图片（利用流）