{This way uses a 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;
{This way uses memory blocks for read/write.}
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;
{This one uses LZCopy, which USES LZExpand.}
procedure CopyFile(FromFileName, ToFileName: string);
var
FromFile, ToFile: File;
begin
AssignFile(FromFile, FromFileName); { Assign FromFile to FromFileName }
AssignFile(ToFile, ToFileName); { Assign ToFile to ToFileName }
Reset(FromFile); { Open file for input }
try
Rewrite(ToFile); { Create file for output }
try
{ copy the file an if a negative value is returned }
{ raise an exception }
if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0
then
raise EInOutError.Create('Error using LZCopy')
finally
CloseFile(ToFile); { Close ToFile }
end;
finally
CloseFile(FromFile); { Close FromFile }
end;
end;
分享到:
相关推荐
PB 11.5 文件复制例子源码(需要安装.net环境)
用c语言库函数实现文件复制功能,UNIX程序设计课程的作业
Delphi演示通过文件读写的方式复制文件,本示例是通过读文件、重新写入文件的方式,来模拟出文件复制的功能,并不是使用Delphi中固有的copyFile函数来直接操作文件,有兴趣可参考以下的代码: AssignFile(ToF,...
VC基于MFC、多线程的文件复制对话框实现
易语言U盘文件复制源码,U盘文件复制,文件列表,CopyFile,取路径文件名,取路径扩展名,MsgProc,GetTextAddress,GetLogicalDriveStrings,FindFirstFile,FindNextFile,FindClose,PathFindExtension,PathFindFileName,...
支持占用文件的拷贝,目前用的X64编译并拷贝成功,可稍作修改,改成32位编译拷贝
matlab开发-copyfile。复制目录中的所有文件及其所有子目录
一个文件复制另一个文件,最终两个文件一样
将一个文件夹下所有非文件夹文件创建其对应的文件夹并将文件复制进文件夹
copyfile
本文实例讲述了python通过shutil实现快速文件复制的方法。分享给大家供大家参考。具体如下: python通过shutil实现快速文件拷贝,shutil使用起来非常方便,可以通过pip install shutil安装 from shutil import * ...
在VC的下实现文件夹(内的所有文件)的局域网传输,用COPYFILE实现。
linux c 标准库函数 读写文件 复制文件
1。本软件是用java写的。...可以自动搜索你需要的类型的文件并且自动复制到你指定的目录。 目前只做了这个功能,如果有什么好的建议可以提出,我会考虑添加功能。 若不能运行请安装最新vc运行库。
java中实现复制文件和文件夹 public static void copyFile(File sourceFile,File targetFile) throws IOException{ // 新建文件输入流并对它进行缓冲 FileInputStream input = new FileInputStream(sourceFile)...
前端开源库-dank-copyfiledank copyfile,纯javascript copyfile函数
//程序名为:copyfile.c //执行时可用:copyfile filename1 filename2形式的命令行运行,将文件filename1中的内容复制到文件filename2中去。 //file copy program. #include <stdio.h> void main(int argc,char *...
Delphi使用Mycopyfile复制文件,带进度条显示,选择好需要复制的文件,点击“复制”按钮,文件即可开始复制,文件复制过程中显示进度条,让用户清楚复制了多少,本程序适合Delphi入门者参考,源码供参考。...
复制目录及其所有子目录中的所有文件,并将结果放在新文件夹中。 % [list,numfiles] = copyfile(ext,copypath,pastepath)... % 允许多次使用同一路径% copypath - 路径文件存在%pastepath-复制文件到的路径
本文件主要是用于将文件夹下多级目录下的指定类型的文件,复制到指定文件夹内。 文件包含三行输入,第一行为要获取的文件类型,以.开始 如.xls ,多个类型的文件应以 , 隔开 如 .csv,.xls,.xlsx; 第二行 为要获取的...