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

[TraxTerra]

Kann mir einer Sagen ob sich die Karte auch unter XP ansteuern lässt ?
Wenn Jaein, was brach ich für einen Treiber.

Danke im Voraus.

[Muetze1]

Moin!

Das Ding hängt an einer Standard RS232C Schnittstellen (serielle Schnittstelle) und ist damit unabhängig vom Betriebssystem ansteuerbar. Es sollte keinen Unterschied zwischen Windows 95 und Windows XP geben. Selbst die WinAPI Funktionen für CommIO haben keine grossen Änderungen erfahren.

Ansonsten für die Bits nochmal ein kleiner Link für die anderen die es lesen und vielleicht fragen würden: Bitoperationen

MfG
Muetze1

[TraxTerra]

Danke für die schnelle Antwort.

Habe gefragt weil XP normalerweise keinen direkten Zugriff auf die Ports zulässt, ok hab da vieleicht was in den falschen Hals bekommen.

mfg
Ralf

[Muetze1]

Moin!

Naja, das ist richtig, aber ich bin davon ausgegangen das beim Zugriff auf den COM Port die von Windows angebotenen Communication Funktionen benutzt werden und keine DLL die sich hinterrücks Hardwarezugriff holt damit man Windows von hinten in den Rücken schiessen kann. Deshalb meine Antwort.

In diesem Beitrag steht mehr zu den Windows Communication Functions

MfG
Muetze1

[TraxTerra]

Sorry das ich nochmal nach Frage.
Es geht sich um die Unit die weiter oben zum download angeboten wird, brauch ich für die einen extra Porttreiber für XP oder funst das auch ohne schon ?

mfg
Ralf

[Muetze1]

Moin!

Zitat von TraxTerra:

..., brauch ich für die einen extra Porttreiber für XP oder funst das auch ohne schon ?

Das funktioniert ohne Porttreiber auch unter XP, da die Unit ordentlich mit den WinAPI Comm Funktionen arbeitet.

MfG
Muetze1

[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

[TraxTerra]

Ich glaub ich hab die Antwort schon.
GetPorts kann nicht den aktuellen Schaltzustand abfragen nur ob ein Port exestiert oder nicht.
Wenn ich mir die Platine so anschaue geht das Technich garnicht.
Oder seh ich das Falsch ?

mfg
Ralf

[Helmi]

Hallo,

ich hab mir mal vor ein paar Jahren diese Relaiskarten zugelegt, dazu aber auch noch die Conrad-Win-Software.
Da ich diese Software aber nicht mehr habe (ich weiss nicht wo die geblieben ist), möcht ich selbst ein Programm
schreiben, um diese Karten anzusteuern.

Ich hab mir diese Unit runtergeladen, zum Ansteuern der Karten. Aber ich komme auf keinen grünen Zweig.

Anbei mal mein Testprogramm. Vielleicht kann mir ja jemand sagen, was ich verkehrt mache.

Vielen Dank im Vorraus!