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 使用webbrowser控件获取含框架的网页的完整html代码

Delphi twebbrowser流程讲解及如何判断下载网页成功

Delphi 抓屏技巧

Delphi access存储过程是带参数的查询语句

Delphi 用 getenvironmentvariable 获取常用系统环境变量

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

firemonkey下使用stylebook的一些经验

Delphi获取webbrowser中的元素的值

Delphi tstreamwriter快速写入文件

Delphi adoquery查询更改用户

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...