发送 HTTP 请求

Question

有没有办法使用（纯）Inno Setup 发送 HTTP 请求？

isxdl.dll 不是一个选项，因为它创建“下载”窗口。

我也想避免使用curl。

Answer 1

该扩展无需 UI 即可下载； http://www.sherlocksoftware.org/page.php?id=50 （通过ITD_DownloadFiles）

Answer 2

使用 WinHttpRequest 对象：

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(Format('HTTP error: %d %s', [Integer(WinHttpReq.Status), WinHttpReq.StatusText]));
  end
    else
  begin
    Log(Format('HTTP Response: %s', [WinHttpReq.ResponseText]));
  end;
end;