Получение параметров из строки запроса URL в Delphi

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

При разработке веб-приложений на Delphi часто бывает необходимо получить параметры из строки запроса URL. В этой статье мы рассмотрим, как это можно сделать с помощью встроенных средств языка Object Pascal и без использования JavaScript.

Существует несколько способов получить параметры из строки запроса URL в Delphi. Один из самых простых способов - использовать функцию GetQueryParam из units WebLib.WebTools, которая входит в состав TMS Web Core.

Вот пример кода, который демонстрирует, как можно использовать эту функцию для получения параметров first_name и last_name из строки запроса URL:

uses WebLib.WebTools;

var
  FirstName, LastName: String;
begin
  FirstName := GetQueryParam('first_name');
  LastName := GetQueryParam('last_name');

  if (FirstName = '') then
    console.log('First Name Not Found!')
  else
    console.log('First Name is ' + FirstName);

  if (LastName = '') then
    console.log('Last Name Not Found!')
  else
    console.log('Last Name is ' + LastName);
end;

В этом примере функция GetQueryParam вызывается дважды: один раз для получения значения параметра first_name, и другой раз для получения значения параметра last_name. Если значение параметра не найдено, то соответствующая переменная остается пустой строкой, и в консоль выводится сообщение об ошибке.

Если вам нужно обработать более сложные случаи, когда один и тот же параметр может встречаться в строке запроса несколько раз, то вы можете использовать другой подход. Например, можно использовать регулярные выражения для извлечения всех параметров из строки запроса и сохранить их в словаре или другом структурированном формате. Вот пример кода, который демонстрирует, как это можно сделать:

uses System.SysUtils, System.RegularExpressions;

var
  QueryString: string;
  Match: TMatch;
  Params: TStringDictionary;
begin
  QueryString := 'https://www.example.com/index.html?first_name=shaun&last_name=roselt&one=1&one=2&one=3';
  Params := TStringDictionary.Create;

  with TRegEx.Create('([^=&]+)=?([^&]*)') do
  try
    Match := MatchFirst(QueryString, 0);
    while Assigned(Match) do
    begin
      Params[Match[1]] := Match[2];
      Match := MatchNext;
    end;
  finally
    Free;
  end;

  if Params.ContainsKey('first_name') then
    console.log('First Name is ' + Params['first_name'])
  else
    console.log('First Name Not Found!');

  if Params.ContainsKey('last_name') then
    console.log('Last Name is ' + Params['last_name'])
  else
    console.log('Last Name Not Found!');

  if Params.ContainsKey('one') then
    console.log('One is ' + Params['one'])
  else
    console.log('One Not Found!');

  Params.Free;
end;

В этом примере регулярное выражение ([^=&]+)=?([^&]*) используется для поиска всех параметров в строке запроса. Каждый параметр сохраняется в словаре Params, где ключом является имя параметра, а значением - его значение. Затем проверяется наличие параметров first_name, last_name и one в словаре и выводится соответствующее сообщение в консоль.

В заключение стоит отметить, что существует несколько способов получить параметры из строки запроса URL в Delphi. Выбор подхода зависит от конкретных требований вашего проекта и сложности строки запроса. В любом случае, использование встроенных средств языка Object Pascal позволяет добиться высокой производительности и гибкости при работе с URL-адресами.

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

В статье рассматривается, как получить параметры из строки запроса URL в Delphi с помощью встроенных средств Object Pascal и без использования JavaScript.

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

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

:: Главная :: URL ::