Автоматическая настройка портов в инсталляторе серверного приложения с помощью Inno Setup

Delphi , Синтаксис , Справочник по API-функциям

При разработке инсталлятора для серверного приложения, важно обеспечить его корректную настройку, в том числе и выбор свободного порта. В данной статье мы рассмотрим, как можно автоматизировать процесс проверки доступности портов в процессе установки, используя инструменты Inno Setup.

Проблема

При установке серверного приложения с помощью Inno Setup 5.6.1 необходимо проверить, доступен ли локальный IP-адрес и порт, чтобы приложение могло быть корректно настроено. Существуют различные способы проверки портов, включая использование внешних DLL, запуск утилиты netstat через командную строку и использование вызовов WinAPI.

Решение

Использование внешних DLL может быть нестабильным, так как иногда DLL не загружается, особенно на некоторых версиях Windows. Запуск netstat через командную строку является менее предпочтительным из-за его "костыльности". Поэтому наиболее предпочтительным вариантом является использование вызовов WinAPI, в частности функции GetTcpTable().

Пример кода

const
  ERROR_INSUFFICIENT_BUFFER = 122;

function GetTcpTable(pTcpTable: Array of Byte; var pdwSize: Cardinal;
  bOrder: WordBool): DWORD;
external 'GetTcpTable@IpHlpApi.dll stdcall';

function CheckPortIsOpen(port: Integer): Boolean;
var
  TableSize: Cardinal;
  Buffer: Array of Byte;
  RecordCount, i: Integer;
  portNumber: Cardinal;
begin
  Result := True;
  TableSize := 0;
  if GetTcpTable(nil, TableSize, False) = ERROR_INSUFFICIENT_BUFFER then
  begin
    SetLength(Buffer, TableSize);
    if GetTcpTable(Buffer, TableSize, True) = 0 then
    begin
      RecordCount := Buffer[3] * 65536 + Buffer[2] * 4096 + Buffer[1] * 256 + Buffer[0];
      for i := 0 to RecordCount - 1 do
      begin
        portNumber := Buffer[i*20 + 12] * 256 + Buffer[i*20 + 13];
        if port = portNumber then
          Result := False;
      end;
    end;
  end;
end;

Важные моменты

• В функции CheckPortIsOpen используется функция GetTcpTable для получения информации о TCP-соединениях на локальном компьютере.
• Порядок байтов для RecordCount и portNumber важен, так как данные представлены в сетевом порядке байтов (big-endian).
• Необходимо правильно интерпретировать байты в буфере, чтобы получить корректные значения портов.

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

Проблема, с которой вы столкнулись, заключалась в неверной интерпретации байтов буфера, возвращаемого функцией GetTcpTable. Для получения корректного значения порта необходимо было извлечь два байта, представляющих DWORD в сетевом порядке байтов.

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

Хотя в примере кода была допущена ошибка в интерпретации байтов, общий подход к использованию GetTcpTable для проверки доступности портов является верным. После исправления ошибки в коде, функция CheckPortIsOpen будет корректно работать.

Заключение

позволяет значительно упростить процесс установки и уменьшить вероятность ошибок, связанных с настройкой портов. Использование WinAPI функций, таких как GetTcpTable, предоставляет мощный и надежный инструмент для решения этой задачи.

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

При разработке инсталлятора для серверного приложения с использованием Inno Setup необходимо автоматически настраивать порты, проверяя их доступность с помощью функции `GetTcpTable` из WinAPI.

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

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

:: Главная :: Справочник по API-функциям ::