So, ich habe es nun an einem PC mit "richtiger"
COM-Schnittstelle getestet. Das Visual Basic Beispiel funktioniert, die Kasse geht offen. Aber mein Delphi Programm funktioniert immer noch nicht.
Mein aktueller Code:
Delphi-Quellcode:
function KasseOeffnen: Boolean;
begin
Result := False;
try
if SerialOpen(FSerialConn) = SER_OK then
try
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, #150) = SER_OK);
Result := Result and (SerialXmit(FSerialConn, #150) = SER_OK);
finally
SerialStop(FSerialConn);
end; {IF/TRY}
except
Result := False;
end; {TRY}
end;
Bei dem VB Beispiel habe ich die ganzen Verbindungsparameter eingestellt (z.B. Parität, etc.). Das habe ich in Delphi mal gemacht und mal nicht, beides ging nicht. Vielleicht liegt es daran, dass ich bei dem Delphi-Code die Flußsteuerung nicht wählen kann (XON/XOFF in meinem Fall).