本文實例講述了delphi實現(xiàn)保存和讀取圖片的方法，是非常實用的技巧。分享給大家供大家參考。具體實現(xiàn)方法如下：
首先引用jpeg
1.顯示圖片：
if OpenPictureDialog.Execute thenbegin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text:=OpenPictureDialog.FileName;end;
2.保存圖片：
varStream:TMemoryStream;Stream := TMemoryStream.Create; // 創(chuàng)建內(nèi)存流// 將圖片保存到內(nèi)存流中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(FieldByName('picture')).SaveToStream(Stream); // 顯示的轉(zhuǎn)換為BlobField并保存到內(nèi)存流 Stream.Position :=0; jpg.LoadFromStream(Stream); // 加載圖片 img1.Picture.Assign(Jpg); Stream.Free; Jpg.Free;endelsebegin img1.Picture :=nil;相信本文所述對大家的Delphi程序設(shè)計有一定的借鑒價值。
新聞熱點
疑難解答
圖片精選
