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

Funciones exportadas (declaraciones pascal) : {* Leer datos estándar desde el dispositivo MODBUS *} función GetMBData(const SlaveAddr : byte; const ReadType : boolean; var Data : array[0..254] of byte) : integer; stdcall; SlaveAddr : byte (1..254) ReadType : boolean (false=Bobinas / true=Registros de Sostenimiento) Data : array[0..254] of byte (datos del dispositivo) Retorno integer (0=OK) {* Leer datos extendidos desde el dispositivo MODBUS *} función GetMBDataEx(const SlaveAddr : word; const ReadType : word) : pointer; stdcall; SlaveAddr : word (1..254) ReadType : word (0=Bobinas / 1=Registros de Sostenimiento) Retorno puntero de 255 bytes (datos del dispositivo o 0=Error) {* Leer datos desde el dispositivo MODBUS en VBA (Microsoft Visual Basic) *} función GetMBDataVBA(const SlaveAddr : LongInt; const ReadType : LongInt) : pointer; stdcall; SlaveAddr : longint (1..254) ReadType : longint (0=Bobinas / 1=Registros de Sostenimiento) Retorno puntero de 255 bytes (datos del dispositivo o 0=Error) {* Escribir datos estándar en el dispositivo MODBUS *} función PutMBData(const SlaveAddr : byte; const WriteType : boolean; const DataAddr : byte; const Data : word) : integer; stdcall; SlaveAddr : byte (1..254) WriteType : boolean (false=Bobina / true=Registro de Sostenimiento) DataAddr : byte (1..255) Data : word Retorno integer (código de estado >=0=OK) {* Escribir datos en el dispositivo MODBUS en VBA (Microsoft Visual Basic) *} función PutMBDataVBA(const SlaveAddr : longint; const WriteType : longint; const DataAddr : longint; const Data : longint) : longint; stdcall; SlaveAddr : longint (1..254) WriteType : longint (0=Bobina / 1=Registro de Sostenimiento) DataAddr : longint (1..255) Data : longint Retorno longint (código de estado >=0=OK).