因為一個專案,不得不將圖片保存到資料庫中,需要的時候再從資料庫中讀取.初時,以為很簡單,不就是一個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 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.ImAsage2.Pic. ); PicStream.Free;
本人書讀的不多.這博客寫得怪怪的.各位讀者就將就一下.本來是不想寫這博客的.但是看到網站的代碼在D10下都是不可以用的.所以就獻醜了.