var
FileBuf:Array of Byte;//[0..4194304]
procedure TForm1.ReadWriteFile(SrcFile, DescFile: String);
var
MyFile:TMemoryStream;
iLen:Int64;
begin
iLen:=0;
try
MyFile:=TMemoryStream.Create;
MyFile.LoadFromFile(SrcFile);
iLen:=MyFile.Size;
SetLength(FileBuf,iLen);
MyFile.ReadBuffer(FileBuf[0],iLen);
finally
FreeAndNil(MyFile);
end;
try
MyFile:=TMemoryStream.Create;
MyFile.Seek(0,soFromBeginning);
MyFile.WriteBuffer(FileBuf[0],iLen);
MyFile.SaveToFile(DescFile);
finally
FreeAndNil(MyFile);
end;
end;

本文介绍了一个使用 Delphi 实现的文件读写过程。通过 TMemoryStream 类创建内存流,并利用 LoadFromFile 和 SaveToFile 方法完成从源文件到目标文件的数据复制。此过程包括设置缓冲区大小以匹配文件大小,并确保正确释放资源。
1272

被折叠的 条评论
为什么被折叠?



