Delphi中实现文件拷贝的三种方法

原创 2001年07月17日 09:18:00
1.调用API函数
procedure CopyFile(FromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,FromFileName); //指定源文件名
AssignFile(f2,ToFileName); //指定目标文件名
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0
Then
Raise EinoutError.creat('文件复制错误')
Finally
CloseFile(f2); //关闭 f2
End;
Finally
Until length(sLine)<=0;
End;
End;

2.文件流
procedure copyfile;
var f1,f2: tfilestream ;
begin
f1:=Tfilestream.Create(sourcefilename,fmopenread);
try
f2:=Tfilestream.Create(targetfilename,fmopenwrite or fmcreate);
try
f2.CopyFrom(f1,f1.size);
finally
f2.Free;
end;
finally
f1.Free;
end;
end;

3.利用内存块读写buffer实现
Procudure FileCopy(const Fromfile,Tofile:string);
Var
F1,F2:file;
NumRead,Numwritten:word;
Buf:array [1..2048] of char;
Begin
AssignFile(F1,Fromfile);
Reset(F1,1);
AssignFile(F2,Tofile);
Rewrite(F2,1);
Repeat
BlockRead(F1,buf,sizeof(buf),NumRead);
BlockWrite(F2,buf,Numread,NumWritten);
Until (NumRead=0) or (NumWritten<>NumRead);
CloseFile(F1);
CloseFile(F2);
End;

delphi CopyFile的基础用法

delphi-CopyFile的简单用法。
  • zhouky1993
  • zhouky1993
  • 2017年03月02日 18:09
  • 2113

Delphi 文件的操作:重命名、复制、移动、删除(制作一个信息上传控件)

Delphi 文件的操作:重命名、复制、移动、删除(制作一个信息上传控件) 第一种方法: RenameFile('Oldname', 'Newname'); CopyFile(PChar('Ol...
  • xiongmao000738
  • xiongmao000738
  • 2011年09月26日 10:48
  • 15910

Delphi中实现文件拷贝的三种方法 (收藏)

1.利用Windows API:CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL proced...
  • chinmusam
  • chinmusam
  • 2010年12月19日 02:58
  • 1097

delphi 拷贝网络共享文件 代码

  procedure TForm1.Button4Click(Sender: TObject);var  NetSource : TNetResource;  Errinfo:longint;beg...
  • happypolo
  • happypolo
  • 2008年12月22日 09:29
  • 2136

delphi中如何实现文件的拷贝?

{文件流方式.}    Procedure FileCopy( Const sourcefilename, targetfilename: String );    Var    S, T: T...
  • zisongjia
  • zisongjia
  • 2017年03月30日 15:49
  • 674

用CopyFile复制文件

BOOL CopyFile(LPCTSTR lpExistingFileName,LPCTSTR lpNewFileName,BOOL bFailIfExists ); 说明     Long...
  • mail_cm
  • mail_cm
  • 2012年04月05日 11:21
  • 4140

CopyFile文件的使用

首先是CopyFile的文件原型: BOOL CopyFile(   LPCTSTRlpExistingFileName,  // pointer to name of anexisting ...
  • stf1065716904
  • stf1065716904
  • 2017年06月23日 20:52
  • 174

Delphi7文件操作常用函数二

1.ForceDirectories、GetCurrentDir、GetDir、SetCurrentDir ForceDirectories function ForceDirectories(D...
  • kimifdw
  • kimifdw
  • 2013年02月22日 11:15
  • 2455

Delphi中实现文件拷贝的三种方法

1.调用API函数procedure CopyFile(FromFileName,ToFileName:string);varf1,f2:file;BeginAssignFile(f1,FromFil...
  • wljcr
  • wljcr
  • 2001年07月17日 09:18
  • 1071

delphi中copy函数

copy 举个例子:str := “123456”;str1 := Copy(Str,2,3);结果就是 str1 等于 234。Copy有3个参数,第一个是你要处理的字符串,第二个是你要截取的...
  • slj_win
  • slj_win
  • 2014年05月14日 22:32
  • 2017
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi中实现文件拷贝的三种方法
举报原因:
原因补充:

(最多只允许输入30个字)