TModBusTCPConnection.ReadInputRegisters
| TModBusTCPConnection = class (TObject) | Interface de TModBusTCPConnection | Exemples de TModBusTCPConnection |
Qubes 6.0 Lecture de plusieurs registres d'entrée consécutifs
Syntaxe
function ReadInputRegisters(startingAddress: Integer; nbWords: Integer; lstWords: TIntegerList): Boolean
startingAddress: numéro du premier registre lu (entre 0 et 65535)
nbWords: nombre de registres à lire (entre 1 et 125)
lstWords: liste qui contiendra les nbWords entiers 16-bits lus
Remarques
Lecture d'une liste de Input Registers.
La TIntegerList lstWords contiendra les nbWords mots de 16-bits lus.
La fonction renvoie True si la lecture s'est bien passée.
Pour lire un seul registre, il est plus simple d'utiliser ReadInputRegister.
Exemples
uses SysUtils, Networking.Modbus;
var lst := new TIntegerList;
var mdb:=TModBusTCPConnection.Connect('192.168.0.32');
Sleep(500);
if mdb.Connected then begin
mdb.ReadInputRegisters(0, 10, lst);
Print(lst.AsString); // Affiche les 10 entiers, séparés par des ;
end;
var lst := new TIntegerList;
var mdb:=TModBusTCPConnection.Connect('192.168.0.32');
Sleep(500);
if mdb.Connected then begin
mdb.ReadInputRegisters(0, 10, lst);
Print(lst.AsString); // Affiche les 10 entiers, séparés par des ;
end;