MODBUS cihazları [MBusDrv.dll] kitabxanası ilə R / W məlumatlarına giriş imkanı verir.
İxrac edilmiş funksiyalar (Paskal bəyanatları):
{* MODBUS cihazından standart məlumatları oxu *}
funksiyası GetMBData (const SlaveAddr: bayt; const ReadType: boolean; var Data: array [0..254] of byte): tamsayı; stdcall;
SlaveAddr: byte (1..254)
ReadType: boolean (səhv = Coils / true = Holding qeydləri)
Data: array [0..254] byte (cihaz datas)
Qayıtmaq tamsayı (0 = OK)
{* MODBUS cihazından geniş oxunuş məlumatları *}
funksiyası GetMBDataEx (const SlaveAddr: söz; const ReadType: söz): göstərici; stdcall;
SlaveAddr: sözü (1..254)
ReadType: söz (0 = Coils / 1 = Holding qeydləri)
255 bayt qaytarıcı göstərici (cihaz məlumatları və ya 0 = Səhv)
{* VBA (Microsoft Visual Basic) MODBUS cihazından məlumatları oxuyur *}
funksiyası GetMBDataVBA (const SlaveAddr: LongInt; const ReadType: LongInt): göstərici; stdcall;
SlaveAddr: longint (1..254)
ReadType: longint (0 = Coils / 1 = Holding qeydləri)
255 bayt qaytarıcı göstərici (cihaz məlumatları və ya 0 = Səhv)
{* MODBUS cihazına standart məlumat yazmaq *}
funksiyası PutMBData (const SlaveAddr: byte; const WriteType: boolean; const DataAddr: bayt; const Data: söz): integer; stdcall;
SlaveAddr: byte (1 ..254)
WriteType: boolean (səhv = Coil / true = Holding Qeydiyyat)
DataAddr: byte (1..255)
Məlumat: söz
Qayıtmaq tamsayı (status kodu> = 0 = OK)
{* VBA (Microsoft Visual Basic) MODBUS cihazına məlumat yazır *}
funksiyası PutMBDataVBA (const SlaveAddr: longint; const WriteType: longint; const DataAddr: longint; const Data: longint); longint; stdcall;
SlaveAddr: longint (1..254)
WriteType: longint (0 = Coil / 1 = Holding Qeydiyyat)
DataAddr: longint (1..255)
Məlumatlar: uzun müddət
Uzunluğu qaytarın (status kodu> = 0 = OK)
Şərhlər tapılmadı