TADAM6000.ReadAllGCLFlags

TADAM6000 = class (TObject)Interface de TADAM6000Exemples de TADAM6000

Qubes 6.0 Lecture de toutes les flags GCL

Syntaxe

function ReadAllGCLFlags(lstBits: TIntegerList): Boolean
lstBits: TIntegerList contenant les valeurs des N flags GCL

Remarques

  • L'utilisation de cette fonction n'est possible que si le module possède des flags GCL.
  • lstBits contient autant d'éléments que de flags GCL sur le module.
  • Chaque élément vaut 0 ou 1 en fonction de l'état du flag.
  • Le 1er élément correspond à la valeur de GCLFlag0, le 2ème correspond à la valeur de GCLFlag1, etc.
  • NB : les données préalablement contenues dans lstBits 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;

   // On passe à 1 le flag n°11 (GCLFlag10)
   boitier.WriteGCLFlag(10, 1);

   // On relit le flag
   InformationDlg(IntToStr(boitier.ReadGCLFlag(10)));

   // On lit tous les flags
   boitier.ReadAllGCLFlags(lstValues);
   InformationDlg(lstValues.AsString);

   // On modifie les flags n°3 (GCLFlag2) et n°6 (GCLFlag5)
   lstValues[2]:=1;
   lstValues[5]:=1;
   boitier.WriteAllGCLFlags(lstValues);

   // On relit tous les flags
   boitier.ReadAllGCLFlags(lstValues);
   InformationDlg(lstValues.AsString);
finally
   boitier.Free;
   lstValues.Free;
end;

Classification

Networking.ADAM TADAM6000