Отправить HTTP-запрос

Question

Есть ли способ отправить HTTP-запрос с использованием (чистой) Inno Setup?

isxdl.dll не вариант, потому что он создает окно «загрузки».

Также я бы хотел избежать использования curl.

Answer 1

Это расширение можно скачать без интерфейса;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;