用qReport preview 時出現 I/O Error 103 ( 可以show到report)， 係preview 之前會write the data to txt file。 這問題並不是所有pc都會出的， 究竟有沒有解決方法??
thanks

您好,

我用 D6 及內建的 QREPORT 許久以來都不知道 PREVIEW 會自動存 TXT FILE.
判斷應不是 PREVIEW 的問題,

請檢查一下 QREPORT 中各物件的 O N P R I N T, B E F O R E P R I N T, 或 A F T E R P R I N T 等等
有無下程式碼去寫 TXT 檔的語句.

最好把會出錯的程式碼 POST 上來讓大家協助 DEBUG.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

不是自動儲存 txt file. 而是在preview report 時寫coding 儲存txt file.

最好把會出錯的程式碼 POST 上來讓大家協助 DEBUG
===================引 用 totoro 文 章===================
不是自動儲存 txt file. 而是在preview report 時寫coding 儲存txt file.

------
What do we live for if not to make life less difficult for each other?

這邊或許有你想要的解答

http://www.faqts.com/knowledge_base/view.phtml/aid/24059/fid/175

看來應該跟qreport 沒關,是file i/o 控制的問題

===================引 用 christie 文 章===================
最好把會出錯的程式碼 POST 上來讓大家協助 DEBUG
===================引 用 totoro 文 章===================
不是自動儲存 txt file. 而是在preview report 時寫coding 儲存txt file.

------
額有朝天骨,眼中有靈光

編輯記錄

可能是

1. 您要寫檔的目的 FOLDER 不存在,
或是
2. 您要寫檔的目的檔案已存在, 寫檔的程式碼沒有指定 OVERWRITE
或是
3. 使用者對該檔或該 FOLDER 沒有權限
或是
其他, 我臨時沒想到的...

我猜1. 的機率很大, 如果是, 請在 SAVE 前加
if not DirectoryExists('c:\test') then begin
if not CreateDir('C:\test') then begin
raise Exception.Create('Cannot create c:\test');
end;
end;
當然, 您要改成您要存的FOLDER名, 而不是 C:\TEST
其他原因的話就要請說清楚情況.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

Thanks!
我攪錯了!
PREVIEW QREPORT, then Click 'Save' button to save as TXT FileFormat (selected file path & name). As the result, the application prompt 'I/O Error 103'. The csv format is OK.


[code delphi]
unit Report1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRExport, QuickRpt, QRCtrls, ExtCtrls;
type
TTZReport = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRSysData1: TQRSysData;
QRLabel5: TQRLabel;
QRBand1: TQRBand;
QRShape1: TQRShape;
QRDBText1: TQRDBText;
QRLabel4: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
PageFooterBand1: TQRBand;
QRSysData2: TQRSysData;
QRSubDetail1: TQRSubDetail;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRTextFilter1: TQRTextFilter;
QRHTMLFilter1: TQRHTMLFilter;
QRCSVFilter1: TQRCSVFilter;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TZReport: TTZReport;
implementation
uses Main1;
{$R *.dfm}
procedure TTZReport.FormCreate(Sender: TObject);
begin
QRLabel5.Caption := main1.CompanyName;
end;
end.
[/code]




===================引 用 st33chen 文 章===================
可能是

1. 您要寫檔的目的 FOLDER 不存在,
或是
2. 您要寫檔的目的檔案已存在, 寫檔的程式碼沒有指定 OVERWRITE
或是
3. 使用者對該檔或該 FOLDER 沒有權限
或是
其他, 我臨時沒想到的...

我猜1. 的機率很大, 如果是, 請在 SAVE 前加
if not DirectoryExists('c:\test') then begin
if not CreateDir('C:\test') then begin
raise Exception.Create('Cannot create c:\test');
end;
end;
當然, 您要改成您要存的FOLDER名, 而不是 C:\TEST
其他原因的話就要請說清楚情況.

編輯記錄