Relaisplatine über COM Port ansteuern

[Salomon]

Ich habe gerade festgestellt, das die Highlevel Function ein Abfragen des momentanen Status überflüssig machen. Hier nun die Function zum schalten der Relais:

Code:

Procedure SwitchRelais (CardNr: Byte; RelaisNr: Byte; SwitchOn: Boolean);
var
  n: Byte;
begin
 n := 0;
 n := n or (1 shl RelaisNr);
  if SwitchOn then
      rel.ActivatePorts(CardNr,n)
  else rel.DeactivatePorts(CardNr,n);
end;

Procedure InvertOneRelais (CardNr : Byte; RelaisNr: Byte);
Var n : byte;
Begin
 n := 0;
 n := n or (1 shl RelaisNr);
 rel.TogglePorts(CardNr,n);
end;

Mfg
Salomon