Исправление ошибок в POST-запросах с использованием Indy в Delphi: правильное заполнение `TStringList`

Delphi , Интернет и Сети , CGI и Cookies

Исправление ошибок в POST-запросах с использованием Indy в Delphi: правильное заполнение TStringList

Вопрос, поднятый в контексте, связан с некорректным формированием POST-запроса в Delphi с использованием компонентов Indy. Пользователь столкнулся с ситуацией, когда данные, отправляемые в запросе, не соответствуют HTML-форме, которую он пытается заполнить. Кроме того, в коде присутствуют утечки объектов CookieMonster и IdSSL, а также некорректное заполнение TStringList, что может привести к ошибке "Internal Server Error".

Подтвержденный ответ

Для исправления ошибок в POST-запросах с использованием Indy в Delphi необходимо правильно заполнить TStringList, добавив в него все поля <input> из HTML-формы, которые имеют атрибуты name и непустое значение value. Это включает в себя скрытые поля и поля, назначенные скриптами. Необходимо убедиться, что в TStringList присутствуют все необходимые поля, иначе сервер может вернуть ошибку.

Пример кода на Object Pascal (Delphi)

procedure TMSBS_App_GUI.SubmitClick(Sender: TObject);
var
  Params : TStringList;
  IdHttp : TIdHTTP;
  UserID, DOB, Password, AgentName, Response: String;
begin
  // Инициализация SSL
  IdSSLOpenSSL.LoadOpenSSLLibrary;

  // Получение данных пользователя
  UserID := ...;
  DOB := ...;
  Password := ...;

  // Создание объекта для выполнения HTTP-запросов
  IdHttp := TIdHTTP.Create;
  try
    IdHttp.AllowCookies := True;
    IdHttp.ReadTimeout := 30000;
    IdHttp.HandleRedirects := True;

    // Получение HTML-страницы для дальнейшего парсинга
    Response := IdHttp.Get('https://' + website);

    // Получение значения AgentName, которое может генерироваться при запросе HTML
    AgentName := 'boFynyFE9jczy7ra1lzqLmXPeVc9xLptAWQSI9ksks1Hx/oGQmJxQA7Fy25/Xt9X';

    // Создание списка параметров для POST-запроса
    Params := TStringList.Create;
    try
      // Добавление параметров, соответствующих полям формы
      Params.Add('autherrmsg=Login failed. Please try again.');
      Params.Add('username=' + UserID + DOB); // Объединение UserID и DOB, пример
      Params.Add('url=<ERROR_INFORMATION>');
      Params.Add('proxypath=<PROXY_PATH>');
      Params.Add('pUserID=' + UserID);
      Params.Add('pDOB=' + DOB);
      Params.Add('password=' + Password);
      Params.Add('target=http://website');
      Params.Add('smauthreason=0');
      Params.Add('smagentname=' + AgentName);
      // ... и так далее для всех полей формы

      // Установка реферера для запроса
      IdHttp.Request.Referer := 'http://' + website;

      // Отправка POST-запроса и получение ответа
      Response := IdHttp.Post('https://' + website, Params);
      // Вывод ответа в Memo1
      Memo1.Text := Response;
    finally
      // Освобождение `TStringList` после использования
      Params.Free;
    end;
  finally
    // Освобождение `TIdHTTP` после использования
    IdHttp.Free;
  end;
end;

Альтернативный ответ

Если после исправления TStringList проблема с "Internal Server Error" решена, но вместо этого появилась ошибка 302 "Site Not Found", это может быть связано с HTTP-редиректом. В таком случае, необходимо включить автоматическое следование за редиректами, установив свойство TIdHTTP.HandleRedirects в True.

Заключение

Правильное заполнение TStringList в запросах Indy является ключевым для успешной отправки данных на сервер. Необходимо убедиться, что в запросе присутствуют все параметры, соответствующие полям HTML-формы. При использовании компонентов Indy важно также корректно обрабатывать ресурсы, такие как TIdCookieManager и TIdSSLIOHandlerSocketOpenSSL, чтобы избежать утечек памяти.

Создано по материалам из источника по ссылке.

Контекст связан с исправлением ошибок при работе с POST-запросами в Delphi с использованием компонентов Indy, в частности с правильным заполнением `TStringList` для корректного взаимодействия с сервером.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: CGI и Cookies ::