作者: DANNY TZU 元件: TahDBJpeg v1.02 日期: 05/27/2002 說明: 和 TDBImage 相容, 可顯示及儲存Jpeg到BLOB欄位(未附Source Code) 使用: 將本元件放在 TForm上, 再設相關屬性即可, 本版只有支援 Delphi 5 TahDBJpeg v1.02 由 TCustomControl 繼承下來和 TDBImage 相容, 在此僅列出新增不同部份 property: Text : 外部檔案名稱(DataField不是BLOB型態, 圖檔放於資料庫外部), 唯讀, 要設定值請用欄位相關VCL處理 HostDriver : 外部檔案另一磁碟機編號(例如 D: , E: ...), 配合圖檔放於CD-ROM中搜尋使用 SaveType : 存檔格式(svBMP, svJPEG), 支援存檔格式BMP/JPEG PictureType : 欄位格式(picBMP, picJPEG, picFile, picUnKnow), 唯讀 以下為與JPEG有關設定 CompressionQuality Smoothing Grayscale ProgressiveDisplay ProgressiveEncoding PixelFormat Scale Performance procedure JpegLoadFromFile(const Filename: string); JpegLoadFromStream(Stream: TStream); JpegSaveToFile(const Filename: string); JpegSaveToStream(Stream: TStream); 如果有Bug或需要增加/修改的地方, 請用E-Mail告訴我 clipe@mail.apol.com.tw 修正說明: 05/27/2002 修正 JPEG 格式 在 DBCTRLGRID 中只能顯示一個圖案的問題 06/13/2001 增加 HostDriver 可指定另一磁碟機增加搜尋 06/01/2001 增加 使用JpegLoadFromFile 時, 判斷DataSet是否已經是Edit狀態, 若不是則Edit 05/20/2001 修正 指定 DataField及DataSource 時(二者少一個) 會出現 error (不理會也沒關係) 作者: DEVEN TZU 元件: TahQRDBJpeg v1.00 日期: 06/13/2001 說明: 和 TQRDBImage 相容, 可列印BLOB欄位內儲存的Jpeg及BMP格式或指定的外部檔案, 若存於BLOB內是JPEG需配合TahDBJpeg使用(未附Source Code) 使用: 將本元件放在 TQuickRep上, 再設相關屬性即可, 本版只有支援 Delphi 5 TahQRDBJpeg v1.00 和 TQRDBImage 相容, 在此僅列出新增不同部份 property: Text : 外部檔案名稱(DataField不是BLOB型態, 圖檔放於資料庫外部), 唯讀, 要設定值請用欄位相關VCL處理 HostDriver : 外部檔案另一磁碟機編號(例如 D: , E: ...), 配合圖檔放於CD-ROM中搜尋使用 PictureType : 欄位格式(picBMP, picJPEG, picFile, picUnKnow), 唯讀 以下為與JPEG有關設定 CompressionQuality Smoothing Grayscale ProgressiveDisplay ProgressiveEncoding PixelFormat Scale Performance 修正說明: 09/04/2001 修正和TQuickRep的DataSet不同時, DataField無法選取的錯誤(但手動KeyIn可以使用) 如果有Bug或需要增加/修改的地方, 請用E-Mail告訴我 clipe@mail.apol.com.tw

------
將問題盡快結案也是一種禮貌!

附加檔案：00019322_ahQRDBJpeg.zip