全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1444
推到 Plurk!
推到 Facebook!

開啟二進位檔,來另存,當檔案太大會出現錯誤訊息?

尚未結案
chingrenn
一般會員


發表:10
回覆:13
積分:4
註冊:2003-03-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-18 14:06:45 IP:211.20.xxx.xxx 未訂閱
開啟二進位檔,來另存,當檔案太大會出現錯誤訊息? "file access denied" 我的檔案為20MB TTF 字型檔 procedure TForm1.Button6Click(Sender: TObject); var FromF, ToF: file; NumRead, NumWritten: Integer; Buf: array[1..2048] of Char; begin if OpenDialog1.Execute then { Display Open dialog box } begin AssignFile(FromF, OpenDialog1.FileName); Reset(FromF, 1); { Record size = 1 } if SaveDialog1.Execute then { Display Save dialog box} begin AssignFile(ToF, SaveDialog1.FileName); { Open output file } Rewrite(ToF, 1); { Record size = 1 } Canvas.TextOut(10, 10, 'Copying ' IntToStr(FileSize(FromF)) ' bytes...'); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or (NumWritten <> NumRead); CloseFile(FromF); CloseFile(ToF); end; end; end;
solnone
中階會員


發表:2
回覆:97
積分:69
註冊:2003-05-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-22 17:18:58 IP:203.66.xxx.xxx 未訂閱
改用 TFileStream 吧 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30200
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-05-20 15:26:39 IP:210.69.xxx.xxx 未訂閱
上面程式小弟測試 22MB 字型檔案不會有問題 ********************* 如果您滿意答案,請結案 *********************
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
系統時間:2024-03-29 19:38:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!