ользую 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;