delphi实现保存和读取图片的方法

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

本文实例讲述了delphi实现保存和读取图片的方法，是非常实用的技巧。分享给大家供大家参考。具体实现方法如下：

首先引用jpeg

1.显示图片：

?

1 2 3 4 5

if  OpenPictureDialog . Execute then begin     img1 . Picture . LoadFromFile(OpenPictureDialog . FileName);     btnPicture . Text:=OpenPictureDialog . FileName; end ;

2.保存图片：

?

1 2 3 4 5 6 7 8

var Stream:TMemoryStream; Stream := TMemoryStream . Create; // 创建内存流 // 将图片保存到内存流中 img1 . Picture . Graphic . SaveToStream(Stream); ParamByName( 'picture' ).LoadFromStream(Stream,ftBlob); ParamByName( 'IsSavePicture' ).Value:= '1' ; Stream . Free;  //用完了马上Free掉

3.读取图片：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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 ;