Тестирование входа в форму на веб-странице

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

с помощью TFPHTTPClient

При тестировании входа в форму на веб-странице с помощью TFPHTTPClient, библиотеки, входящей в состав FreePascal, могут возникнуть некоторые сложности. В этом руководстве мы рассмотрим типичные проблемы и предложим их решения, а также альтернативные подходы.

Проблема: Невозможность входа в форму на веб-странице

При попытке войти в форму на веб-странице с помощью TFPHTTPClient, THttpSend или TIdHTTP могут возникнуть проблемы. В таких случаях необходимо проанализировать несколько аспектов, чтобы определить причину неполадки.

Разбор проблемы:

1. SSL: При использовании HTTPS для входа в форму на веб-странице необходимо включить соответствующие единицы для SSL в коде. В FreePascal имеется несколько вариантов, таких как opensslsockets, ssockets, sslsockets, ssl_openssl, ssl_openssl11 и ssl_openssl3. Однако для работы с TFPHTTPClient достаточно включить единицу opensslsockets.
2. URL-encoding: При отправке данных формы важно правильно кодировать URL. TFPHTTPClient автоматически кодирует URL, если используется TStringList для хранения параметров входа. Однако, есть некоторые символы, такие как "$", "!" и "@", которые не кодируются автоматически и должны быть закодированы вручную, если это необходимо.
3. Данные формы: При отправке данных формы важно правильно сформировать строку, содержащую параметры входа. Каждый параметр должен быть закодирован и разделен символом "&". Однако, TFPHTTPClient автоматически обрабатывает это, когда используется TStringList.
4. JavaScript: Многие современные веб-страницы используют JavaScript для обработки форм входа. TFPHTTPClient не поддерживает исполнение JavaScript, поэтому важно проверить, работает ли вход в форму без JavaScript в браузере. Если нет, то TFPHTTPClient, скорее всего, не сможет войти в форму на веб-странице.

Решение:

Чтобы успешно войти в форму на веб-странице с помощью TFPHTTPClient, следуйте приведенному ниже коду:

uses
  .. openssl, opensslsockets, fphttpclient, httpprotocol;

procedure TForm1.btnLoginFpHTTPClick(Sender: TObject);
const
  URL = 'https://practicetestautomation.com/practice-test-login/';
var
  HTTP: TFPHTTPClient;
  formdata: TStrings;
  Response: TStringStream;
begin
  formdata:= TStringList.Create;
  formdata.values['username'] := 'student';  //Username
  formdata.values['password'] := 'Password123';  //Password
  InitSSLInterface;
  Response:= TStringStream.Create('');
   HTTP:= TFPHTTPClient.Create(nil);
  try
    try
      HTTP.AllowRedirect := True;
      HTTP.AddHeader('User-Agent', 'Mozilla/5.0 (compatible; fpweb)');
      HTTP.AddHeader('Content-Type', 'application/x-www-form-urlencoded');
      HTTP.KeepConnection:=True;
      HTTP.FormPost(URL, formdata, Response);
      Response.Position:=0;
      Memo1.Lines.LoadFromStream(Response);
      Memo1.Lines.Add(HTTP.ResponseHeaders.Text);
    except
      on E: EHttpClient do
        ShowMessage(E.Message)
      else
        raise;
    end;
  finally
    Response.Free;
    HTTP.Free;
  end;
end;

Альтернативное решение:

Если TFPHTTPClient по-прежнему не может войти в форму на веб-странице, рассмотрите альтернативный подход с использованием Selenium WebDriver. Selenium - это инструмент автоматизации браузера, который может имитировать действия пользователя, включая вход в форму. В FreePascal имеется поддержка Selenium WebDriver, что делает его отличным выбором для автоматизации тестов входа в форму.

Пример кода с использованием Selenium WebDriver:

uses
  Selenium;

procedure TForm1.btnLoginSeleniumClick(Sender: TObject);
const
  URL = 'https://practicetestautomation.com/practice-test-login/';
var
  driver: TWebDriver;
begin
  driver := TChromeDriver.Create(nil);
  try
    driver.Get(URL);
    driver.FindElement(By.Name('username')).SendKeys('student');  //Username
    driver.FindElement(By.Name('password')).SendKeys('Password123');  //Password
    driver.FindElement(By.CssSelector('button[type="submit"]')).Click();
    // Добавьте здесь код для проверки успешного входа в форму
  finally
    driver.Quit;
  end;
end;

В этом примере мы создаем экземпляр TChromeDriver, который является драйвером для браузера Chrome. Затем мы используем методы TWebDriver для имитации ввода имени пользователя и пароля, а также нажатия кнопки входа в форму.

Заключение:

При тестировании входа в форму на веб-странице с помощью TFPHTTPClient важно учитывать несколько аспектов, таких как SSL, URL-encoding, данные формы и JavaScript. Если TFPHTTPClient не может войти в форму на веб-странице, рассмотрите альтернативный подход с использованием Selenium WebDriver. Selenium - это мощный инструмент для автоматизации тестов входа в форму и может быть легко интегрирован в приложения, написанные на Object Pascal.

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

При тестировании входа в форму на веб-странице с помощью TFPHTTPClient могут возникнуть сложности, связанные с SSL, кодировкой URL, данными формы и поддержкой JavaScript. Для решения этих проблем можно использовать правильную единицу для SSL, корректно ко

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

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

:: Главная :: Интернет ::