Delphi Indy HTTP.GET高CPU使用率

时间:2015-06-13 15:30:03

标签: delphi indy

首次下载时有高CPU使用率,以后一切都还可以。自Delphi XE7以及现在的XE8以来就存在这个问题。在早期版本中,我认为CPU使用率始终较低。我使用https://indy.fulgan.com/

中的最新SSL文件对其进行了测试

感谢您的帮助。

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  IdSSL: TIdSSLIOHandlerSocketOpenSSL;
  dane: TMemoryStream;

begin
  IdHTTP := TIdHTTP.Create;
  IdOpenSSLSetLibPath(ExtractFilePath(ParamStr(0)));
  IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create();
  IdHTTP.Request.Accept := 'application/vnd.twitchtv.v3+json';
  IdHTTP.IOHandler := IdSSL;
  IdHTTP.Request.CustomHeaders.AddValue('Client-ID', 'smb61nyd0vxmqdn9d3k735qbx41cdyg');
  dane := TMemoryStream.Create;
  try
    IdHTTP.Get('https://api.twitch.tv/kraken/streams?game=StarCraft:%20Brood%20War', dane);
  finally
    dane.Free;
  end;
end;

0 个答案:

没有答案