delphi實作保存和讀取圖片的方法

本文實例講述了delphi實作保存和讀取圖片的方法，是非常實用的技巧。分享給大家供大家參考。具體實作方法如下：

首先引用jpeg

1.顯示圖片：

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

2.保存圖片：

 varStream:TMemoryStream;Stream := TMemoryStream.Create; // 建立記憶體流// 將圖片儲存到記憶體流中img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob); ParamByName('IsSavePicture').Value:='1';Stream.Free; //用完了馬上Free掉

3.讀取圖片：

 varStream:TMemoryStream;Jpg:TjpegImage;if fieldbyname('IsSavePicture').Value='1' thenbegin Stream:=TMemoryStream.Create ; Jpg:=TjpegImage.Create ; TBlobField(FielStreamdStreamByName(FpStreamture'). ; //顯示的轉換為BlobField並儲存到記憶體流Stream.Position :=0; jpg.LoadFromStream(Stream); // 載入圖片img1.Picture.Assign(Jpg); Stream.Free; Jpg.Free;endelsebegin img1.Picture : =nil;

相信本文所述對大家的Delphi程式設計有一定的借鏡價值。