Я использую idhttp (Indy) для проверки некоторых веб-сайтов. Все, что я хочу сделать, это проверить код ответа с сервера после отправки моего запроса, я не хочу, чтобы на самом деле нужно получать выходные данные HTML с сервера, поскольку я отслеживаю только код 200 OK, любой другой код означает, что есть проблема в какой-то форме.
Я искал документы справки idhttp и единственный способ, который я мог видеть, чтобы сделать это, - это присвоить код MemoryStream
, а затем просто очистить его сразу, однако это не очень эффективно и использует памяти, которая не нужна. Есть ли способ просто вызвать сайт и получить ответ, но игнорировать отправленный HTML-код, который более эффективен и не теряет память?
В настоящее время код будет выглядеть примерно так. Однако это всего лишь образец кода, который я еще не тестировал, я просто использую его, чтобы объяснить, что я пытаюсь сделать.
Procedure Button1Click(Sender: TObject);
var
http : TIdHttp;
s : TStream;
url : string;
code : integer;
begin
s := TStream.Create();
http := Tidhttp.create();
url := 'http://www.WEBSITE.com';
try
http.get(url,s);
code := http.ResponseCode;
ShowMessage(IntToStr(code));
finally
s.Free();
http.Free();
end;