Проверка Доступности TCP Портов: Простые и Эффективные Методы в Delphi

Delphi , Интернет и Сети , TCP/IP

Введение

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

Основная Часть

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

Одним из наиболее популярных решений является использование компонентов библиотеки Indy. Например, создание TIdHTTPServer и попытка его открытия на интересующем порту приведет к возникновению исключения в случае, если порт занят. Таким образом, можно проверить доступность порта, попытавшись прослушать его с помощью Indy-компонента.

var
  server: TIdHTTPServer;
begin
  server := TIdHTTPServer.Create(nil);
  try
    server.DefaultPort := YourPortNumber; // Задаем номер проверяемого порта
    if server.Active then // Пытаемся активировать сервер на этом порту
      begin
        // Если сервер успешно активирован, порт свободен
      end;
    else
      begin
        // Обработка исключения, если порт занят
      end;
  finally
    server.Free;
  end;

Использование Windows Sockets API

Для проверки доступности порта можно использовать функции из Windows Sockets API. Пример кода ниже создает сокет и пытается установить соединение с указанным IP-адресом и номером порта. Если соединение успешно установлено, порт не занят.

program CheckTCP_PortOpen;
{$APPTYPE CONSOLE}
uses
  Winsock; //Windows Sockets API Unit

function PortTCPIsOpen(dwPort : Word; ipAddressStr:string) : boolean;
var
  client : sockaddr_in;
  sock   : Integer;
begin
    // Инициализация структуры для соединения
    client.sin_family      := AF_INET;
    client.sin_port        := htons(dwPort);
    client.sin_addr.s_addr := inet_addr(PChar(ipAddressStr));

    // Создание сокета и попытка установить соединение
    sock  := socket(AF_INET, SOCK_STREAM, 0);
    Result:= connect(sock, @client, SizeOf(client)) = 0;

    // Закрытие сокета после проверки
    closesocket(sock);
end;

var
  ret    : Integer;
  wsdata : WSAData;
begin
  // Инициализация Winsock
  ret := WSAStartup($0002, wsdata);
  if ret <> 0 then exit;
  try
    // Пример проверки порта 80 на localhost
    if PortTCPIsOpen(80, '127.0.0.1') then
      writeln('Порт открыт')
    else
      writeln('Порт закрыт');
  finally
    WSACleanup;
  end;
end.

Использование компонента TTCPBlockSocket из блока blcksock

Существует также возможность использования компонента TTCPBlockSocket для проверки доступности порта. Пример кода ниже показывает, как можно привязать сокет к локальному IP-адресу и номеру порта, а затем попробовать прослушать на нем. Если возникает ошибка при попытке прослушивания, порт занят.

uses
  blcksock;

function PortAvailable(Port: string): boolean;
var
  svr : TTCPBlockSocket;
begin
  Result := False; // Предполагаем, что порт недоступен
  try
    svr := TTCPBlockSocket.Create;
    try
      svr.Bind('0.0.0.0', Port); // Привязываем сокет к локальному IP и порту
      svr.Listen; // Попытка прослушивания на указанном порту
      Result := svr.LastError = 0;
    finally
      svr.CloseSocket; // Закрываем соединение
      svr.Free;
    end;
  except
    on E: Exception do
      begin
        // Обработка возможных ошибок
      end;
  end;
end;

Заключение

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

Приведенные примеры кода можно использовать как есть или адаптировать под свои нужды, учитывая спецификацию вашего приложения на Object Pascal (Delphi).

Примечание: В статье использованы фрагменты кода и описания методов, основанных на материале из контекста. 

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

Статья о проверке доступности TCP портов в Delphi с использованием различных методов и подходов.

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

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

:: Главная :: TCP/IP ::