delphi实现保存和读取图片的方法
更新时间：2014年09月19日 11:33:09 投稿：shichen2014
这篇文章主要介绍了delphi实现保存和读取图片的方法,主要包括了显示图片、保存图片和读取图片的实现方法,是非常实用的技巧,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
本文实例讲述了delphi实现保存和读取图片的方法，是非常实用的技巧。分享给大家供大家参考。具体实现方法如下：
首先引用jpeg
1.显示图片：
if OpenPictureDialog.Execute then begin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text:=OpenPictureDialog.FileName; end;
2.保存图片：
var
Stream:TMemoryStream;
Stream := TMemoryStream.Create; // 创建内存流
// 将图片保存到内存流中
img1.Picture.Graphic.SaveToStream(Stream);
ParamByName('picture').LoadFromStream(Stream,ftBlob);
ParamByName('IsSavePicture').Value:='1';
Stream.Free; //用完了马上Free掉
3.读取图片：
var
Stream:TMemoryStream;
Jpg:TjpegImage;
if fieldbyname('IsSavePicture').Value='1' then
begin
Stream:=TMemoryStream.Create ;
Jpg:=TjpegImage.Create ;
TBlobField(FieldByName('picture')).SaveToStream(Stream); // 显示的转换为BlobField并保存到内存流
Stream.Position :=0;
jpg.LoadFromStream(Stream); // 加载图片
img1.Picture.Assign(Jpg);
Stream.Free;
Jpg.Free;
end
else
begin
img1.Picture :=nil;
相信本文所述对大家的Delphi程序设计有一定的借鉴价值。
相关文章
DELPHI7.0 获取硬盘、CPU、网卡序列号的代码，使用DELPHI编程的朋友可以参考下。2011-09-09
这篇文章主要介绍了delphi实现保存和读取图片的方法,主要包括了显示图片、保存图片和读取图片的实现方法,是非常实用的技巧,需要的朋友可以参考下2014-09-09
wordpress主题支持自定义菜单及修改css样式实现方法
使用wordpress过程中会遇到主题支持自定义菜单以及修改css样式问题，本文将介绍详细解决方法，需要朋友可以参考下2012-12-12
这篇文章主要介绍了Delphi 实现软件自动升级的功能的相关资料,希望通过本文能帮助到大家实现这样的功能，需要的朋友可以参考下2017-09-09
这篇文章主要介绍了Delphi实现木马自我拷贝方法,对于研究木马的运行原理很有帮助,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi用TActionList实现下载文件的方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi使用OpenGL2d绘图之画图片Bmp的方法,需要的朋友可以参考下2014-07-07
在MDI窗体类型的编程中，主窗体（fsMDIForm）怎样调用子窗体（fsMDIChild，此子窗体为DLL）。2008-03-03
这篇文章主要介绍了Delphi下OpenGL2d绘图之画线的方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi中对时间操作方法汇总,可以对Delphi的时间操作有一个更加深入的了解,需要的朋友可以参考下2014-07-07
最新评论