### Поиск и использование COM-портов в Delphi для разных версий Windows

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

Поиск и использование COM-портов в Delphi для разных версий Windows

При работе с COM-портами в среде Delphi важно понимать, что информация о доступных портах может быть нестабильной и зависеть от версии операционной системы. В данной статье мы рассмотрим наиболее надежные способы перечисления COM-портов на машинах с неизвестными версиями Windows.

Запись в реестре

Один из способов получения списка COM-портов – это обращение к ключу реестра HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM. Этот метод подходит для всех версий Windows NT, но для Windows 9x может потребоваться поиск в разделе DYN_DATA.

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

Для обеспечения надежности в реальном времени рекомендуется использовать метод, основанный на Win32 API. Пример такого метода можно найти в статье на CodeProject: Enum Serial Ports. Этот подход работает на всех версиях Windows, так как он основан на принципах, используемых в Device Manager.

Пример кода на Object Pascal (Delphi)

uses
  System.SysUtils,
  System.Classes,
  Registry;

function GetSerialPorts: TStringList;
var
  RegKey: TRegistry;
  Index, Count: Integer;
  PortName: string;
begin
  Result := TStringList.Create;
  try
    RegKey := TRegistry.Create;
    try
      RegKey.RootKey := HKEY_LOCAL_MACHINE;
      RegKey.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', False);
      Count := RegKey.KeyCount;
      for Index := 0 to Count - 1 do
      begin
        RegKey.GetKeyName(Index, PortName);
        if Length(PortName) > 0 then
          Result.Add(RegKey.ReadString(PortName));
      end;
    finally
      RegKey.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;

Этот код создает список COM-портов, доступных в системе, используя информацию из реестра. Обратите внимание, что для Windows 9x может потребоваться дополнительная логика для обработки динамических устройств.

Заключение

Для надежного перечисления COM-портов в Delphi, особенно при работе с различными версиями Windows, рекомендуется использовать комбинацию методов, включая обращение к реестру и Win32 API. Важно также учитывать, что устройства, подключенные после запуска системы, могут не отображаться в списке.

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

Описание: При работе в Delphi с COM-портами важно использовать надежные методы перечисления доступных портов, учитывая различия в версиях Windows, включая обращение к реестру и Win32 API.

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

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

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