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.
