Einzelnen Pin an der Seriellen Schnittstelle abfragen

[Alex_ITA01]

Hier zur Info (so initialisiere ich meine serielle Schnittstelle):

Delphi-Quellcode:

SerHandle := CreateFile (NullStr, Generic_Read or Generic_Write, 0, Nil,
                         Open_Existing,
                         FILE_FLAG_OVERLAPPED, 0);
if SerHandle <> INVALID_HANDLE_VALUE then
begin
  if SetupComm (SerHandle, InBuffer, OutBuffer) then
  begin
    FillChar (DCB, SizeOf(DCB), 0);
    DCB.DCBlength  := SizeOf (DCB);
    DCB.BaudRate   := Baud;
    DCB.Flags      := $0001;
    DCB.Parity     := Ord (Parity);
    DCB.ByteSize   := ByteSize;
    DCB.StopBits   := Ord (StopBits);
    DCB.EvtChar    := RXFlagChar;

    if SetCommState (SerHandle, DCB) then
    begin
      With CommTimeOuts do
      begin                                  { TimeOut's  setzen          }
        ReadIntervalTimeout         := RXZVZ;
        ReadTotalTimeoutMultiplier  := 0;
        ReadTotalTimeoutConstant    := RXTimeOut;
        WriteTotalTimeoutMultiplier := 0;
        WriteTotalTimeoutConstant   := TXTimeOut;
      end;
      if SetCommTimeouts(SerHandle, CommTimeOuts) then
      begin
        if RTSCTS = Ja then                  { Hardwarehandshake          }
        begin
          EscapeCommFunction(SerHandle, SETRTS);
          EscapeCommFunction(SerHandle, SETDTR);
        end;
        Case RXEvent of                      { Eventmaske setzen          }
          RXChar   : TmpMask := EV_RXCHAR;   { Jedes Zeichen              }
          RXFlag   : TmpMask := EV_RXFLAG;   { Bei Empfang Zeichen RXFlagChar }
          RXRing   : TmpMask := EV_RING;
          RXCTS    : TmpMask := EV_CTS;
          RXDSR    : TmpMask := EV_DSR;
          else       TmpMask := 0;
        end;

        if SetCommMask(SerHandle, TmpMask) then
        begin
          StrPCopy (NullStr, 'Read_'+DeviceIdent);
          rOverlapped.hEvent := CreateEvent (NIL,        { Security attr.   }
                                             True,       { Manuel reset ??  }
                                             False,      { Signaled ??      }
                                             NullStr);   { Signif.name      }
          StrPCopy (NullStr, 'Write_'+DeviceIdent);
          wOverlapped.hEvent := CreateEvent (NIL,        { Security attr.   }
                                             True,       { Manuel reset ??  }
                                             False,      { Signaled ??      }
                                             NullStr);   { Signif.name      }
          if (rOverlapped.hEvent <> Null) and
             (wOverlapped.hEvent <> Null) then
          begin
            Success      := True;
          end;
        end;
      end;
    end;
  end;
end;

Ich habe auch schon probiert die EventMaske zu ändern aber dieser RI (mit der Funktion GetCommModemStatus) kommt bei mir einfach nicht an.
Wäre nett, wenn jemand noch eine Idee hat.
Danke und Gruß
Alex