2017-03-15 14 views

答えて

1

使用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('HTTP Error: ' + IntToStr(WinHttpReq.Status) + ' ' + WinHttpReq.StatusText); 
    end 
    else 
    begin 
    Log('HTTP Response: ' + WinHttpReq.ResponseText); 
    end; 
end; 
+0

WinHttpRequestはunknowタイプです。 必要な依存関係を追加するにはどうしたらいいですか? –

+0

'WinHttpReq'は' Variant'として定義されなければなりません。 –