Обмен по COM порту

Функции чтения и записи информации в COM порт:

1) Инициализация Com порта:

   ComPortInit([Port][,BaudRate][,DataBits][,StopBits][,Parity][,FlowControl])
   Возвращает объект Com-порта, который используется во всех остальных методах.
   Параметры:
   BaudRate - Стандартная скорость, бит/сек: 50,75,110,150,300,600,1200,1800,2000,2400,3600,4800,7200,9600,14400,19200,28800,38400,57600,115200
   DataBits - Количество бит данных в переданном символе: 5,6,7,8
   StopBits - Длина стопового бита: 1, 1.5, 2
   Parity -   Режимы контрольного бита: None, Even, Mark, Odd, Space
   FlowControl - Режимы управления потоком: Hardware,Software,None,Custom
   В случает отсутствия любых параметров, используются значения системных параметров из закладки Com-порт.

2) Открытие порта и создание потока "слушателя" событий из Com порта:

   ComPortOpen(ComPort[,SyncProgText][,Prms]
   При открытии порта можно через SyncProgText передать текст программы на интерпретаторе и параметры для этой программы.
   Вызов SyncProgText будет происходить из асинхронного потока при возникновении события чтения данных из Com порта.
   Повторно открывать порт нельзя, сначала надо его закрыть.

3) Отправка команды(строки) в Com-порт

  ComPortSent(ComPort, str)
  Возвращает число посланных байтов

4) Закрытие порта

  ComPortClose(ComPort)

Пример тестовой программы:

if Type("GlbComport")='O'

  // Закрытие порта, если уже существует переменная
  // с объектом порта
  ComPortClose(Glbcomport)
  FreeAndNil(Glbcomport)

end

// инициализация порта COM19
// для инициализации используются значения системных параметров
Global Glbcomport:=ComPortInit("COM19")

// чтение текста программы, для реакции на событие получения данных из Com порта
var prg := GetProgText("Read")

try

 // попытка открытия порта с передачей параметров
 if ComPortOpen(Glbcomport, prg, 'Параметр 1', 'Параметр 2')
    // отправка команды TEST
    ComPortSend(Glbcomport, "TEST")
 end

except

 // Ошибка открытия порта
 Message(_ErrString)
 return

end

// программа обработки ответа на команду
<Read>
Parameters prm1,prm2
Message("Текст из com порта:"+Chr(13)+ComBuffer)