Hi: MSSQL 2000 ADO Delphi 7 (QuickRep) 請問TQRDBImage元件是否只能讀取BMP型態資料? 因為出現了'Bitmap image is not valid'訊息. 但實際上資料庫中(IMAGE欄位)存的是JPEG型態的圖形(圖檔不會超過100K). 該如果解決呢? 是否在client端讀取資料後先存到Stream(或ClipBoard...) 再改由TQRImage元件顯示? 或有其他方法嗎, 可否提供給我參考? 謝謝! 發表人 - star 於 2003/08/19 16:25:18

參考這篇: http://www.delphiboy.com/cgi-bin/wangyoulaigao/datacontent.php?no=164    或使用 danny 大大的元件:  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19322    --- 歡迎光臨 KTop 研究院--<-<-<@ 發表人 - hagar 於 2003/08/19 16:30:33

引言: 參考這篇: http://www.delphiboy.com/cgi-bin/wangyoulaigao/datacontent.php?no=164 這篇要將jpg轉成bmp存入資料庫,好像較不符我的須求, 我是在印表時用TQRDBImage元件才出現問題?? 在螢幕顯示時沒問題(因為我用的是IWDBImage) 或使用 danny 大大的元件: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19322 因為商業用途的關係, 不好用無source code(或無版權)的外加元件

我按前人提過的方法測試, 但有error, 請各位前輩指正: var Stream1 : TBlobStream; jpeg:TJPEGImage; begin Steam1 := TBlobStream.Create(ADOQuery1GRAPHIC, bmread); try jpeg.LoadFromStream(Stream1); QRImage1.Picture.Assign(jpeg); finally jpg.Free; Stream1.Free; end; end; 在Create Stream時會出現: Invalid class typecast. 題外話: 事實上, 發問問題前, 我大部份會先Search之前的問題, 是否有可參考的資料. 除非我老花眼,不小心漏掉了, 或找不到我想要的答案, 或測不出來, 只好重新整理我的問題再發問. 希望不會浪費各位的時間才好...

Steam1 := TBlobStream.Create(ADOQuery1GRAPHIC, bmread); 改成 Steam1 := TBlobStream.Create(TBlobField(ADOQuery1GRAPHIC), bmread);    --- 歡迎光臨 KTop 研究院--<-<-<@

不行, 還是一樣的錯誤訊息!    而且我發現光是 SELECT GRAPHIC FROM TABLE1 WHERE TTNO = '001' 只有取一筆記錄就已經很久了, 效率實在太慢了. 實在很不願意將圖片存入資料庫, 太太太太太慢了.

如下：（DBImage1: TQRImage;）    procedure Tprint_frm.QuickRep1StartPage(Sender: TCustomQuickRep); var Stream:TMemoryStream; jpgstream: TJpegImage ; begin Stream:=TMemoryStream.Create ; jpgstream:= TJPEGImage.Create; TBlobField(Form1.AdoQuery2.FieldByName('tupian') as TBlobField).SaveToStream(Stream); Stream.Position := 0; jpgstream.LoadFromStream(Stream); DBImage1.Picture.Assign(jpgstream); Stream.Free; jpgstream.free; end; 您可以用上面的方法试验一下，我就是这样做的可以成功！

引言: 如下：（DBImage1: TQRImage;） procedure Tprint_frm.QuickRep1StartPage(Sender: TCustomQuickRep); var Stream:TMemoryStream; jpgstream: TJpegImage ; begin Stream:=TMemoryStream.Create ; jpgstream:= TJPEGImage.Create; TBlobField(Form1.AdoQuery2.FieldByName('tupian') as TBlobField).SaveToStream(Stream); Stream.Position := 0; jpgstream.LoadFromStream(Stream); DBImage1.Picture.Assign(jpgstream); Stream.Free; jpgstream.free; end; 您可以用上面的方法试验一下，我就是这样做的可以成功！

您的方法我之前試過了... 這樣是沒有錯誤出現, 但是QRDBImage1卻是空白的, 不知那裡錯了? 還有為何是寫在OnStarPage中? 而不是寫在DetailBand.BefortPrint呢?

謝謝, 可以了 1.用TQRImage元件, 而不用TQRDBImage 2.TQRImage.Strech設為True 3.sos_admin所提供的程式碼寫在DetailBand.BeforeBand中 如此即可列印了. 再請問一個問題: 如何清除TQRImage的圖形? 我想在BeforePrint前先清除, 但找不到類似clear的功能! 目前我暫時用Enabled的方式來解決! 發表人 - star 於 2003/08/20 15:28:51

DBImage1.Picture.Bitmap := Nil; 發表人 - winifred 於 2003/08/20 17:05:43

唷唷唷 透過這題討論小弟也跟著學到好多唷... 感謝大家的共襄盛舉 There is a raising fire in my heart tonight,growing higher and higher in my soul I want to ride on the silver dove far into the night,till I make you take me on your mighty wing,take me on your mighty wing to cross the sky

如何清除TQRImage的圖形? DBImage1.Picture.Graphic:=nil;