Техники разделения имени сервера и номера порта на языке Pascal

Delphi , Интернет и Сети , Почтовый клиент

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

Статья

Разделение строки с именем сервера и номером порта на языке Pascal

В процессе разработки сетевых приложений часто возникает необходимость разделения строки, содержащей имя сервера и номер порта. Например, строка smtp.gmail.com:587 содержит имя почтового сервера (smtp.gmail.com) и номер порта (587). В данной статье будут рассмотрены различные техники разделения такой строки на составляющие части.

Подход с использованием функции SplitAtChar

Один из способов разделения строки - использовать функцию SplitAtChar, которая принимает строку, символ-разделитель и две переменные для результата. Пример реализации:

function SplitAtChar(const Str: string; const Chr: char;
  out Part1, Part2: string): boolean;
var
  ChrPos: integer;
begin
  result := true;
  ChrPos := Pos(Chr, Str);
  if ChrPos = 0 then
    Exit(false);
  Part1 := Copy(Str, 1, ChrPos - 1);
  Part2 := Copy(Str, ChrPos + 1, Length(Str) - ChrPos);
end;

Пример использования:

var
  p1, p2: string;
begin
  if SplitAtChar('smtp.gmail.com:587', ':', p1, p2) then
  begin
    ShowMessage(p1); // Выведет smtp.gmail.com
    ShowMessage(p2); // Выведет 587
  end;
end.

Использование регулярных выражений

В более новых версиях Delphi доступна поддержка регулярных выражений. Пример функции для парсинга строки с использованием регулярного выражения:

uses RegularExpressions;
procedure Parse(const pInput: string; var vHostname, vPortNumber: string);
var
  l_Regex: TRegEx;
  l_Match: TMatch;
begin
  l_Regex := TRegEx.Create('^([a-zA-Z0-9.]+)(:([0-9]+))?$');
  l_Match := l_Regex.Match(pInput);
  if l_Match.Success then
  begin
    vHostname := l_Match.Groups[1].Value;
    if l_Match.Groups.Count > 3 then
      vPortNumber := l_Match.Groups[3].Value
    else
      vPortNumber := '25'; // стандартный порт SMTP
  end
  else
  begin
    vHostname := '';
    vPortNumber := '';
  end;
end;

Односимвольное решение с использованием функции SplitString

Для тех, кто предпочитает более лаконичные решения, подойдет следующий вариант:

uses Types, StrUtils;
var
  StrArr: TStringDynArray;
begin
  StrArr := SplitString('smtp.gmail.com:587', ':');
  // Проверка результатов разделения
  Assert(StrArr[0] = 'smtp.gmail.com');
  Assert(StrArr[1] = '587');
end;

Использование класса TIdURI из Indy

Для более сложных задач, когда необходимо разделить URI на составляющие части (протокол, хост, порт и т.д.), можно использовать класс TIdURI из библиотеки Indy:

uses IdGlobal;
var
  uri: TidUri;
begin
  uri := TidUri.Create('http://smtp.gmail.com:587/path');
  // Использовать свойства uri.Host и uri.Port для доступа к имени хоста и номеру порта
end;

Заключение

В данной статье были рассмотрены различные техники разделения строки на имя сервера и номер порта в контексте языка Pascal. Выбор метода зависит от конкретных требований задачи, доступности инструментов и предпочтений разработчика.

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

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

Основная цель статьи - представить способы разделения строки, содержащей имя сервера и номер порта, на отдельные переменные для обработки сетевых адресов в языке программирования Pascal.

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

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

:: Главная :: Почтовый клиент ::