修改檔案後,要如何傳出去? |
答題得分者是:wzwcn
|
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
|
wzwcn
一般會員 發表:0 回覆:5 積分:6 註冊:2010-06-27 發送簡訊給我 |
|
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
|
wzwcn
一般會員 發表:0 回覆:5 積分:6 註冊:2010-06-27 發送簡訊給我 |
|
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
|
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
小弟去尋找了一下,最後得到的結果是用 TFileStream.Create ,但是出來的檔案都是0KB。
請問一下各位,小弟是哪裡用錯,還是搞錯用法? 以下是自己打的。 [code delphi] procedure TForm1.Button1Click(Sender: TObject); var FStream:TFileStream; begin if OpenDialog1.Execute=True then begin FStream:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead); FStream:=TFileStream.Create('F:\000.txt',fmopenwrite or fmcreate); FStream.Free; end; end; [/code] |
wzwcn
一般會員 發表:0 回覆:5 積分:6 註冊:2010-06-27 發送簡訊給我 |
|
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
FStram.write( Const Buffer , Const Integer ) ;
用這屬性是不是要把緩衝的位置給它?後面的常數整數指的是檔案的大小?FStream.size ? ===================引 用 wzwcn 文 章===================
|
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
小弟成功了!多謝 wzwcn 一直耐心的回答小弟的問題。
以下是最後成功的結果: [code delphi] procedure TForm1.Button1Click(Sender: TObject); var FS1,FS2: TFileStream; MBuffer: TMemoryStream; begin if OpenDialog1.Execute=True then begin FS1:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead); FS2:=TFileStream.Create('C:\Documents and Settings\Administrator\桌面\DW\NEW.txt',fmCreate); try FS2.CopyFrom(FS1,FS1.Seek(0,soFromBeginning)); finally FS1.Free; FS2.Free; end; end; end; [/code]可是還是有一些東西不懂那是什麼,像是 soFromBeginning 這個東西是什麼?Seek是指定檔案內的的範圍嗎? 如果不麻煩的話可以解釋一下給小弟聽嗎?看大家就是這樣用,但是不知為什麼。 |
heart75047
一般會員 發表:9 回覆:13 積分:19 註冊:2010-05-20 發送簡訊給我 |
3、Seek:此方法實現流中讀取指針的移動。函數原形為: Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract; 參數Offset為偏移字節數,參數Origint指出Offset的實際意義,其可能的取值如下: soFromBeginning:Offset為移動後指針距離數據開始的位置。此時Offset必須大於或者等於零。 soFromCurrent:Offset為移動後指針與當前指針的相對位置。 soFromEnd:Offset為移動後指針距離數據結束的位置。此時Offset必須小於或者等於零。該方法返回值為移動後指針的位置。 可以參考http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=21606 ===================引 用 tokiama 文 章=================== 小弟成功了!多謝 wzwcn 一直耐心的回答小弟的問題。 以下是最後成功的結果: [code delphi] procedure TForm1.Button1Click(Sender: TObject); var FS1,FS2: TFileStream; MBuffer: TMemoryStream; begin if OpenDialog1.Execute=True then begin FS1:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead); FS2:=TFileStream.Create('C:\Documents and Settings\Administrator\桌面\DW\NEW.txt',fmCreate); try FS2.CopyFrom(FS1,FS1.Seek(0,soFromBeginning)); finally FS1.Free; FS2.Free; end; end; end; [/code]可是還是有一些東西不懂那是什麼,像是 soFromBeginning 這個東西是什麼?Seek是指定檔案內的的範圍嗎? 如果不麻煩的話可以解釋一下給小弟聽嗎?看大家就是這樣用,但是不知為什麼。 |
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |