delphi實(shí)現(xiàn)保存和讀取圖片的方法
更新時(shí)間：2014年09月19日 11:33:09 投稿：shichen2014
這篇文章主要介紹了delphi實(shí)現(xiàn)保存和讀取圖片的方法,主要包括了顯示圖片、保存圖片和讀取圖片的實(shí)現(xiàn)方法,是非常實(shí)用的技巧,需要的朋友可以參考下
本文實(shí)例講述了delphi實(shí)現(xiàn)保存和讀取圖片的方法，是非常實(shí)用的技巧。分享給大家供大家參考。具體實(shí)現(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); // 顯示的轉(zhuǎn)換為BlobField并保存到內(nèi)存流
Stream.Position :=0;
jpg.LoadFromStream(Stream); // 加載圖片
img1.Picture.Assign(Jpg);
Stream.Free;
Jpg.Free;
end
else
begin
img1.Picture :=nil;
相信本文所述對(duì)大家的Delphi程序設(shè)計(jì)有一定的借鑒價(jià)值。
相關(guān)文章
delphi xe 可用的MD5算法，需要的朋友可以參考一下2013-04-04
wordpress主題支持自定義菜單及修改css樣式實(shí)現(xiàn)方法
使用wordpress過程中會(huì)遇到主題支持自定義菜單以及修改css樣式問題，本文將介紹詳細(xì)解決方法，需要朋友可以參考下2012-12-12
這篇文章主要介紹了Delphi控件ListView的屬性及使用方法詳解,對(duì)于Delphi控件ListView做一復(fù)習(xí)總結(jié),需要的朋友可以參考下2014-07-07
今天小編就為大家分享一篇完美解決Indy 編譯提示版本不一致的問題，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2020-02-02
Delphi遠(yuǎn)程連接Mysql的實(shí)現(xiàn)方法
這篇文章主要介紹了Delphi遠(yuǎn)程連接Mysql的實(shí)現(xiàn)方法,需要的朋友可以參考下2014-09-09
在Delphi中沒有直接正弦曲線的函數(shù)。但是在科學(xué)研究中，正弦曲線的應(yīng)用是非常廣泛的，本實(shí)例介紹如何繪制正弦曲線。2008-03-03
為什么繼續(xù)選擇DELPHI(即將逝去的Delphi前景在何方)
已經(jīng)鉆DELPHI很深了，當(dāng)然現(xiàn)在DELPHI是過了最輝煌的時(shí)代。但為什么要繼續(xù)下去，而不轉(zhuǎn)向其它的?這是不是死腦筋2018-02-02
Delphi 中內(nèi)存映射對(duì)于大文件的使用
這篇文章主要介紹了Delphi 中內(nèi)存映射對(duì)于大文件的使用的相關(guān)資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
這篇文章主要介紹了delphi字符串分隔函數(shù)用法,通過自定義函數(shù)SeparateTerms2實(shí)現(xiàn)將字符串分割后存入字符串列表的功能,具有一定的實(shí)用價(jià)值,需要的朋友可以參考下2014-12-12
Delphi實(shí)現(xiàn)碰撞球體完整實(shí)例代碼
這篇文章主要介紹了Delphi實(shí)現(xiàn)碰撞球體完整實(shí)例代碼,通過該實(shí)例,讀者可以完整的了解一個(gè)Delphi項(xiàng)目的創(chuàng)建過程,加深對(duì)Delphi運(yùn)行原理的了解,需要的朋友可以參考下2014-07-07