程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 更多關於編程 >> TImage組件完成保留圖片到Stream

TImage組件完成保留圖片到Stream

編輯:更多關於編程

TImage組件完成保留圖片到Stream。本站提示廣大學習愛好者:(TImage組件完成保留圖片到Stream)文章只能為提供參考,不一定能成為您想要的結果。以下是TImage組件完成保留圖片到Stream正文


由於一個項目,不能不將圖片保留到數據庫中,須要的時刻再從數據庫中讀取.初時,認為很簡略,不就是一個Stream.現實上,也很簡略.度娘一下,代碼也許多,但,都是坑!

看一下TImage的源,Picture.Graphic下有一個loadfromStream和SavetoStream.假如沒有猜錯,那末直接用這兩個函數便可以了.因而,我做了一個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;

但現實上,他失足了.因而我百度了又百度.獲得的成果也是這麼寫的.(我不明確為何網上有那末多有成績的代碼.是版本分歧的緣由麼)

因而我跟蹤了一下他的TPicture.Assign由於假如直接用TPicture.Assign復制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;

本來他在挪用Assign的時刻,會挪用SetGraphic創立TGraphic對象.

所以,假如我還想要用Graphic.loadFromStream這個函數的話,就必需本身手工建創這個TGraphic對象.否則確定是失足的.並且這TGraphic是必需依據分歧的圖片格局而挪用分歧的ClassType創立.顯示費事了些.而我用一個TJPEGImage的對象,挪用他的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;

自己書讀的不多.這博客寫得怪怪的.列位讀者就遷就一下.原來是不想寫這博客的.然則看到網站的代碼在D10下都是弗成以用的.所以就獻丑了.

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved