Einzelnen Pin an der Seriellen Schnittstelle abfragen

[Alex_ITA01]

Also das ist in alles in einer Komponente von unserer Firma. Daher nur der Ausschnitt oben...
Das Event ist nur eine Eigenschaft der Kompo aber die steht standardmäßig auf EV_RXCHAR.

Ich habe dann nur noch ein Thread außenrum, der zyklisch prüft, ob sich auf der Schnittstelle was tut...

Delphi-Quellcode:

if GetCommModemStatus(SerHandle, nStatus) then
begin
  if ((nStatus and MS_CTS_ON) > 0) or
     ((nStatus and MS_DSR_ON) > 0) or
     ((nStatus and MS_RING_ON) > 0) or
     ((nStatus and MS_RLSD_ON) > 0) then
    Result := True;
end;

Selbst wenn ich Zyklisch im Thread das oben aufrufe, ist Result immer False...
Mehr benutze ich nicht.

Viele Grüße
Alex