Relaisplatine über COM Port ansteuern

[TraxTerra]

Uaaaaa... Kann mir mal einer verraten wie das mit dem GETPorts funktioniert ?

Ich bekomm immer False zurück, egal ob Port geschaltet oder nicht.
Mich wundert aber auch schon (besser da steig ich nicht ganz durch) warum ich bei
GetPorts den Port mit angeben muss obwohl der in der Funktion GetPorts gleich wieder auf 0
gesetzt wird. Was mach ich falsch.

Hier meine Function :

Delphi-Quellcode:

Function RelStatus (COM_Port : String; Karte_Nummer : Byte; Klemme : Byte) : Boolean;
var
  rel : TRelaisCard;
  n : Byte;
  Schalten : Boolean;
  begin
    Result := False;
    rel := TRelaisCard.Create;
    try

      rel.ComPort := COM_Port;
       if rel.Init > 0 then
          begin
          n := 0;
          n := n or (1 shl Klemme);

          Result := rel.GetPorts(Karte_Nummer,n);
        end;

  finally
    rel.Free;
  end;
end;

Hat einer mal einen Code Schnipsel für mich ?

mfg
Ralf