assignFile 檔案開啟的問題 |
答題得分者是:cashxin2002
|
hsk6138
初階會員 發表:12 回覆:59 積分:49 註冊:2003-12-11 發送簡訊給我 |
|
l630521
資深會員 發表:15 回覆:349 積分:372 註冊:2003-02-17 發送簡訊給我 |
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
用以下代码:
TBlobField(AdoOAEAttach.FieldByName('attach')).savetofile('C:\WINNT\TEMP\Temp.' sPostFixName); // TBlobField(QryMaster.FieldByName('DocContent')).SaveToFile('temp.doc'); // 呼叫對應的應用程式,將文件開啟 ShellExecute(Application.handle, pchar('OPEN'), pchar('C:\WINNT\TEMP\Temp.' sPostFixName), nil, nil, SW_SHOWNORMAL); AdoOAEAttach.Active := False; |
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 我有一個1.TXT文字檔 用assignFile(F,'C:\1.TXT)去打開再還沒有CLOSE檔案前 用記事本去打開1.TXT時會出現"此檔案已被打開" 請問各位大大assignFile函數是否沒把開啟的檔案分享出來給別人用呢 用甚麼方式才能解決這問題 >>< face="Verdana, Arial, Helvetica"> procedure TForm1.Button1Click(Sender: TObject); var F: TextFile; s:string; begin if FileExists('C:\1.TXT') then AssignFile(f,'C:\1.TXT') else begin showmessage('文件不存在'); exit; end; reset(f); while not eof(f) do begin Readln(f,s); { Read first line of file } end; Edit1.Text := s; // closefile(f); 即使不要这句用記事本照样能打开1.TXT,也没报错 是不是你写法上有什么遗漏,参考看看 ——行径窄处,留一步与人行—— —— |
hsk6138
初階會員 發表:12 回覆:59 積分:49 註冊:2003-12-11 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
Hi, 試試 FileOpen function 是不是可以達到你要的需求, 其 open mode 有以下參數可用:
const fmCreate = $FFFF; fmOpenRead = $0000; fmOpenWrite = $0001; fmOpenReadWrite = $0002; fmShareCompat = $0000 platform; fmShareExclusive = $0010; fmShareDenyWrite = $0020; fmShareDenyRead = $0030 platform; fmShareDenyNone = $0040; |
hsk6138
初階會員 發表:12 回覆:59 積分:49 註冊:2003-12-11 發送簡訊給我 |
|
hsk6138
初階會員 發表:12 回覆:59 積分:49 註冊:2003-12-11 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 我覺得問題應是在您在AssignFile方法的孌數設定上﹐您應是將AssignFile(F, ***)中的F變數設定為TextFile形態吧﹐并且是Rewrite方法來開啟可讀寫的檔案﹐這時﹐在沒有使用CloseFile方法之前﹐再次触發開啟檔案的方法時﹐就會出現I/O Error 32的錯誤信息﹐您可試試將AssignFile(F, ***)中的F變數宣告為File﹐或者依舊使用TextFile形態﹐但使用ReSet方法來開啟檔案﹐應就可以了﹒ 附﹕AssignFile方法變數宣告形態說明
1﹒當檔案變數被宣告為File時﹐當此檔案被AssignFile后﹐可被任何檔案開啟方法重复開啟﹒
2﹒當檔案孌數被宣告為TextFile時﹐當此檔案被AssignFile﹐并使用ReWrite方法開啟后﹐在CloseFile之前﹐不能再次触發開啟檔案動作﹐否則出錯﹕I/O Error 32﹒ 至于您所提到的使用記事本去打開此檔案時出現的"此檔案已被其它程式開啟"的現象﹐我也沒有遇到﹐您可參考一下deity兄的範例﹐是否您的程式碼中有錯誤﹒ FileOpen function範例如下﹕
Var FileHandle : Integer; //此Function的回傳值是一個Integer begin FileHandle := FileOpen('D:\Xin.txt', fmOpenRead); //唯讀方法開啟 if FileHandle > 0 then //正常開啟時﹐回傳值大于0 begin ShowMessage('檔案成功開啟'); FileClose(FileHandle); end else ShowMessage(SysErrorMessage(GetLastError)); end;參考看看﹗ ========================= 大病初愈﹐休養調整中... =========================
------
忻晟 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |