MODBUS eszközök R / W adatok elérése [MBusDrv.dll] könyvtárral.
Exportált funkciók (pascal nyilatkozatok):
{* Szabványos olvasási adatok a MODBUS készüléktől *}
function GetMBData (const SlaveAddr: byte; const ReadType: boolean; var Adatok: tömb [0..254] byte): egész; stdcall;
SlaveAddr: byte (1..254)
ReadType: logikai (false = Tekercsek / true = Holding Registers)
Adatok: array [0..254] byte (eszközadatok)
Visszatérési érték (0 = OK)
{* Kiterjesztett adatok olvashatók a MODBUS eszközről *}
function GetMBDataEx (const SlaveAddr: szó; const ReadType: szó): mutató; stdcall;
SlaveAddr: szó (1..254)
ReadType: szó (0 = Tekercsek / 1 = Nyilvántartások)
255 bájtos visszaadási mutató (eszközadatok vagy 0 = hiba)
{* VBA (Microsoft Visual Basic) a MODBUS-eszköz adatainak olvasása *}
funkció GetMBDataVBA (const SlaveAddr: LongInt; const ReadType: LongInt): mutató; stdcall;
SlaveAddr: longint (1..254)
ReadType: longint (0 = Tekercsek / 1 = Holding Registerek)
255 bájtos visszaadási mutató (eszközadatok vagy 0 = hiba)
{* Standard írási adatok a MODBUS eszközhöz *}
függvény PutMBData (const SlaveAddr: byte; const WriteType: boolean; const AdatAddr: byte; const Adat: szó): egész; stdcall;
SlaveAddr: byte (1 ..254)
WriteType: logikai (false = Coil / true = Holding Register)
Adatok hozzáadása: byte (1..255)
Adatok: szó
Visszatérő egész szám (állapotkód> = 0 = OK)
{* VBA (Microsoft Visual Basic) az adatok írása a MODBUS eszközre *}
függvény PutMBDataVBA (const SlaveAddr: longint; const WriteType: longint; const AdatAddr: longint; const Adatok: longint): longint; stdcall;
SlaveAddr: longint (1..254)
WriteType: longint (0 = Coil / 1 = Holding Register)
DataAddr: longint (1..255)
Adatok: longint
Return longint (állapotkód> = 0 = OK)
Hozzászólás nem található