如何在delphi中快速复制文件

Question

至少要能够达到windows复制速度的1.5倍吧
能和fastcopy相当就更加好了，谁有好的实现方案啊
拜托各位大哥了。
给小弟一点指引吧....

Answer 1

偶就用CopyFile 或者 流

Answer 2

大哥能发给我一个例程么？
我用copyfile还有流copy一个600多M的时间和windows自带的时间差不多
和fastcopy的时间相差太多了。
本来我想修改fastcopy到delphi，却发现他根本没有用MFC或者什么框架，都是用的api，工作量太大了.....

Answer 3

var
  st,et,ff:int64;
procedure TForm1.Button1Click(Sender: TObject);
begin
  QueryPerformanceFrequency(ff);
  QueryPerformanceCounter(st);
  copyfile(pchar('d:\1.rar'),pchar('e:\2.rar'),false);
  QueryPerformanceCounter(et);
  showmessage(floattostr((et-st)/ff));end;
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;procedure TForm1.Button2Click(Sender: TObject);
begin
  QueryPerformanceFrequency(ff);
  QueryPerformanceCounter(st);
  filecopy(pchar('d:\1.rar'),pchar('e:\2.rar'));
   QueryPerformanceCounter(et);
  showmessage(floattostr((et-st)/ff));
end;

Answer 4

我测试用copyfile比流能快一些，200m

Answer 5

fastcopy我看用的也是copyfile，没有用copyfileex
不过有好多看不懂，哪位大哥还有更好的方法？

Answer 6

3楼的复制速度不行，复制600M东西，花了75秒
windows自带的复制是48秒，fastcopy是28秒

Answer 7

我就是用的多线程，但是还是达不到fastcopy的速度
在论坛上面见了以前的一位高人的代码，但是我调试不出来，据说这个是内存越大，然后复制速度越快，就像linux
哪位大大能够帮忙整理一下.....
[关于快速拷贝文件的问题，怎样快速拷贝文件，不是使用COPYFILE，SHELL外壳等函数(各位文件、]
http://topic.csdn.net/t/20031216/17/2570229.html
这是链接地址

Answer 8

问一下楼主，考一个大压缩文件，fastcopy比正常copy快多少？

Answer 9

举600M文件为例，windows自带的复制粘贴是48秒，fastcopy是28秒

Answer 10

我说的是一个文件，并且是压缩的，想知道fastcopy是不是进行压缩了，是不是用多线程，还是用的文件分割

Answer 11

哦，不会进行压缩吧，压缩的话速度岂不是更加慢....
我传送的是一个iso文件，600M
我试验一下压缩文件看看

Answer 12

压缩文件还是和iso文件复制速度差不多，同样600M左右，复制速度27秒。
应该他是没有进行压缩后复制的

Answer 13

……这好像不是什么高深的技术吧
FASTCOPY把系统为了稳定性和多任务操作而保留的带宽全部使用了，所以它就快，copy的时候占资源好像有点大

Answer 14

哈哈，我找到appfist 了跟他要了源码！
你可以加到群63503492，注明你是csdn
然后到共享里面去下载就可以了
文件名：文件拷贝(TREEVIEW).rar也可以Q我：157392506  注明CSDN，否则俺不加哦，呵呵！

Answer 15

http://topic.csdn.net/t/20050820/15/4220494.html

Answer 16

http://topic.csdn.net/u/20080730/14/d790adeb-bc57-4b10-8f6f-d3e3392404c2.html