Abfragen des Input

[thkerkmann]

Ok, also versuchen wir es mal zusammen.

Zunächst scheint mir wichtig zu sein, das Gerät zu öffnen und ein Handle zu bekommen

  handle := QAPIExtOpenCard(USBOPTO8, device); device ist eine Gerätenummer von 0 - 7, versuch es mal mit 0.

dann sollte es möglich sein die inputs zu lesen

    lines := QAPIExtReadDI32(handle, 0, 0); lines liefert dir 8 inputs auf einmal, jeder ist ein bit und kann mit

Delphi-Quellcode:

    if (lines and (1 shl j)) <> 0 then
       // input an
    else
      // input ist aus
    ;

wobei j von 0 - 7 geht, auf seinen Zustand geprüft werden.

und am Ende wieder das Gerät schliessen
   QAPIExtCloseCard(handle); Das erste im FormCreate, das letzte im FormDestroy. In der Mitte deine Prozedur zu erkennen der Aktion.

Versuchs mal.