Список Доступных Com Портов Delphi

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

procedure GetPorts(Ports: TStrings);var  i: Integer;begin  Ports.Clear;  for i := 1 to 16 do    Ports.Add('COM' + IntToStr(i));end;

В данном примере функция GetPorts() заполняет список строк Ports именами портов. В этом случае функция наполняет список с именами от COM1 до COM16. Также можно настроить параметры последовательного порта (скорость обмена, контроль четности и т.п.).