KRModbusMaster.pas

Константы

MBM_ERRORS_COUNT – количество ошибок Modbus Master
mbmeOk – нет ошибки
mbmeNotConnector – не подключен модуль передачи данных
mbmeIncorrectID – неверный идентификатор пакета
mbmeIncorrectPackageLength – неверная длинна пакета
mbmeCRC – ошибка контрольной суммы
mbmeIncorrectFunction – неверный номер функции
mbmeIncorrectMBPackageLength – неверная длинна Modbus пакета
mbmeIncorrectDataLength – неверная длинна данных
mbmeQueueOverflowed – очередь переполнена
mbmeRealTimeError – ошибка времени выполнения
mbmeModbusNotActive – обработчик протокола Modbus выключен
mbmeClientNotActive – Modbus клиент выключен
MB_PARSER_ERRORS_MSG – список сообщений о ошибках

Типы данных

TMBMError – ошибка обработчика Modbus Master

TMBMCallBack = procedure(AError: integer; AData: Pointer) of Object;

TMBMCallBack – процедура обратного вызова при получении ответа от сервера
- AError – код ошибки
- AData – указатель, который был передан при отправке пакета в коннектор

Функции

function MBMReadCoils(ADevAddr: byte; AStartCoil, ACount: Word;
  AFrom: byte; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMReadCoils – формирует основную часть запроса Modbus для функции mbfReadCoils
- ADevAddr – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMReadDiscretInputs(ADevAddr: byte; AStartInput, ACount: Word;
  AFrom: byte; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMReadDiscretInputs – формирует основную часть запроса Modbus для функции mbfReadDiscretInputs
- ADevAddr – адрес устройства
- AStartInput – адрес начального дискретного входа
- ACount – количество дискретных входов
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMReadHoldingRegisters(ADevAddr: byte; AStartReg, ACount: Word;
  AFrom: byte; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMReadHoldingRegisters – формирует основную часть запроса Modbus для функции mbfReadHoldingRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMReadInputRegisters(ADevAddr: byte; AStartReg, ACount: Word;
  AFrom: byte; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMReadInputRegisters – формирует основную часть запроса Modbus для функции mbfReadInputRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMReadStatus(ADevAddr: byte; AFrom: byte; ABuffer: PKRBuffer;
  out ARecvLen: Byte): Byte;

MBMReadStatus – формирует основную часть запроса Modbus для функции mbfReadStatus
- ADevAddr – адрес устройства
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMUserFunction(ADevAddr: byte; AFunc: byte; AData: PKRBuffer;
  ADataLen: integer; AFrom: byte; ABuffer: PKRBuffer): Byte;

MBMUserFunction – формирует основную часть запроса Modbus для пользовательской(не стандартной) функции
- ADevAddr – адрес устройства
- AFunc – номер функции
- AData – указатель на буфер с данными пакета
- ADataLen – длина пакета данных
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет

function MBMWriteCoil(ADevAddr: byte; ACoilNum: Word;
  AData: boolean; AFrom: byte; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMWriteCoil – формирует основную часть запроса Modbus для функции mbfWriteCoil
- ADevAddr – адрес устройства
- ACoilNum – адрес дискретного регистра
- AData – значение для записи
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMWriteCoils(ADevAddr: byte; AStartCoil, ACount: Word;
  AData: TKRBytes; AFrom: byte; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMWriteCoils – формирует основную часть запроса Modbus для функции mbfWriteCoils
- ADevAddr – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- AData – значения для записи
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMWriteHoldingRegister(ADevAddr: byte; AStartReg: Word;
  AData: Word; AFrom: byte; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMWriteHoldingRegister – формирует основную часть запроса Modbus для функции mbfWriteHoldingRegister
- ADevAddr – адрес устройства
- AStartReg – адрес регистра
- AData – значение для записи
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMWriteHoldingRegisters(ADevAddr: byte; AStartReg: Word;
  AData: TKRRegisters; AFrom: byte; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMWriteHoldingRegisters – формирует основную часть запроса Modbus для функции mbfWriteHoldingRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- AData – значения для записи
- AFrom – начальный индекс в буфере
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUReadCoils(ADevAddr: byte; AStartCoil, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMRTUReadCoils – формирует запрос Modbus RTU для функции mbfReadCoils
- ADevAddr – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUReadDiscretInputs(ADevAddr: byte; AStartInput, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMRTUReadDiscretInputs – формирует запрос Modbus RTU для функции mbfReadDiscretInputs
- ADevAddr – адрес устройства
- AStartInput – адрес начального дискретного входа
- ACount – количество дискретных входов
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUReadHoldingRegisters(ADevAddr: byte; AStartReg, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMRTUReadHoldingRegisters – формирует запрос Modbus RTU для функции mbfReadHoldingRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUReadInputRegisters(ADevAddr: byte; AStartReg, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMRTUReadInputRegisters – формирует запрос Modbus RTU для функции mbfReadInputRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUReadStatus(ADevAddr: byte; ABuffer: PKRBuffer;
  out ARecvLen: Byte): Byte;

MBMRTUReadStatus – формирует запрос Modbus RTU для функции mbfReadStatus
- ADevAddr – адрес устройства
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUUserFunction(ADevAddr: byte; AFunc: byte; AData: PKRBuffer;
  ADataLen: integer; ABuffer: PKRBuffer): Byte;

MBMRTUUserFunction – формирует запрос Modbus RTU для пользовательской(не стандартной) функции
- ADevAddr – адрес устройства
- AFunc – номер функции
- AData – указатель на буфер с данными пакета
- ADataLen – длина пакета данных
- ABuffer – буфер, в который записывается сформированный пакет

function MBMRTUWriteCoil(ADevAddr: byte; ACoilNum: Word;
  AData: boolean; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMRTUWriteCoil – формирует запрос Modbus RTU для функции mbfWriteCoil
- ADevAddr – адрес устройства
- ACoilNum – адрес дискретного регистра
- AData – значение для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUWriteCoils(ADevAddr: byte; AStartCoil, ACount: Word;
  AData: TKRBytes; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMRTUWriteCoils – формирует запрос Modbus RTU для функции mbfWriteCoils
- ADevAddr – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- AData – значения для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUWriteHoldingRegister(ADevAddr: byte; AStartReg: Word;
  AData: Word; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMRTUWriteHoldingRegister – формирует запрос Modbus RTU для функции mbfWriteHoldingRegister
- ADevAddr – адрес устройства
- AStartReg – адрес регистра
- AData – значение для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMRTUWriteHoldingRegisters(ADevAddr: byte; AStartReg: Word;
  AData: TKRRegisters; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMRTUWriteHoldingRegisters – формирует запрос Modbus RTU для функции mbfWriteHoldingRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- AData – значения для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPReadCoils(ADevAddr: byte; AStartCoil, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMTCPReadCoils – формирует запрос Modbus TCP для функции mbfReadCoils
- ADevAddr – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPReadDiscretInputs(ADevAddr: byte; AStartInput, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMTCPReadDiscretInputs – формирует запрос Modbus TCP для функции mbfReadDiscretInputs
- ADevAddr – адрес устройства
- AStartInput – адрес начального дискретного входа
- ACount – количество дискретных входов
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPReadHoldingRegisters(ADevAddr: byte; AStartReg, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMTCPReadHoldingRegisters – формирует запрос Modbus TCP для функции mbfReadHoldingRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPReadInputRegisters(ADevAddr: byte; AStartReg, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMTCPReadInputRegisters – формирует запрос Modbus TCP для функции mbfReadInputRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPReadStatus(ADevAddr: byte; ABuffer: PKRBuffer;
  out ARecvLen: Byte): Byte;

MBMTCPReadStatus – формирует запрос Modbus TCP для функции mbfReadStatus
- ADevAddr – адрес устройства
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPUserFunction(ADevAddr: byte; AFunc: byte; AData: PKRBuffer;
  ADataLen: integer; ABuffer: PKRBuffer): Byte;

MBMTCPUserFunction – формирует запрос Modbus TCP для пользовательской(не стандартной) функции
- ADevAddr – адрес устройства
- AFunc – номер функции
- AData – указатель на буфер с данными пакета
- ADataLen – длина пакета данных
- ABuffer – буфер, в который записывается сформированный пакет

function MBMTCPWriteCoil(ADevAddr: byte; ACoilNum: Word;
  AData: boolean; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMTCPWriteCoil – формирует запрос Modbus TCP для функции mbfWriteCoil
- ADevAddr – адрес устройства
- ACoilNum – адрес дискретного регистра
- AData – значение для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPWriteCoils(ADevAddr: byte; AStartCoil, ACount: Word;
  AData: TKRBytes; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMTCPWriteCoils – формирует запрос Modbus TCP для функции mbfWriteCoils
- ADevAddr – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- AData – значения для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPWriteHoldingRegister(ADevAddr: byte; AStartReg: Word;
  AData: Word; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMTCPWriteHoldingRegister – формирует запрос Modbus TCP для функции mbfWriteHoldingRegister
- ADevAddr – адрес устройства
- AStartReg – адрес регистра
- AData – значение для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMTCPWriteHoldingRegisters(ADevAddr: byte; AStartReg: Word;
  AData: TKRRegisters; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMTCPWriteHoldingRegisters – формирует запрос Modbus TCP для функции mbfWriteHoldingRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- AData – значения для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIReadCoils(ADevAddr: byte; AStartCoil, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMASCIIReadCoils – формирует запрос Modbus ASCII для функции mbfReadCoils
- ADevAddr – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIReadDiscretInputs(ADevAddr: byte; AStartInput, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMASCIIReadDiscretInputs – формирует запрос Modbus ASCII для функции mbfReadDiscretInputs
- ADevAddr – адрес устройства
- AStartInput – адрес начального дискретного входа
- ACount – количество дискретных входов
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIReadHoldingRegisters(ADevAddr: byte; AStartReg, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMASCIIReadHoldingRegisters – формирует запрос Modbus ASCII для функции mbfReadHoldingRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIReadInputRegisters(ADevAddr: byte; AStartReg, ACount: Word;
  ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMASCIIReadInputRegisters – формирует запрос Modbus ASCII для функции mbfReadInputRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIReadStatus(ADevAddr: byte; ABuffer: PKRBuffer;
  out ARecvLen: Byte): Byte;

MBMASCIIReadStatus – формирует запрос Modbus ASCII для функции mbfReadStatus
- ADevAddr – адрес устройства
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIUserFunction(ADevAddr: byte; AFunc: byte; AData: PKRBuffer;
  ADataLen: integer; ABuffer: PKRBuffer): Byte;

MBMASCIIUserFunction – формирует запрос Modbus ASCII для пользовательской(не стандартной) функции
- ADevAddr – адрес устройства
- AFunc – номер функции
- AData – указатель на буфер с данными пакета
- ADataLen – длина пакета данных
- ABuffer – буфер, в который записывается сформированный пакет

function MBMASCIIWriteCoil(ADevAddr: byte; ACoilNum: Word;
  AData: boolean; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMASCIIWriteCoil – формирует запрос Modbus ASCII для функции mbfWriteCoil
- ADevAddr – адрес устройства
- ACoilNum – адрес дискретного регистра
- AData – значение для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIWriteCoils(ADevAddr: byte; AStartCoil, ACount: Word;
  AData: TKRBytes; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMASCIIWriteCoils – формирует запрос Modbus ASCII для функции mbfWriteHoldingRegister
- ADevAddr – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- AData – значения для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIWriteHoldingRegister(ADevAddr: byte; AStartReg: Word;
  AData: Word; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMASCIIWriteHoldingRegister – формирует запрос Modbus ASCII для функции mbfWriteHoldingRegister
- ADevAddr – адрес устройства
- AStartReg – адрес регистра
- AData – значение для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function MBMASCIIWriteHoldingRegisters(ADevAddr: byte; AStartReg: Word;
  AData: TKRRegisters; ABuffer: PKRBuffer; out ARecvLen: Byte): Byte;

MBMASCIIWriteHoldingRegisters – формирует запрос Modbus ASCII для функции mbfWriteHoldingRegisters
- ADevAddr – адрес устройства
- AStartReg – адрес начального регистра
- AData – значения для записи
- ABuffer – буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

Классы

Класс TKRModbusMaster

Родительский класс TComponent

TKRModbusMaster – клиентская части протокола Modbus. Формирует пакет набора стандартных функций протокола с последующей отправкой на Slave-устройство. Полученный ответ проверяет на наличие ошибок и разбивает на составные части.

Свойства класса TKRModbusMaster

property Active: boolean;

Active – включение/выключение

property QueueCount: integer;

QueueCount – количество пакетов в очереди на отправку. Свойство только для чтения

property Connector: TKRConnector;

Connector – подключение модуля для передачи данных

property WaitTime: Cardinal;

WaitTime – задержка между циклами в потоке модуля (см. TKRThread)

property WaitPauseTime: Cardinal;

WaitPauseTime – задержка между циклами в потоке модуля в пассивном режиме (см. TKRThread)

property CheckID: boolean;

CheckID – включение/выключение идентификации пакетов. Используется только в Mobus TCP

Методы класса TKRModbusMaster

function ErrorMsg(AError: integer; var ALevel: String): String;

ErrorMsg – получение сообщение об ошибки по её коду
- AError – код ошибки
- ALevel – исходящая переменная, содержит информацию о обработчике в котором возникла ошибка. Может возвращать следующие значения: «Ошибка прибора», «Ошибка обработки данных», «Ошибка передачи данных»

procedure ReadReadCoils(AMBType: TMBType; AAddres: byte; AStartCoil, ACount: Word;
  ACallBack: TMBMCallBack);

ReadReadCoils – отправляет запрос на выполнение функции чтение состояния группы дискретных регистров
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure ReadDiscretInputs(AMBType: TMBType; AAddres: byte; AStartInput, ACount: Word;
  ACallBack: TMBMCallBack);

ReadDiscretInputs – отправляет запрос на выполнение функции чтение состояния группы дискретных входов
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartInput – адрес начального дискретного входа
- ACount – количество дискретных входов
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure ReadHoldingRegisters(AMBType: TMBType; AAddres: byte; AStartReg, ACount: Word;
  ACallBack: TMBMCallBack);

ReadHoldingRegisters – отправляет запрос на выполнение функции чтение значения группы регистров
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure ReadInputRegisters(AMBType: TMBType; AAddres: byte; AStartReg, ACount: Word;
  ACallBack: TMBMCallBack);

ReadInputRegisters – отправляет запрос на выполнение функции чтение значения группы входящих регистров
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure ReadStatus(AMBType: TMBType; AAddres: byte; ACallBack: TMBMCallBack);

ReadStatus – отправляет запрос на получение статуса удаленного устройства
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure UserFunction(AMBType: TMBType; AAddres: byte; AFunc: byte; AData: PKRBuffer;
  ADataLen: integer; ACallBack: TMBMCallBack);

UserFunction – отправляет запрос на выполнение пользовательской функции
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AFunc – номер функции
- AData – указатель на буфер с данными пакета
- ADataLen – длина пакета данных
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure WriteCoil(AMBType: TMBType; AAddres: byte; ACoilNum: Word; AData: boolean;
  ACallBack: TMBMCallBack);

WriteCoil – отправляет запрос на выполнение функции записи состояния дискретного регистра
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- ACoilNum – адрес дискретного регистра
- AData – значение для записи
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure WriteCoils(AMBType: TMBType; AAddres: byte; AStartCoil, ACount: Word; AData: TKRBytes;
  ACallBack: TMBMCallBack);

WriteCoils – отправляет запрос на выполнение функции записи состояния группы дискретных регистров
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- AData – значения для записи
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure WriteHoldingRegister(AMBType: TMBType; AAddres: byte; AStartReg: Word; AData: Word;
  ACallBack: TMBMCallBack);

WriteHoldingRegister – отправляет запрос на выполнение функции записи значения в регистр
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartReg – адрес регистра
- AData – значение для записи
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure WriteHoldingRegisters(AMBType: TMBType; AAddres: byte; AStartReg: Word; AData: TKRRegisters;
  ACallBack: TMBMCallBack);

WriteHoldingRegisters – отправляет запрос на выполнение функции записи данных в группу регистров
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartReg – адрес начального регистра
- AData – значения для записи
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа

procedure SendPack(AMBType: TMBType; AFunc: TMBFunc; APPack: PKRBuffer; APkLen: byte; ACallBack: TMBMCallBack; ARecvLen: byte);

SendPack – отправляет ранее сформированный запрос
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AFunc – код функции
- APPack – указатель на буфер с запросом
- APkLen – длина запроса
- ACallBack – обратная функция типа TMBMCallBack, будет вызвана после обработки ответа
- ARecvLen – длина пакета с ответом на этот запрос

function ReadReadCoilsPack(AMBType: TMBType; AAddres: byte; AStartCoil, ACount: Word;
  APPack: PKRBuffer; out ARecvLen: byte): byte;

ReadReadCoilsPack – формирование пакета функции чтение состояния группы дискретных регистров. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function ReadDiscretInputsPack(AMBType: TMBType; AAddres: byte; AStartInput, ACount: Word;
  APPack: PKRBuffer; out ARecvLen: byte): byte;

ReadDiscretInputsPack – формирование пакета функции чтение состояния группы дискретных входов. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartInput – адрес начального дискретного входа
- ACount – количество дискретных входов
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function ReadHoldingRegistersPack(AMBType: TMBType; AAddres: byte; AStartReg, ACount: Word;
  APPack: PKRBuffer; out ARecvLen: byte): byte;

ReadHoldingRegistersPack – ормирование пакета функции чтение значения группы регистров. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function ReadInputRegistersPack(AMBType: TMBType; AAddres: byte; AStartReg, ACount: Word;
  APPack: PKRBuffer; out ARecvLen: byte): byte;

ReadInputRegistersPack – формирование пакета функции чтение значения группы входящих регистров. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartReg – адрес начального регистра
- ACount – количество регистров
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function ReadStatusPack(AMBType: TMBType; AAddres: byte; APPack: PKRBuffer;
  out ARecvLen: byte): byte;

ReadStatusPack – формирование пакета функции статуса удаленного устройства. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function UserFunctionPack(AMBType: TMBType; AAddres: byte; AFunc: byte; AData: PKRBuffer;
  ADataLen: integer; APPack: PKRBuffer): byte;

UserFunctionPack – формирование пакета пользовательской функции. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AFunc – номер функции
- AData – указатель на буфер с данными пакета
- ADataLen – длина пакета данных
- APPack – указатель на буфер, в который записывается сформированный пакет

function WriteCoilPack(AMBType: TMBType; AAddres: byte; ACoilNum: Word; AData: boolean;
  APPack: PKRBuffer; out ARecvLen: byte): byte;

WriteCoilPack – формирование пакета функции записи состояния дискретного регистра. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- ACoilNum – адрес дискретного регистра
- AData – значение для записи
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function WriteCoilsPack(AMBType: TMBType; AAddres: byte; AStartCoil, ACount: Word; AData: TKRBytes;
  APPack: PKRBuffer; out ARecvLen: byte): byte;

WriteCoilsPack – формирование пакета функции записи состояния группы дискретных регистров. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartCoil – адрес начального дискретного регистра
- ACount – количество дискретных регистров
- AData – значения для записи
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function WriteHoldingRegisterPack(AMBType: TMBType; AAddres: byte; AStartReg: Word; AData: Word;
  APPack: PKRBuffer; out ARecvLen: byte): byte;

WriteHoldingRegisterPack – формирование пакета функции записи значения в регистр. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartReg – адрес регистра
- AData – значение для записи
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

function WriteHoldingRegistersPack(AMBType: TMBType; AAddres: byte; AStartReg: Word; AData: TKRRegisters;
  APPack: PKRBuffer; out ARecvLen: byte): byte;

WriteHoldingRegistersPack – формирование пакета функции записи данных в группу регистров. Возвращает длину пакета
- AMBType – значение типа TMBType, указывает на тип Modbus протокола
- AAddres – адрес устройства
- AStartReg – адрес начального регистра
- AData – значения для записи
- APPack – указатель на буфер, в который записывается сформированный пакет
- ARecvLen – длина пакета с ответом на этот запрос

Примеры использования:

Вход

Комментировать

Вначале новые

Всего комментариев:

Дмитрий Левин

20.03.2019 01:32

Здравствуйте Руслан!
Я начал изучать вопросы написания прогамы опроса устройства по протоколу Modbus TCP, в качестве основных компонентов опроса решил использовать Ваши компоненты.
За основу взял, Ваш пример опроса Овеновского устройства переделав его на TCP/
Устройство с которым, я работаю имеет большое количество регистров, потому решил в таймере, опрашивать сразу целый массив регистров начиная с регистра 100 по 160.
Для этого в таймере я вызываю функцию ReadHoldingRegisters:

Procedure TForm1.CallBack(AError: integer; AData: Pointer);
begin // функция, которая будет вызвана после обработки запросА
  if AError = 0 then
  begin
    Uda := TKRRegisters(AData^)[2]*0.1;
    Ida := TKRRegisters(AData^)[56]*0.01;
    Fua := TKRRegisters(AData^)[5]*0.01;


  end else
    StatusBar1.Panels[1].Text := MB_PARSER_ERRORS_MSG[AError];
end;

procedure TForm1.KRTimer1Timer(Sender: TObject);
begin
  try
    Inc(FCountRead);
    KRModbusMaster1.ReadHoldingRegisters(mbtTCP, 1, 100, 60, CallBack);
 except
    ShowMessage('Ошибочка.. ');

  end;
  // Выводим состояние подключения в строку статуса
  StatusBar1.Panels[0].Text:=_is(KRTCPConnector1.Stat=cstConnected,
    'Connected','No connection');

  Memo1.Clear;
  Memo1.Lines.Add(' Ua = ' + FloatToStrF(Uda, ffNumber, 5, 2));
  Memo1.Lines.Add(' Fua = ' + FloatToStrF(Fua, ffNumber, 5, 2));
  Memo1.Lines.Add(' Ia = ' + FloatToStrF(Ida, ffNumber, 5, 2));
end;

Опрос проводится со скоростью 100мс. Все бы ничего, но спустя очень короткое время (от 4сек до нескольких минут) вылетает ошибка access violation at address XXXX in module..
после чего компилятор меня переносит в модуль KRModbusMaster, (строка 2380) на метод

procedure TKRMBThread._CallBack(AError: integer; APack: PKRBuffer;

конкретно сюда:

if Assigned(_Data^.CallBack) then _Data^.CallBack(_err,p); // Здесь точка прерывания ошибки!
  except on E: Exception do
    FModbus.DoRuntimeError('TKRMBThread[FModbus.Name="'+
      FModbus.Name+'"] procedure _CallBack; ',E);
  end;

В чем может быть причина этой ошибки, или что я не доделал так чтобы решить задачу чтения регистров??
Спасибо за внимание!
С уважением Дмитрий!

Показать полностью

ответить

Руслан Кандирал

20.03.2019 10:26

Дмитрий Левин

Процедура
Procedure TForm1.CallBack(AError: integer; AData: Pointer);
вызывается не из основного потока. По этому нужно соблюсти правила синхронизации потоков. Из параллельного потока нельзя обращаться к визуальным компонентам. В вашем случае скорее всего ошибку вызвала строка
StatusBar1.Panels[1].Text := MB_PARSER_ERRORS_MSG[AError];

Я думаю тут подошла бы синхронизация через сообщения Windows. Плюс, желательно останавливать таймер на время выполнения запроса, так как если вдруг получится так, что время обработки запроса будет больше времени срабатывания таймера, то будет переполняться очередь запросов. Я бы сделал это так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

const
  WM_MBCALLBACK = WM_USER+1;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure WMMBCallback(var Message: TMessage); message WM_MBCALLBACK;
    procedure CallBack(AError: integer; AData: Pointer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyFormHandle: HWND;

implementation

{$R *.dfm}

procedure TForm1.CallBack(AError: integer; AData: Pointer);
begin
  if AError = 0 then begin
    Uda := TKRRegisters(AData^)[2]*0.1;
    Ida := TKRRegisters(AData^)[56]*0.01;
    Fua := TKRRegisters(AData^)[5]*0.01;


  end;
  SendMessage(MyFormHandle,WM_MBCALLBACK,AError,0);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  KRModbusMaster1.Active:=false;
  KRTCPConnector1.Active:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyFormHandle:=Handle;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  KRTCPConnector1.Active:=true;
  KRModbusMaster1.Active:=true;
  Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false;

  Inc(FCountRead);
  KRModbusMaster1.ReadHoldingRegisters(mbtTCP, 1, 100, 60, CallBack);

  // Выводим состояние подключения в строку статуса
  StatusBar1.Panels[0].Text:=_is(KRTCPConnector1.Stat=cstConnected,
    'Connected','No connection');
end;

procedure TForm1.WMMBCallback(var Message: TMessage);
begin
  if Message.WParam=0 then begin
    Memo1.Clear;
    Memo1.Lines.Add(' Ua = ' + FloatToStrF(Uda, ffNumber, 5, 2));
    Memo1.Lines.Add(' Fua = ' + FloatToStrF(Fua, ffNumber, 5, 2));
    Memo1.Lines.Add(' Ia = ' + FloatToStrF(Ida, ffNumber, 5, 2));
  end else StatusBar1.Panels[1].Text := MB_PARSER_ERRORS_MSG[Message.WParam];

  Timer1.Enabled:=true;
end;

end.

Показать полностью

ответить

Дмитрий Левин

26.03.2019 22:58

Руслан Кандирал

Прежде всего благодарю за развернутый и быстрый ответ, и прошу прощения за запоздалый ответ (не имел возможностей вдумчиво ответить).
Надо будет както более глубоко изучить Ваш труд и поучаствовать в написании примеров и справки к Вашим компонентам.
Как я понял из вашего примера идея такая:
1. Вначале, из любого удобного места приложения, по мере надобности передаем запрос на чтение, необходимой группы регистров - командой ReadHoldingRegisters.
2. В пользовательской функции обратного вызова CallBack, мы принимаем и дешифруем данные с группы регистров. При этом действия функции CallBack происходят в пределах другого потока, и для того чтобы сообщить основному приложению о завершении этой работы, мы посылаем ему сообщение WM_MBCALLBACK.
3.В предварительно прописанном методе WMMBCallback, производим обработку полученных данных, например вывод на пользовательский интерфейс.

Т.е. требуется опрос Modbus устройства оформить в трех фазах.

Еще раз благодарю за внимание и оперативные ответы, и прошу прощения за не своевременный ответ.

Показать полностью

ответить

Руслан Кандирал

26.03.2019 23:36

Дмитрий Левин

1. Да. Желательно поставить опрос хотя бы одного регистра в цикл для поддержания коннекта, а остальные уже опрашивать по мере необходимости.
2. Да, CallBack вызывается из другого потока. С помощью SendMessage мы приостанавливаем этот поток пока окно которому принадлежит Handle не обработает запрос.
3. Да.

Ещё можно сделать так

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure CallBack(AError: integer; AData: Pointer);
  public
    { Public declarations }
    Uda, Ida, Fua: double;
    mbError: integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CallBack(AError: integer; AData: Pointer);
begin
  if AError = 0 then begin
    Uda := TKRRegisters(AData^)[2]*0.1;
    Ida := TKRRegisters(AData^)[56]*0.01;
    Fua := TKRRegisters(AData^)[5]*0.01;
  end;
  mbError:=AError;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  KRModbusMaster1.Active:=false;
  KRTCPConnector1.Active:=false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  KRTCPConnector1.Active:=true;
  KRModbusMaster1.Active:=true;
  Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(FCountRead);
  KRModbusMaster1.ReadHoldingRegisters(mbtTCP, 1, 100, 60, CallBack);

  // Выводим состояние подключения в строку статуса
  StatusBar1.Panels[0].Text:=_is(KRTCPConnector1.Stat=cstConnected,
    'Connected','No connection');

  Memo1.Clear;
  Memo1.Lines.Add(' Ua = ' + FloatToStrF(Uda, ffNumber, 5, 2));
  Memo1.Lines.Add(' Fua = ' + FloatToStrF(Fua, ffNumber, 5, 2));
  Memo1.Lines.Add(' Ia = ' + FloatToStrF(Ida, ffNumber, 5, 2));
  
  StatusBar1.Panels[1].Text := MB_PARSER_ERRORS_MSG[mbError];
end;

end.

Показать полностью

ответить

Валентин Викторович

29.12.2017 06:17

Так работать не хочет, ошибки не выводятся в listbox. Сделал немного по другому. Обрабатываю непосредственно ошибки тэгов.

for i := 0 to length(TCPModbusClient)-1 do
begin
  for j := 0 to length(TCPtag[i])-1 do
  begin
    if TCPtag[i,j].Error<>0 then
    begin
      ListBox1.Items.Add( TCPtag[i,j].ErrorMsg+' '+inttostr(TCPtag[i,j].Error)) 
    end;
  end;
end;

Показать полностью

ответить

Валентин Викторович

28.12.2017 07:57

Добрый день, подскажите пожалуйста, Каким образом вытащить сообщения об ошибке и передать их в listbox. Спасибо

Показать полностью

ответить

Руслан Кандирал

28.12.2017 09:18

Валентин Викторович

Для начала вам нужно получить код ошибки, он приходит в callback функции. Пример:

var
  _error: integer;

procedure TForm1.cb(AError: integer; AData: Pointer);
begin
  _error:=AError;
end;

Код ошибки передаем в заранее созданную переменную. Из callback функции обращаться к визуальным компонентам нельзя, так как она вызывается не из основного потока.

Затем с помощью таймера можно сделать так:

procedure TForm1.OnTimer(Sender: TObject);
var
  msg, s: String;
begin
  if _error<>0 then begin
    msg:=KRModbusMaster1.ErrorMsg(_error,s);
    ListBox1.Items.Add('['+IntToStr(_error)+']'+s+': '+msg);
    _error:=0;
  end;
end;

Показать полностью

ответить

Поиск по сайту

KRModbusMaster.pas

Константы

Типы данных

Функции

Классы

Класс TKRModbusMaster

Свойства класса TKRModbusMaster

Методы класса TKRModbusMaster

Примеры использования:

Новости сайта

Популярные статьи

Популярные загрузки