本文整理自网络,侵删。
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 2009 之 tcategorypanelgroup[3]: color
Delphi异常处理try except语句和try finally语句用法以及区别
Delphi firemonkey的stylebook皮肤控件的使用
winapi 字符及字符串函数(5): ischaralpha - 是否是个字母
更多相关阅读请进入《Delphi》频道 >>