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

[franktron]

Also der USB > RS232 Konverter könnte schuld sein hatte damit auch schon probleme.

Such doch mal einen PC der einen Com hat und versuchs da mal

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

[Hansa]

Was ist denn das SerialXMit überhaupt ? Lade mal AsyncPro und da die Komponente ComPort. Stelle alles richtig ein und sende den ganzen string also chr (27)+ ... an die serielle. Das muß gehen !

[King555]

Mit AsyncPro geht es! :-D

Jetzt muss ich zwar eine 1,7 MB große DPL Datei mitgeben, aber immerhin funktioniert es nun.

Allerdings würde ich noch eins gerne wissen: Ist es möglich, dass AsyncPro, bzw. die COM-Komponente, die Anschlusseinstellungen des Ports selber ausliest? Also das, was ich in der Systemsteuerung gewählt habe (z.B. Parität, Datenbits, etc.)?

[Hansa]

Na also ! Ging aber fast zu schnell. Man muß eben anscheinend immer nur deutlich werden. :mrgreen: Das mit der DPL weiß ich nicht. Was soll das sein ? Normalerweise wird alles in die EXE eingelinkt. Kann gut sein, daß die Standardeinstellungen als Default Werte geneommen werden. Das würde auch Sinn machen. AsyncPro wäre das ohne weiteres zuzutrauen.

[King555]

DPL deswegen, weil bei der Software nur Runtime-Packages benutzt werden dürfen, es darf nichts in das Programm reinkompileirt werden. Das liegt daran, weil es sich um viele einzelne Module (genauer gesagt DLL Dateien) handelt.

Danke an alle für eure Mühe!

[King555]

Ich habe nochmal eine Frage zu dem Thema:

Auf meinem PC funktionierte das Öffnen der Kasse, auf einem anderen Rechner, wo es eigentlich laufen soll, geht es nicht. ASyncPro gibt eine Exception aus. Leider sagt die Exception-Meldung garnichts aus ("AsyncPro Exception"). Woran könnte das liegen? Der Com-Port ist richtig eingestellt und die serielle Schnittstelle ist genau so konfiguriert, wie auf meinem PC.

[marabu]

Wenn du schreibst, welche Code-Zeile die Exception verursacht, dann habe ich eine reelle Chance ...

Grüße vom marabu

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

[King555]

Jetzt weiß ich vielleicht, warum der Fehler kommt: Sobald der Druckertreiber für den Kassendrucker installiert ist, kann keine Anwendung mehr auf den entsprechenden COM-Port zugreifen. Auf meinem PC funktioniert es allerdings, nur nicht auf dem eigentlichen Zielrechner. Wenn ich den COM-Port im Druckertreiber auf einen anderen (ungültigen) stelle, dann geht es wieder. Der Hersteller des Druckertreibers konnte mir auch keine Antwort geben.