Hallo,
hast du dir einmal angesehen, wie verunglückt die Handbuchinformationen aus Beitrag #13 aussehen? Hast du das mit Copy & Paste verbrochen oder steht die Information schon so kaputt im Originalhandbuch?
Nochmal zu meinem Beitrag #7 von neulich: m ist wahlweise binär 0 oder
ASCII '0' (#48) - die beiden Werte müssen nicht hintereinander gesendet werden. Wenn du das [ PRE] Tag verwendet hättest, dann könnte man wahrscheinlich das hier lesen:
Code:
[Description]
Outputs the pulse specified by t1 and t2 to connector pin m as follows :
m Connector Pin
0, 48 Drawer kick-out connector pin 2
[Example]
Wo ist denn das Beispiel hier geblieben?
Die Information, dass beide Zeitintervalle im Befehl geschickt werden, hatte mir gefehlt. Ich bin sicher, dass aus dem Handbuch auch hervorgeht, welche Werte für t1 und t2 verwendet werden sollten. Bis du sie gefunden hast, könntest du mit einer kleinen Modifikation ein paar Werte testen:
Delphi-Quellcode:
function KasseOeffnen(t1, t2: byte): Boolean;
begin
Result := False;
try
if SerialOpen(FSerialConn) = SER_OK then
begin
Result := (SerialXmit(FSerialConn, #27) = SER_OK);
Result := Result and (SerialXmit(FSerialConn, #112) = SER_OK);
Result := Result and (SerialXmit(FSerialConn, #48) = SER_OK);
Result := Result and (SerialXmit(FSerialConn, Chr(t1)) = SER_OK);
Result := Result and (SerialXmit(FSerialConn, Chr(t2)) = SER_OK);
SerialStop(FSerialConn);
end; {IF}
except
Result := False;
end; {TRY}
end;
Grüße vom marabu