資料庫裡放jpeg的欄位是空的話 列印會出現錯誤  錯誤訊息如下圖:     我的程式碼如下: var QuickReport7: TQuickReport7; Stream:TMemoryStream; jpgstream: TJpegImage; implementation uses Unit1; {$R *.DFM} procedure TQuickReport7.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin Stream:=TMemoryStream.Create ; jpgstream:= TJPEGImage.Create; TBlobField(Form1.ADOTable1.FieldByName('img_filedata')as TBlobField).SaveToStream(Stream); Stream.Position := 0; jpgstream.LoadFromStream(Stream); QRImage1.Picture.Assign(jpgstream); Stream.Free; jpgstream.free; end;

麻煩各位了 

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35980

謝謝 日後還請多多指教