delphi - 将文件从服务器复制到本地驱动器-什么会减慢获取文件的速度？

Question

This question already has answers here:

Delphi fast file copy

（6个答案）


3个月前关闭。





我有一个访问Intranet上文件的应用程序。用户可以将文件从网络上的服务器复制到其本地PC。我已经迷恋了初始连接的问题。即启动应用程序时。用户在数据库中搜索文件。当他找到要下载的文件时，他单击该名称，然后应用程序将其下载。
第一次下载操作大约需要8到12秒钟，才能开始下载并查看进度条。接下来的下载几乎是即时的。文件大小在
1 MB到15 MB。

这是我的代码：

 const
 projectFilesURL = '\\IntranetServer\Directory\filesLocation\';

    procedure form1.GetSelectedFile(const fileName: string);
    var
    sourceFile: string;
    begin
    { \\IntranetServer\Directory\filesLocation\userSelectedFile.zip}
    sourceFile := projectFilesURL + fileName;    

      if FileExists(sourceFile) then
      begin

       fileCopy(fileName);
       lblSearching.Hide;
       AnimSearching.Hide;

      end
  else
  MessageDlg(
    'The file was not found on the server'
      , mtInformation, [mbCancel], 0);
 end;

end;
procedure form1.fileCopy(const sourceFile: string);
 var
   SourceF, DestF: file;
   Buf: array [0 .. 1023] of byte;
   NumRead, FSize, BytesCopied: Integer;
   destinationPathandFile: string;
begin
  destinationPathandFile := ExtractFilePath(ParamStr(0))
    + exportPath + sourceFile;
try
  AssignFile(SourceF, projectFilesURL + sourceFile);
  AssignFile(DestF, destinationPathandFile);
  FileMode := 0;
  Reset(SourceF, 1);
  Rewrite(DestF, 1);
  FSize := FileSize(SourceF);
  BytesCopied := 0;

 fileCopyProgress.Percent := 0;
  while not Eof(SourceF) do
  begin
    BlockRead(SourceF, Buf, SIZEOF(Buf), NumRead);
    BlockWrite(DestF, Buf, NumRead);
    Inc(BytesCopied, NumRead);

   fileCopyProgress.Percent := (BytesCopied * 100) div FSize;
   Application.ProcessMessages;
end;
CloseFile(SourceF);
CloseFile(DestF);

except
  on E: Exception do
  begin
  raise Exception.Create('Error occured while copying a file');

  Exit;
end;

end;

我不确定哪里可能是一个窒息点...也许fileExists是没有必要的。
由于文件是否在服务器上...也许抛出异常会更好...
我感谢任何建议。
谢谢，

最佳答案

您说第二个副本几乎是即时的，因此您的代码的基本问题几乎可以肯定被排除（而且我认为复制代码本身也没有任何基本问题）。
您是否尝试过在调试器中逐步执行该程序，以查看其“挂起”了哪一行或花费了异常的时间？

我以前见过的具有可比症状的问题是，当Windows客户端从Linux Samba服务器复制了旧版本的Samba服务器时：“连接”需要很多时间，之后一切都以正常速度运行。

作为更一般的评论，我会努力争取更好的separation of concerns，在表单对象中使用filecopy方法并不是真正的最新技术。

关于delphi - 将文件从服务器复制到本地驱动器-什么会减慢获取文件的速度？ ，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/1616529/

上一篇：delphi - Delphi:泛型和TObjectList

下一篇：powershell - 使用 LDAP 过滤器使用 Get-ADComputer 搜索多个操作系统

Answer 1

您说第二个副本几乎是即时的，因此您的代码的基本问题几乎可以肯定被排除（而且我认为复制代码本身也没有任何基本问题）。
您是否尝试过在调试器中逐步执行该程序，以查看其“挂起”了哪一行或花费了异常的时间？

我以前见过的具有可比症状的问题是，当Windows客户端从Linux Samba服务器复制了旧版本的Samba服务器时：“连接”需要很多时间，之后一切都以正常速度运行。

作为更一般的评论，我会努力争取更好的separation of concerns，在表单对象中使用filecopy方法并不是真正的最新技术。