Serielle Kassenschublade ansteuern: Was bedeutet z.B "ESC p"

[King555]

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).