发送HTTP请求

Question

有没有什么办法使用（纯）Inno安装发送HTTP请求？

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

另外我想避免使用卷曲。

Answer 1

此扩展程序可以在没有UI的情况下下载; http://www.sherlocksoftware.org/page.php?id=50（通过ITD_DownloadFiles）

Answer 2

使用WinHttpRequest object：

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;