Send HTTP request

Question

Is there a way to send an HTTP request using an (pure) Inno program?

isxdl.dll is not an option because it creates a download window.

Also, I would like to avoid using curl.

Answer 1

This extension can be downloaded without a user interface; http://www.sherlocksoftware.org/page.php?id=50 (via ITD_DownloadFiles )

Answer 2

Use the 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;