这篇文章主要介绍了delphi实现保存和读取图片的方法,主要包括了显示图片、保存图片和读取图片的实现方法,是非常实用的技巧,需要的朋友可以参考下

本文实例讲述了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; 


本文链接：https://blog.csdn.net/zisongjia/article/details/58104792