Delphi + Indy 导致高页面错误和 RAM 使用率

Question

我遇到一个奇怪的问题。

我使用Delphi和Indy来上传和备份一些文件。它在许多计算机上运行良好(Win7 64位、WinXP)。CPU 使用率低于 1% 且最大。 20MB 内存。

但是有一台计算机(Win 2008 R2)出现问题，我无法找出原因。CPU使用率为5-20%，RAM占用100MB+，并且增加很多。此外，“页面错误”增加了很多，例如。每秒 100 000 个(在我的计算机上不会增加​​)

代码很简单

var
  IdHTTP: TIdHTTP;
  IdPostData: TIdMultiPartFormDataStream;
  sResponse: string;
begin
  IdHTTP := TIdHTTP.Create(nil);
  IdPostData:=TIdMultiPartFormDataStream.Create;

  try
    IdPostData.AddFile('file', 'C:\data.dat', '');

    sResponse:=IdHTTP.Post('http://web.com', IdPostData);

    ShowMessage(sResponse);
  finally
    IdHTTP.Free;
    IdPostData.Free;
  end;
end;

有人知道为什么“页面错误”会增加这么多吗？是否有可能存在某些硬件问题？如何找到它？

Answer 1

只需将“IdHttp := nil; IdPostData:=nil; sResponse := 'Ok';”放在“try”子句之前，然后重试

--已审查--稍微更改了您的代码

procedure SendFile;
var
  IdHTTP: TIdHTTP;
  IdPostData: TIdMultiPartFormDataStream;
  sResponse: string;
begin
  sResponse := 'OK';
  IdHTTP := TIdHTTP.Create(nil);
  IdPostData:=TIdMultiPartFormDataStream.Create;
  try
    IdPostData.AddFile('C:\data.dat', 'data.dat', '');

    IdHTTP.Post('http://www.yahoo.com', IdPostData);

    ShowMessage(sResponse);
  finally
    IdHTTP.Free;
    IdPostData.Free;
  end;
end;