var
Stream1: TBlobStream;
redTemp1: TStringList;
begin
with dmPathologyReport do
begin
LocatePAReportSheetNo(sqryTempPAReport, iSheetNo);
redText.Lines.Add(sTaitl);
redText.Lines.Add('');
Stream1:= TBlobStream.Create(sqryTempPaReport.FieldByName('RealPaDiag'), bmRead);
redTemp1:= TStringList.Create;
try
redTemp1.LoadFromStream(Stream1);

當Run到LoadFromStream 就會出現BLOB not Opened 請問小弟是哪出錯了呢???
ps: RealPaDiag TEXT IN TABLE

編輯記錄

你英文看不懂喔！我來幫你翻譯一下

BLOB not Opened 就是說 TBlobStream 沒有將檔案開啟

Stream1:= TBlobStream.Create(sqryTempPaReport.FieldByName('RealPaDiag'), bmRead); 這一行，沒有正確完成
可能
1. 檔案未成功開啟
2. 甚至於因為找不到檔案，所以物件完全沒有建立

請確定 Stream1 確實是正確建立，並將檔案開啟 (因為是資料庫，所以請確定查詢成功，該欄位有資料，或不是 NULL 之類的值)

===================引 用 TTS 文 章===================

var
Stream1: TBlobStream;
redTemp1: TStringList;
begin
with dmPathologyReport do
begin
LocatePAReportSheetNo(sqryTempPAReport, iSheetNo);
redText.Lines.Add(sTaitl);
redText.Lines.Add('');
Stream1:= TBlobStream.Create(sqryTempPaReport.FieldByName('RealPaDiag'), bmRead);
redTemp1:= TStringList.Create;
try
redTemp1.LoadFromStream(Stream1);

當Run到LoadFromStream 就會出現BLOB not Opened 請問小弟是哪出錯了呢???
ps: RealPaDiag TEXT IN TABLE

編輯記錄