之所以提出這個問題是最近我想在網路上傳送一個粉大的檔案，如500MB 我的直接的想法就是將檔案切割許多的小檔案傳過去在組起來，因此我想問的是一個500mb的檔案，是否能只讀取某一段位置到記憶體中呢，如一次只讀1MB到記憶體。這種idea在實作上是可行的嗎?謝謝?

引言: 之所以提出這個問題是最近我想在網路上傳送一個粉大的檔案，如500MB 我的直接的想法就是將檔案切割許多的小檔案傳過去在組起來，因此我想問的是一個500mb的檔案，是否能只讀取某一段位置到記憶體中呢，如一次只讀1MB到記憶體。這種idea在實作上是可行的嗎?謝謝?

BlockRead可以做到，這是你要的嗎？

//BlockRead基本語法 procedure BlockRead ( var FileHandle : File; var Buffer; RecordCount : Integer {; var RecordsRead : Integer} ) ; 發表人 - qoo1234 於 2003/05/09 18:50:10

{這是使用記憶體區塊讀寫方式.} procedure FileCopy(const FromFile, ToFile: string); var FromF, ToF: file; NumRead, NumWritten: Word; Buf: array[1..2048] of Char; begin AssignFile(FromF, FromFile); Reset(FromF, 1); { Record size = 1 } AssignFile(ToF, ToFile); { Open output file } Rewrite(ToF, 1); { Record size = 1 } repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or (NumWritten <> NumRead); CloseFile(FromF); CloseFile(ToF); end; 發表是最好的記憶! 發表人 - qoo1234 於 2003/05/09 18:49:03 發表人 - qoo1234 於 2003/05/09 23:51:54

建議你使用 TFileStream 來做… var fs: TStream; buff: array [0..65535] of Byte; // buffer begin fs := TFileStream.Create(filename, fmOpenRead); try while fs.Position < fs.Size do begin fs.Read(buff, SizeOf(buff)); // you can send buff end; finally fs.Free; end; end;

{這是使用 File stream的程序.} Procedure FileCopy( Const sourcefilename, targetfilename: String ); Var S, T: TFileStream; Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate ); try T.CopyFrom(S, S.Size ) ; finally T.Free; end; finally S.Free; end; End; 發表是最好的記憶!

在這邊要謝謝所有回覆的人，其實每個人都想給分的，實在是站長太小氣只能給一個，呵呵呵，謝謝大家啦。

對了，我後來才看到solnone 大大的那段回覆，哈哈。真怪，之前竟然沒看到，發現蠻符合我的需求的，這邊要特別說聲謝謝。