Delphi 用内存块复制文件.rar
Delphi用内存块复制文件,测试时请输入源文件及目标文件的路径。
try
AssignFile(F1,SourceName);
Reset(F1,1);
AssignFile(F2,DestName);
Rewrite(F2,1);
repeat
BlockRead(F1,buf,sizeof(buf),NumRead);
BlockWrite(F2,buf,Numread,NumWritten);
until(NumRead=0)or(NumWrittenNumRead)
用户评论