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

[King555]

Hier mein aktueller Code:

Delphi-Quellcode:

  function KasseOeffnen: Boolean;
  const
    strOpen = #27#112#48#150#150;
  begin
    try
      Application.ProcessMessages;
      if ComPort.ComNumber <> FKasseComPort then
      begin
        ComPort.ComNumber := FKasseComPort;
        Application.ProcessMessages;
      end; {IF}
      ComPort.InitPort;
      Application.ProcessMessages;
      try
        ComPort.PutString(strOpen);
        Application.ProcessMessages;
      finally
        ComPort.DonePort;
        Application.ProcessMessages;
      end; {TRY}
      Result := True;
    except
      Result := False;
    end; {TRY}
  end;

Bei "ComPort.InitPort;" springt er nach "Result := False;" im except-Block. Die Fehlermeldung (die natürlich in der jetzigen Konstruktion nicht sichtbar ist), lautet: "Apro exception" (mehr nicht).