MODBUS RTU Serial RS232/RS485 and TCP/IP for Windows

Устройства MODBUS достъп до данни от R / W с библиотека [MBusDrv.dll].

Експортирани функции (паскални декларации):

{* Стандартно четене на данни от устройство MODBUS *}
функция GetMBData (const SlaveAddr: байт; const Тип: boolean; var Данни: масив [0..254] на байт): цяло число; stdcall;
SlaveAddr: байт (1..254)
ReadType: boolean (false = Coils / true = Holding Registers)
Данни: масив [0..254] байт (данни за устройствата)
Обратно число (0 = ОК)

{* Разширени данни за четене от устройството MODBUS *}
функция GetMBDataEx (const SlaveAddr: дума; const ReadType: дума): указател; stdcall;
SlaveAddr: дума (1..254)
ReadType: дума (0 = Coils / 1 = Holding Registers)
Връщане на указател от 255 байта (данни за устройствата или 0 = Грешка)

{* VBA (Microsoft Visual Basic) чете данни от устройството MODBUS *}
функция GetMBDataVBA (const SlaveAddr: LongInt; const ReadType: LongInt): показалец; stdcall;
SlaveAddr: longint (1..254)
ReadType: longint (0 = Coils / 1 = Holding Registers)
Връщане на указател от 255 байта (данни за устройствата или 0 = Грешка)

{* Стандартни данни за запис на MODBUS устройство *}
функция PutMBData (const SlaveAddr: byte; const Тип напишете: boolean; const DataAddr: byte; const Данни: дума): integer; stdcall;
SlaveAddr: байт (1 ..254)
WriteType: boolean (false = Coil / true = Холдинг регистър)
DataAddr: байт (1..255)
Данни: дума
Обратно число (кода на състоянието> = 0 = OK)

{* VBA (Microsoft Visual Basic) записва данни на MODBUS устройство *}
функция PutMBDataVBA (const SlaveAddr: longint; константа WriteType: longint; const DataAddr: longint; const Данни: longint): longint; stdcall;
SlaveAddr: longint (1..254)
WriteType: longint (0 = Coil / 1 = Регистър на холдинга)
DataAddr: longint (1..255)
Данни: longint
Връщане на longint (код на състоянието> = 0 = OK)