MODBUS apparaten R / W data toegang met [MBusDrv.dll] bibliotheek.
Uitgevoerde functies (pascal aangiften):
{* Standaard lees data van MODBUS apparaat *}
functie GetMBData (const SlaveAddr: byte; const ReadType: boolean; var Gegevens: array [0..254] van byte): integer; STDCALL;
SlaveAddr: byte (1..254)
ReadType: boolean (false = Coils / true = Holding Registers)
Gegevens: array [0..254] van byte (apparaat data)
Retour integer (0 = OK)
{* Uitgebreide leesgegevens van MODBUS-apparaat *}
functie GetMBDataEx (const SlaveAddr: word; const ReadType: woord): aanwijzer; STDCALL;
SlaveAddr: woord (1..254)
ReadType: word (0 = Coils / 1 = Holding Registers)
Retourwijzer van 255 byte (apparaat data of 0 = fout)
{* VBA (Microsoft Visual Basic) lees data uit MODBUS-apparaat *}
functie GetMBDataVBA (const SlaveAddr: LongInt; const ReadType: LongInt): aanwijzer; STDCALL;
SlaveAddr: longint (1..254)
ReadType: longint (0 = Coils / 1 = Holding Registers)
Retourwijzer van 255 byte (apparaat data of 0 = fout)
{* Standaard schrijfgegevens naar MODBUS-apparaat *}
functie PutMBData (const SlaveAddr: byte; const WriteType: boolean; const DataAddr: byte; const Gegevens: woord): integer; STDCALL;
SlaveAddr: byte (1 ..254)
WriteType: Boolean (false = Coil / true = Holding Register)
DataAddr: byte (1..255)
Gegevens: woord
Retour integer (statuscode> = 0 = OK)
{* VBA (Microsoft Visual Basic) schrijf data naar MODBUS-apparaat *}
functie PutMBDataVBA (const SlaveAddr: longint; const SchrijfType: longint; const DataAddr: longint; const Data: longint): longint; STDCALL;
SlaveAddr: longint (1..254)
WriteType: longint (0 = Coil / 1 = Holding Register)
DataAddr: longint (1..255)
Gegevens: longint
Return longint (statuscode> = 0 = OK)
Reacties niet gevonden