delphi BlockRead和BlockWrite读写文件

本文整理自网络，侵删。

 
var   
 FromF, ToF: file;   
 NumRead, NumWritten: Integer;   
 Buf: array[1..2048] of Char;   
begin   
 if OpenDialog1.Execute then 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;  
 

相关阅读 >>

indy10下的tidhttp控件获取源码乱码的解决方法

Delphi 实现生成手机号段

Delphi出现 no mapping for the unicode character exists in the target multi-byte code page 处理方法

行为判断Delphi中窗体最大化与最小化事件

Delphi研究之驱动开发篇（五）--使用后备列表

Delphi 利用sendinput模拟鼠标键盘

Delphi函数定时

Delphi版内存共享

通过崩溃地址找错误行数之Delphi版

Delphi 利用hook技术实现键盘监控

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi BlockRead和BlockWrite读写文件