發送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;