MODBUS-Geräte R / W-Datenzugriff mit der Bibliothek [MBusDrv.dll].
Exportierte Funktionen (Pascal-Deklarationen):
{* Standardlesedaten vom MODBUS-Gerät *}
Funktion GetMBData (const SlaveAddr: byte; const ReadType: boolean; var Daten: array [0..254] von byte): integer; stdcall;
SlaveAddr: Byte (1..254)
ReadType: boolean (false = Coils / true = Halteregister)
Data: Array [0..254] von Byte (Gerätedaten)
Rückgabeganz (0 = OK)
{* Erweiterte Lesedaten vom MODBUS-Gerät *}
Funktion GetMBDataEx (const SlaveAddr: word; const ReadType: word): Zeiger; stdcall;
SlaveAddr: Wort (1..254)
ReadType: word (0 = Spulen / 1 = Halteregister)
Rückgabezeiger von 255 Byte (Gerätedaten oder 0 = Fehler)
{* VBA (Microsoft Visual Basic) liest Daten vom MODBUS-Gerät *}
Funktion GetMBDataVBA (const SlaveAddr: LongInt; const ReadType: LongInt): Zeiger; stdcall;
SlaveAddr: Longint (1..254)
ReadType: Longint (0 = Spulen / 1 = Halteregister)
Rückgabezeiger von 255 Byte (Gerätedaten oder 0 = Fehler)
{* Standard schreibe Daten an MODBUS-Gerät *}
Funktion PutMBData (const SlaveAddr: byte; const WriteType: boolesch; const DataAddr: byte; const Daten: word): integer; stdcall;
SlaveAddr: Byte (1 ..254)
WriteType: boolean (false = Coil / true = Halteregister)
DataAddr: Byte (1..255)
Daten: Wort
Rückgabeganz (Statuscode> = 0 = OK)
{* VBA (Microsoft Visual Basic) schreibt Daten an das MODBUS-Gerät *}
Funktion PutMBDataVBA (const SlaveAddr: longint; const WriteType: longint; const DataAddr: longint; const Data: longint): longint; stdcall;
SlaveAddr: Longint (1..254)
WriteType: Longint (0 = Spule / 1 = Halteregister)
DataAddr: Lange Ganzzahl (1..255)
Daten: Lange
Longint zurückgeben (Statuscode> = 0 = OK)
Kommentare nicht gefunden