Inno 设置 - HTTP 请求 - 获取 www/web 内容

Question

谁能告诉我如何在 Inno Setup Script 的 Pascal 代码中获取 www 内容？

问候，
托马斯

Answer 1

使用WinHttpRequest class:

var
  WinHttpReq: Variant;
begin
  WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
  WinHttpReq.Open('GET', 'https://www.example.com/', False);
  WinHttpReq.Send('');
  if WinHttpReq.Status <> 200 then
  begin
    Log('HTTP Error: ' + IntToStr(WinHttpReq.Status) + ' ' +
        WinHttpReq.StatusText);
  end
    else
  begin
    Log('HTTP Response: ' + WinHttpReq.ResponseText);
  end;
end;