I/O ERROR 103 |
尚未結案
|
totoro
一般會員 發表:6 回覆:3 積分:1 註冊:2005-05-27 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
我用 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 (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
totoro
一般會員 發表:6 回覆:3 積分:1 註冊:2005-05-27 發送簡訊給我 |
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
這邊或許有你想要的解答
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.
------
額有朝天骨,眼中有靈光
編輯記錄
小傑克 重新編輯於 2009-03-16 14:24:47, 註解 無‧
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
可能是
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 (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
totoro
一般會員 發表:6 回覆:3 積分:1 註冊:2005-05-27 發送簡訊給我 |
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 其他原因的話就要請說清楚情況. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |