因?yàn)橐粋€(gè)項(xiàng)目,不得不將圖片保存到數(shù)據(jù)庫(kù)中,需要的時(shí)候再?gòu)臄?shù)據(jù)庫(kù)中讀取.初時(shí),以為很簡(jiǎn)單,不就是一個(gè)Stream.事實(shí)上,也很簡(jiǎn)單.度娘一下,代碼也很多,但,都是坑!

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

demo里放了兩個(gè)TImage.TImage1放一張圖片,然后用代碼將TImage1的圖片保存到Stream.TImage2再?gòu)倪@個(gè)Stream中取出圖片.自然水到渠成.

這就是我的代碼.

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

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

于是我跟蹤了一下他的TPicture.Assign因?yàn)槿绻苯佑肨Picture.Assign復(fù)制Timage1是沒(méi)有出錯(cuò)的

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;

原來(lái)他在調(diào)用Assign的時(shí)候,會(huì)調(diào)用SetGraphic創(chuàng)建TGraphic對(duì)象.

所以,如果我還想要用Graphic.loadFromStream這個(gè)函數(shù)的話,就必須自己手工建創(chuàng)這個(gè)TGraphic對(duì)象.不然肯定是出錯(cuò)的.而且這TGraphic是必須根據(jù)不同的圖片格式而調(diào)用不同的ClassType創(chuàng)建.顯示麻煩了些.而我用一個(gè)TJPEGImage的對(duì)象,調(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;

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

總結(jié)

以上是生活随笔為你收集整理的TImage保存图片到Stream及从Stream中取图片的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。