KRModbus.pas

Константы

MB_QUEUE_MAX_ITEMS – максимальное количество пакетов в очереди на отправку
MB_ERRORS_COUNT – количество стандартных ошибок протокола Modbus
MBERR_OK – ошибка отсутствует
MBERR_ILLEGAL_FUNCTION – недопустимый номер функции
MBERR_ILLEGAL_DATA_ADDRESS – некорректный адрес устройства
MBERR_ILLEGAL_DATA_VALUE – некорректное значение в пакете
MBERR_FAILURE_IN_ASSOCIATED_DEVICE – отказ оборудования удаленного устройства
MBERR_ACKNOWLEDGE – данные не готовы
MBERR_BUSY_REJECTED_MESSAGE – система занята
MBERR_NAK_NEGATIVE_ACKNOWLEDGMENT – отрицательное квитирование
MBERR_MEMORY_PARITY_ERROR – ошибка четности памяти
MODBUS_ERRORS_MSG – список сообщений о ошибках
mbfReadCoils – функция чтение состояния группы дискретных регистров
mbfReadDiscretInputs – функция чтение состояния группы дискретных входов
mbfReadHoldingRegisters – функция чтение значения регистров
mbfReadInputRegisters – функция чтение значения входящих регистров
mbfWriteCoil – функция записи состояния дискретного регистра
mbfWriteHoldingRegister – функция записи значения в регистр
mbfReadStatus – функция запроса статуса устройства
mbfWriteCoils – функция записи состояния группы дискретных регистров
mbfWriteHoldingRegisters – функция записи данных в группу регистров

Типы данных

TModbusError – ошибки Modbus протокола
TMBFunc – стандартный набор функций протокола Modbus
TMBType – тип протокола Modbus
- mbtRTU – протокол Modbus RTU
- mbtTCP – протокол Modbus TCP
- mbtASCII – протокол Modbus ASCII

Функции

function MBLRC(ABuffer: PKRBuffer; ALength: byte): byte;

MBLRC – расчет контрольной суммы для Modbus ASCII
- ABuffer – буфер, содержащий пакет Modbus ASCII
- ALength – длина пакета

function MBRegsToBYTE(AData: TKRRegisters; AHighByteFirst: boolean = true): Byte;

MBRegsToBYTE – преобразование регистра в тип Byte
- AData – массив регистров
- AHighByteFirst – последовательность байт в славе

function MBRegsToWORD(AData: TKRRegisters; AHighByteFirst: boolean = true): WORD;

MBRegsToWORD – преобразование регистра в тип Word
- AData – массив регистров
- AHighByteFirst – последовательность байт в славе

function MBRegsToDWORD(AData: TKRRegisters; AHighWordFirst: boolean = false;
  AHighByteFirst: boolean = true): Cardinal;

MBRegsToDWORD – преобразование регистра в тип DWORD
- AData – массив регистров
- AHighWordFirst – последовательность слов
- AHighByteFirst – последовательность байт в каждом слове

function MBRegsToSMALLINT(AData: TKRRegisters; AHighByteFirst: boolean = true): Smallint;

MBRegsToSMALLINT – преобразование регистра в тип SmallInt
- AData – массив регистров
- AHighByteFirst – последовательность байт в слове

function MBRegsToINT(AData: TKRRegisters; AHighWordFirst: boolean = false;
  AHighByteFirst: boolean = true): Integer;

MBRegsToINT – преобразование регистра в тип Integer
- AData – массив регистров
- AHighWordFirst – последовательность слов
- AHighByteFirst – последовательность байт в каждом слове

function MBRegsToINT64(AData: TKRRegisters; AHighDWordFirst: boolean = false;
  AHighWordFirst: boolean = true; AHighByteFirst: boolean = true): Int64;

MBRegsToINT64 – преобразование регистра в тип Int64
- AData – массив регистров
- AHighDWordFirst – последовательность двойных слов
- AHighWordFirst – последовательность слов
- AHighByteFirst – последовательность байт в каждом слове

function MBRegsToUINT64(AData: TKRRegisters; AHighDWordFirst: boolean = false;
  AHighWordFirst: boolean = true; AHighByteFirst: boolean = true): UInt64;

MBRegsToUINT64 – преобразование регистра в тип UInt64
- AData – массив регистров
- AHighDWordFirst – последовательность двойных слов
- AHighWordFirst – последовательность слов
- AHighByteFirst – последовательность байт в каждом слове

function MBRegsToSINGLE(AData: TKRRegisters; AHighWordFirst: boolean = false;
  AHighByteFirst: boolean = true): Single;

MBRegsToSINGLE – преобразование регистра в тип Single
- AData – массив регистров
- AHighWordFirst – последовательность слов
- AHighByteFirst – последовательность байт в каждом слове

function MBRegsToDOUBLE(AData: TKRRegisters; AHighDWordFirst: boolean = false;
  AHighWordFirst: boolean = true; AHighByteFirst: boolean = true): Double;

MBRegsToDOUBLE – преобразование регистра в тип Double
- AData – массив регистров
- AHighDWordFirst – последовательность двойных слов
- AHighWordFirst – последовательность слов
- AHighByteFirst – последовательность байт в каждом слове

function MBRegsToSTRING(AData: TKRRegisters; AHighByteFirst: boolean = true): String;

MBRegsToSTRING – преобразование регистра в строку
- AData – массив регистров
- AHighByteFirst – последовательность байт

Вход

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

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

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

Sergej Ivanov

24.03.2022 15:35

Здравствуйте!
Делаю расфасовщик полученного по ModbusRTU массива переменных. Подскажите пожалуйста, как наиболее удобно скармливать функциям преобразования (таким как MBRegsToSINGLE) массив TKRRegisters начиная не с нулевого элемента.

Прилагаю неработающий код для примера. Компилятор ругается так как функция преобразования требует параметр типа TKRRegisters, а получает Word

procedure TDev2295.DeviceScanCallBack(AError: integer; AData: Pointer);
  begin
     if AError = 0 then begin
        rNewVariableStack.wDevID :=    MBRegsToWORD(TKRRegisters(AData^),true);
        rNewVariableStack.wState1Full := MBRegsToWORD(TKRRegisters(AData^)[1],true);
        rNewVariableStack.wProgramBuild := rNewVariableStack.wState1Full AND $001F;
        rNewVariableStack.M3_ComplianceRate := MBRegsToSINGLE(TKRRegisters(Adata^)[6],false, true);
        rNewVariableStack.dtDateTimeUnix := MBRegsToDWORD(TKRRegisters(Adata^)[16], false, true);

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

ответить

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

24.03.2022 19:06

Sergej Ivanov

Здравствуйте!

Попробуйте так:

procedure TMainForm.DeviceScanCallBack(AError: integer; AData: Pointer);
var
  wDevID, wState1Full : Word;
  M3_ComplianceRate, dtDateTimeUnix: Single;
  dw: Cardinal;
begin
  wDevID := TKRRegisters( AData^ )[ 0 ];
  wState1Full := TKRRegisters( AData^ )[ 1 ];
  dw := ( Cardinal( TKRRegisters( AData^ )[ 7 ] ) shl 16 ) or TKRRegisters( AData^ )[ 6 ];
  M3_ComplianceRate := PSingle( @dw )^;
  dw := ( Cardinal( TKRRegisters( AData^ )[ 17 ] ) shl 16 ) or TKRRegisters( AData^ )[ 16 ];
  dtDateTimeUnix := PSingle( @dw )^;
end;

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

ответить

alex Misst

14.09.2021 18:45

добрый день! скажите функция MBRegsToSINGLE – преобразование регистра в тип Single
это реализация hex to IEEE754 (Dword to Float) ?

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

ответить

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

14.09.2021 19:10

alex Misst

Здравствуйте!
Да DWORD в IEEE754

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

ответить

Ян Иванцев

24.06.2020 12:40

Здравствуйте! Скажите, пожалуйста, возможно ли присвоить какое либо событие (OnChange и т.g.) полю TKRField? У меня при попытке выдает сообщение "Cannot create a method for an unnamed component". Спасибо!

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

ответить

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

24.06.2020 12:53

Ян Иванцев

Здравствуйте! Да можно, я только что у себя проверил. Тем более, что данное событие не перегружается в классе TKRField, оно берется из родительского класса TCustomEdit.
Судя по сообщению об ошибке, ваш компонент(KRField) не имеет имени. Такое обычно получается с дочерними(подкомпонентами). Скорее всего проблема где-то в вашем проекте.

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

ответить

Ян Иванцев

24.06.2020 13:17

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

Да, так и было. Спасибо!!!

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

ответить

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

KRModbus.pas

Константы

Типы данных

Функции

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

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

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