快捷導(dǎo)航

TImage組件實現(xiàn)保存圖片到Stream

更新時間：2016年05月03日 08:54:10 作者：似水@流年

這篇文章主要介紹了TImage組件實現(xiàn)保存圖片到Stream以及從stream中讀取圖片的方法，非常的實用，有需要的小伙伴可以參考下

因為一個項目,不得不將圖片保存到數(shù)據(jù)庫中,需要的時候再從數(shù)據(jù)庫中讀取.初時,以為很簡單,不就是一個Stream.事實上,也很簡單.度娘一下,代碼也很多,但,都是坑!

看一下TImage的源,Picture.Graphic下有一個loadfromStream和SavetoStream.如果沒有猜錯,那么直接用這兩個函數(shù)就可以了.于是,我做了一個demo測試

demo里放了兩個TImage.TImage1放一張圖片,然后用代碼將TImage1的圖片保存到Stream.TImage2再從這個Stream中取出圖片.自然水到渠成.

這就是我的代碼.

 PicStream:=TMemoryStream.Create;
 Self.Image1.Picture.Graphic.SaveToStream(PicStream);
 PicStream.Position:=0;
 Self.Image2.Picture.Graphic.loadFromStream(PicStream);
 PicStream.Free;

但事實上,他出錯了.于是我百度了又百度.得到的結(jié)果也是這么寫的.(我不明白為什么網(wǎng)上有那么多有問題的代碼.是版本不同的原因么)

于是我跟蹤了一下他的TPicture.Assign因為如果直接用TPicture.Assign復(fù)制Timage1是沒有出錯的

procedure TPicture.Assign(Source: TPersistent);
begin
 if Source = nil then
  SetGraphic(nil)
 else if Source is TPicture then
  SetGraphic(TPicture(Source).Graphic)
 else if Source is TGraphic then
  SetGraphic(TGraphic(Source))
 else
  inherited Assign(Source);
end;

原來他在調(diào)用Assign的時候,會調(diào)用SetGraphic創(chuàng)建TGraphic對象.

所以,如果我還想要用Graphic.loadFromStream這個函數(shù)的話,就必須自己手工建創(chuàng)這個TGraphic對象.不然肯定是出錯的.而且這TGraphic是必須根據(jù)不同的圖片格式而調(diào)用不同的ClassType創(chuàng)建.顯示麻煩了些.而我用一個TJPEGImage的對象,調(diào)用他的LoadFromStream是可以直接讀取Stream的,所以就偷懶了一下

 Jpg:=TJPEGImage.Create;
 PicStream:=TMemoryStream.Create;
 Self.Image1.Picture.Graphic.SaveToStream(PicStream);
 PicStream.Position:=0;

 jpg.LoadFromStream(PicStream);
 Self.Image2.Picture.Assign(JPg);
 PicStream.Free;

本人書讀的不多.這博客寫得怪怪的.各位讀者就將就一下.本來是不想寫這博客的.但是看到網(wǎng)站的代碼在D10下都是不可以用的.所以就獻(xiàn)丑了.

您可能感興趣的文章: