MODBUS toestelle R / W data toegang met [MBusDrv.dll] biblioteek.
Uitgevoerde funksies (pascal verklarings):
{* Standaard lees data vanaf MODBUS toestel *}
funksie GetMBData (const SlaveAddr: byte; const LeesTipe: boolean; var Data: array [0..254] van byte): integer; stdcall;
SlaafAddr: byte (1..254)
ReadType: Boolean (false = Coils / true = Holding Registers)
Data: skikking [0..254] van byte (toestel data)
Wys heelgetal (0 = OK)
{* Uitgebreide lees data van MODBUS toestel *}
funksie GetMBDataEx (const SlaveAddr: woord; const LeesTipe: woord): wyser; stdcall;
SlaweAddr: woord (1..254)
ReadType: woord (0 = Coils / 1 = Holding Registers)
Terugwyser van 255 byte (toesteldatas of 0 = fout)
{* VBA (Microsoft Visual Basic) lees data van MODBUS toestel *}
funksie GetMBDataVBA (const SlaveAddr: LongInt; const ReadType: LongInt): wyser; stdcall;
SlaweAddr: longint (1..254)
ReadType: longint (0 = Coils / 1 = Holding Registers)
Terugwyser van 255 byte (toesteldatas of 0 = fout)
{* Standaard skryf data na MODBUS toestel *}
funksie PutMBData (const SlaveAddr: byte; const SkryfTipe: boolean; const DataAddr: byte; const Data: woord): integer; stdcall;
SlaafAddr: byte (1 ..254)
SkryfTipe: Boolean (vals = Spoel / waar = Houregistreer)
DataAddr: byte (1..255)
Data: woord
Gee heelgetal terug (status kode> = 0 = OK)
{* VBA (Microsoft Visual Basic) skryf data na MODBUS toestel *}
funksie PutMBDataVBA (const SlaveAddr: longint; const SkryfTipe: longint; const DataAddr: longint; const Data: longint): longint; stdcall;
SlaweAddr: longint (1..254)
WriteType: longint (0 = Coil / 1 = Holding Register)
DataAddr: longint (1..255)
Data: longint
Keer terug (statuskode> = 0 = OK)
Kommentaar nie gevind