delphi實現(xiàn)保存和讀取圖片的方法
更新時間：2014年09月19日 11:33:09 投稿：shichen2014
這篇文章主要介紹了delphi實現(xiàn)保存和讀取圖片的方法,主要包括了顯示圖片、保存圖片和讀取圖片的實現(xiàn)方法,是非常實用的技巧,需要的朋友可以參考下
本文實例講述了delphi實現(xiàn)保存和讀取圖片的方法，是非常實用的技巧。分享給大家供大家參考。具體實現(xiàn)方法如下：
首先引用jpeg
1.顯示圖片：
if OpenPictureDialog.Execute then begin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text:=OpenPictureDialog.FileName; end;
2.保存圖片：
var
Stream: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.讀取圖片：
var
Stream:TMemoryStream;
Jpg:TjpegImage;
if fieldbyname('IsSavePicture').Value='1' then
begin
Stream:=TMemoryStream.Create ;
Jpg:=TjpegImage.Create ;
TBlobField(FieldByName('picture')).SaveToStream(Stream); // 顯示的轉換為BlobField并保存到內(nèi)存流
Stream.Position :=0;
jpg.LoadFromStream(Stream); // 加載圖片
img1.Picture.Assign(Jpg);
Stream.Free;
Jpg.Free;
end
else
begin
img1.Picture :=nil;
相信本文所述對大家的Delphi程序設計有一定的借鑒價值。
相關文章
這篇文章主要介紹了Delphi常用關鍵字用法,包括了各個常用的關鍵字及其詳細用法,需要的朋友可以參考下2014-07-07
這篇文章主要為大家詳細介紹了Delphi菜單組件TMainMenu的使用方法，具有一定的參考價值，感興趣的小伙伴們可以參考一下2017-11-11
這篇文章主要介紹了Delphi實現(xiàn)截屏存盤的方法,涉及Delphi圖片操作的相關技巧,需要的朋友可以參考下2015-05-05
這篇文章主要介紹了Delphi之Pascal語言中的關鍵字及保留字匯總,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫四邊形的方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi實現(xiàn)毫秒級別的倒計時實例代碼,需要的朋友可以參考下2014-07-07
本文通過實例代碼給大家介紹ListView 百分比進度條，本文使用的是delphi語言實現(xiàn)的，代碼比較簡單實用，希望的朋友參考下2016-02-02
Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解
CountDownLatch和CyclicBarrier是Java并發(fā)包提供的兩個非常易用的線程同步工具類,本文主要介紹了Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解,具有一定的參考價值,感興趣的可以了解一下2023-11-11
這篇文章主要介紹了Delphi編程常用快捷鍵,對于提高Delphi編程的效率很有幫助,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi7中Listview的常用功能,需要的朋友可以參考下2014-07-07