发送HTTP请求

Question

有没有办法使用(pure) Inno Setup发送HTTP请求？

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

同时，我想避免使用curl。

- mnn

Answer 1

此扩展可以在没有用户界面的情况下进行下载；http://www.sherlocksoftware.org/page.php?id=50 （通过ITD_DownloadFiles）

- Alex K.

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;

- Martin Prikryl