TADAM6000.ReadAllCounterValues
| TADAM6000 = class (TObject) | Interface de TADAM6000 | Exemples de TADAM6000 |
Qubes 6.0 Lecture de toutes les compteurs
Syntaxe
function ReadAllCounterValues(lstCpt: TIntegerList): Boolean
lstCpt: TIntegerList contenant les valeurs des N compteurs
Remarques
- L'utilisation de cette fonction n'est possible que si le module possède des compteurs.
- lstCpt contient autant d'éléments que de compteurs sur le module.
- Le 1er élément correspond à la valeur de DICounter0, le 2ème correspond à la valeur de DICounter1, etc.
- NB : les données préalablement contenues dans lstCpt sont remplacées.
Exemples
uses SysUtils, Networking.ADAM;
var boitier : TADAM6000;
var lstValues : TIntegerList;
var i : Integer;
lstValues:=TIntegerList.Create;
boitier:=TADAM6000.ConnectModbusTCP('6052', '192.168.0.30');
try
// Attente que la connexion soit établie
while not boitier.Connected do begin
if i>=20 then Raise Exception.Create('Connexion impossible avec le module ADAM');
Sleep(100);
Inc(i);
end;
boitier.ReadAllCounterValues(lstValues);
InformationDlg(lstValues.AsString);
finally
boitier.Free;
lstValues.Free;
end;
var boitier : TADAM6000;
var lstValues : TIntegerList;
var i : Integer;
lstValues:=TIntegerList.Create;
boitier:=TADAM6000.ConnectModbusTCP('6052', '192.168.0.30');
try
// Attente que la connexion soit établie
while not boitier.Connected do begin
if i>=20 then Raise Exception.Create('Connexion impossible avec le module ADAM');
Sleep(100);
Inc(i);
end;
boitier.ReadAllCounterValues(lstValues);
InformationDlg(lstValues.AsString);
finally
boitier.Free;
lstValues.Free;
end;