本文整理自网络,侵删。
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 用 getenvironmentvariable 获取常用系统环境变量
python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本
更多相关阅读请进入《Delphi》频道 >>