移动大文件的问题。 ( 积分: 100 )

WangZhaoHui · 2005-12-26

如果手工在windows的C盘下将c:/a.avi 剪切到 c:/save/a.avi 下只需要很少的时间就粘贴过去了。(文件大概有400M,同盘符不同的文件夹之间进行移动) 但我使用这个函数在同一个盘符下移动文件确需要很长时间，是我哪个参数设置的不对吗。还是我需要使用Clipboard来剪切文件呢。 function MoveFile(const Source, Dest: string): Boolean; var  fo: TSHFILEOPSTRUCT; begin  FillChar(fo, SizeOf(fo), 0);  with fo do  begin    Wnd := 0;    wFunc := FO_MOVE;    pFrom := PChar(Source + #0);    pTo := PChar(Dest + #0);    fFlags := FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR;  end;  Result := (SHFileOperation(fo) = 0); end;

WangZhaoHui · 2005-12-26

如果手工在windows的C盘下将c:/a.avi 剪切到 c:/save/a.avi 下只需要很少的时间就粘贴过去了。(文件大概有400M,同盘符不同的文件夹之间进行移动) 但我使用这个函数在同一个盘符下移动文件确需要很长时间，是我哪个参数设置的不对吗。还是我需要使用Clipboard来剪切文件呢。 function MoveFile(const Source, Dest: string): Boolean; var  fo: TSHFILEOPSTRUCT; begin  FillChar(fo, SizeOf(fo), 0);  with fo do  begin    Wnd := 0;    wFunc := FO_MOVE;    pFrom := PChar(Source + #0);    pTo := PChar(Dest + #0);    fFlags := FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR;  end;  Result := (SHFileOperation(fo) = 0); end;

royal1442 · 2005-12-26

直接在操作系统中移动文件，也是这种情况！ 同盘符的移动，文件本身并不移动，只是修改文件的一些属性（比如该文件的存放路径由c:/编程c:/save等等），而不同盘符之间的移动，是移动文件本身；所以速度要慢一些！ 以上是个人观点！

WangZhaoHui · 2005-12-26

我只需要在同盘符移动，但是也需要花费很多时间。

royal1442 · 2005-12-26

那试试看先复制，然后在删除源文件呢？

WangZhaoHui · 2005-12-26

主要我是因为同盘符复制粘贴时间长，而剪切粘贴时间短才有此一问的。可能用剪切板也行，但我不太会。

muhx · 2005-12-26

直接使用Delphi封装好的函数MoveFile或者MoveFileEx就可以了啊 速度还是很快的 我都是使用一个单独的线程进行处理的

royal1442 · 2005-12-26

给你一个我刚刚写的函数吧，我在本机测试的速度还能接受！：） function TForm1.MoveFile(AFileName, ToPath: string): boolean; var  fsTemp:SHFILEOPSTRUCT; begin  with fsTemp do  begin    Wnd := Self.Handle;    //设置文件操作类型    wFunc :=FO_MOVE;    //允许执行撤消操作    fFlags :=FOF_ALLOWUNDO;    //源文件全路径名    pFrom := PChar(AFileName);    //要复制到的路径    pTo := PChar(ToPath);    lpszProgressTitle := '移动文件';  end;  result := (SHFileOperation(fsTemp) = 0); end;

WangZhaoHui · 2005-12-26

有会有剪切板的吗。在windows里连一秒都用不了的。

sundata · 2005-12-26

分区后的文件在不同盘符下移动速度是不同啊 磁头定位需要时间

WangZhaoHui · 2005-12-26

但我只需要在同盘符移动。所以速度慢我接受不了的。

royal1442 · 2005-12-26

我的方法在我的机子上也只用了1秒钟而已！

WangZhaoHui · 2005-12-26

to royal1442:你的函数和我标题上的那个函数差不多。我的文件很大的.有几百M。

royal1442 · 2005-12-26

不好意思！我移动的文件是420M，也就一秒钟！

liumangya · 2005-12-26

为什么要自己写啊，不是有系统函数MoveFile么，很快的

WangZhaoHui · 2005-12-26

多人接受答案了。

移动大文件的问题。 ( 积分: 100 )

WangZhaoHui

Unregistered / Unconfirmed

WangZhaoHui

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

WangZhaoHui

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

WangZhaoHui

Unregistered / Unconfirmed

muhx

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

WangZhaoHui

Unregistered / Unconfirmed

sundata

Unregistered / Unconfirmed

WangZhaoHui

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

WangZhaoHui

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

liumangya

Unregistered / Unconfirmed

WangZhaoHui

Unregistered / Unconfirmed

Similar threads