首次下载时有高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;