Последовательный порт¶

TbtkScriptSerialPortTimeouts¶

class TbtkScriptSerialPortTimeouts¶

Класс предоставляет доступ к структуре COMMTIMEOUTS.

TbtkScriptSerialPortDcbObject¶

class TbtkScriptSerialPortDcbObject¶

Класс предоставляет доступ к структуре DCB, определяющей настройки последовательного порта.

TbtkScriptSerialPortObject¶

class TbtkScriptSerialPortObject¶

Класс для работы с последовательным портом. Позволяет получать данные и настраивать обработчики.

New in version 1.25.0-ms4.

Registered → Boolean¶

Зарегистрирован ли обработчик на последовательный порт: True - зарегистрирован, False - не зарегистрирован.

Return type:: Boolean

Opened → Boolean¶

Возвращает состояние порта: True - открыт, False - закрыт.

Return type:: Boolean

Note

Данное свойство обозначает был ли открыт порт методом Open(). То есть если порт используется другим приложением, свойство вернет False.

Пример работы¶

Листинг тестовой операции:

<PASCAL>
  ComPortName := GetVar('sSerialPortName');
  SerialPort := Application.GetSerialPort(ComPortName); // ComPortName = "COM3"
  SerialPort.Open;

  // Дальше идет задание настроек, но этот момент можно пропустить
  // тогда будут использованы значения по умолчанию
  // точно такие же, какие заданы в этом примере
  dcb := SerialPort.GetDCBProperties;
  dcb.BaudRate := CBR_19200;
  dcb.ByteSize := 8;
  dcb.Parity := ONESTOPBIT;
  dcb.StopBits := NOPARITY;
  SerialPort.SetDCBProperties(dcb);

  timeouts := SerialPort.GetCOMMTimeouts;
  timeouts.ReadIntervalTimeout := 50;
  timeouts.ReadTotalTimeoutConstant := 40;
  timeouts.ReadTotalTimeoutMultiplier := 40;
  timeouts.WriteTotalTimeoutConstant := 40;
  timeouts.WriteTotalTimeoutMultiplier := 40;
  SerialPort.SetCOMMTimeouts(timeouts);

  SerialPort.RegisterHandler(Selection.OperationByName('OnComPortReaded') );
</PASCAL>

Листинг операции-обработчика OnComPortReaded:

<PASCAL APortName>
  SerialPort := Application.GetSerialPort(APortName);
  ShowMessage(SerialPort.Data);
</PASCAL>

Эмулирование COM порта¶

Для теста можно эмулировать COM порт и записывать в него поток данных. Существуют бесплатные(условно-бесплатные) версии подобных утилит.

Проверенно работает утилита VSPE (VIRTUAL SERIAL PORTS EMULATOR) для эмуляции виртуального последовательно порта.

Для генерации трафика в цикле можно использовать утилиту AGG Com port data emulator (Freeware).