Epson TM-T88 Römisch 3 NUR Kassenschublade öffnen

[egon.kaschuba]

:wall:

Hallo Ihr alle,

konnte mich nicht sofort melden.

Nun habe ich alle Möglichkeiten
Probiert,aber nix geht.

Ich habe eine alte DOS Version gefunden,die ich mal mit
Clipper(DBase 3) geschrieben habe.

Da geht´s so ....

@ Zeile,0 say chr(27) + "p" +chr(0) + chr(100) + chr(100)

Ich stehe vor einem Rätsel ich verstehe die Welt nicht mehr.
Mit dieser möglichkeit " DirectPrint(#27 + 'p' + #0 + #50 + #50); "
Reagiert zwar der Drucker, aber die Schublade geht zum Verrückt werden
nicht auf.

Gruß
- Egon

[omata]

Wie sieht es mit 100 aus?

Delphi-Quellcode:

DirectPrint(#27 + 'p' + #0 + #100 + #100);

[Hansa]

Probiere mal das Programm im Anhang aus. Das sind 2 Arten, den Drucker anzusteuern.

[egon.kaschuba]

Hallo Hansa.
:wall:
Tut mir leid, NIX GEHT.
Auch nicht mit Deiner " Kasseauf.exe"

Wie gesagt , ich bin Kaputt und weiß nicht weiter.
Muss ne kleine Pause einlegen.

Gruß
- Egon

[Hansa]

Was ist das eigentlich für eine Schublade ? Könnte auch am falschen Anschlusskabel liegen. Und wo ist der Drucker angeschlossen ? Parallel, USB oder was ?

Als nächstes würde ich alle Fehlerquellen so weit wie möglich ausschalten. Also Delphi, Windows usw. Schreibe ein kleines Programm, das die Sequenz in Textdatei schreibt. Diese dann so ausdrucken :

Code:

type test.txt >lpt1

Die Datei ist hier dabei. Die eine Zeile.... :mrgreen:

[egon.kaschuba]

Hi,
also das ist eine Schublade ohne besonderen Namen.
Die Schublade wird mit einem RJ 45 Kabel
zum EPSON TM [...] Drucker Verbunden.

Leider kann ich mit dem EPSON zur Zeit nicht mehr arbeiten
weil er morgen wieder im Laden gebraucht wird.

Gruß
- Egon

[michael.schaefer]

Hallo Leute

das mit dem Öffnen der Schublade ist nicht wirklich ein Propblem. Das funzt wie hier mehrfach beschrieben. Fehlermeldungen wie der Hinweis
auf string / int Typen sollten doch mit Lesen der Delphi-Hilfe beseitigt werden können.

Ich versuche dagegen schon eine geraume Zeit zu überprüfen, ob die Schublade (noch) geöffnet oder geschlossen ist. Da komme ich keinen Schritt
weiter.

Fällt jemandem etwas dazu was ein? Vielen Dank schon mal vorab ...

Gruß Michael

Nachtrag:

Die TM-XX Epsondrucker verfügen über ein Ausgang der einen definierten Spannungsimpuls an einem speziellen Port zur Verfügung stellt.
Dort kann men alle Schubladen mit der Spezifikation anschliessen. Wenn der Drucker nun die Sequenz (öffnen) erhält, bekommt ein Haltemagnet
in der Schublade einen kurzen Impuls und die Schublade wird von eienr Feder aufgedrückt. Das ist alles auch gut dokumentiert und ist einfach
per ESC-Sequenz zu realisieren.
Der Drucker stellt aber auch die Information über den Öffnungszustand der Schublade bereit. Diese Info auszulesen macht mich gerade wahnsinnig.
Das Wenige an Doku reicht nicht aus. Der deutsche EPSON-Support stellt nur unbrauchbares Zeugs zur Verfügung. Deren Hotline sagt bloß "müsste aber".

Hat jemand von Euch eine Lösung?

Wäre echt dankbar ....

[michael.schaefer]

Nachtrag:

Anbei die Function mit der ich arbeite.

Die Klasse "TioDevice" behandelt alle möglichen Interfaces wie RS232, USB, Lpt1, Ethernet ....


function KassenschubladeOeffnen(): boolean;
var sequenz: string;
Device : TioDevice;
begin

RESULT := False;

sequenz := dmbm.GetStringOfSql('SELECT laden_sequenz FROM barkassen WHERE id = ' + IntToStr(kasse_id));
if length(sequenz) > 0 then begin
sequenz := StrWertBilden(sequenz); // 27,112,48,55,121 StrWertBilden(erzeugt einen String aus der Ziffernkette)

Device := TRs232Device.Create;
(Device as TRs232Device).Stopbits := ONESTOPBIT;
(Device as TRs232Device).SetBaudrate(CBR_38400);
(Device as TRs232Device).Datenbits := DATABITS_8;
(Device as TRs232Device).Parity := NOPARITY;
(Device as TRs232Device).Name := 'COM2';
(Device as TRs232Device).ReadTimeout := 500;
(Device as TRs232Device).WriteTimeout := 500;

try
(Device as TRs232Device).Open;
(Device as TRs232Device).SetDTR;
(Device as TRs232Device).SetRTS;
try
RESULT := schreiben(sequenz,(Device as TRs232Device));
except
chipanmeldung := False;
end;

(Device as TRs232Device).Close;
(Device as TRs232Device).Destroy;

kasse_main.FormTouchKasse.Lladeoffen.Visible := RESULT;

except
RESULT := False;
end;
end;

Das könnt ihr ja mal versuchen. Das funzt definitiv ....

Gruß Michael

[sx2008]

Zitat:

Zitat von michael.schaefer (Beitrag 1213247)

Ich versuche dagegen schon eine geraume Zeit zu überprüfen, ob die Schublade (noch) geöffnet oder geschlossen ist. Da komme ich keinen Schritt weiter.

Ja, weil du im Nebel rumstocherst.

Schritt 1.)
Doku der Schnittstelle für den Drucker besorgen.
Und ganz wichtig: wenn du diese gefunden hast, dann stell' den Link für den Download hier ins Forum.
Weil du das nicht gemacht hast :twisted: ist hier das Ergebnis meiner Suche:
http://www.delfi.com/SupportDL/Epson...05_receipt.pdf
Meine Suche war epson tm-t88 "programming guide"

Schritt 2.) Schauen nach was man im Dokument suchen muss.
Schublade = drawer (english)
Schubladenauslösung = drawer kick-out

Damit findet man auf Seite 288 den Befehl "Transmit real-time status".

Schritt 3.) Doku genau lesen und verstehen
Wenn man dem Drucker den String #16#4#1 schickt, dann antwortet er mit einem Statusbyte (siehe Seite 290)
In diesem Byte gibt es ein Bit für den Drawer kick-out connector pin 3.
Dieses Bit dürfte das sein was dich interessiert

Schritt 4.) eine Datei mit 3 Bytes (16,4,1) erzeugen und mit einem Terminalprogramm an den Drucker schicken (ASCII File upload).
Der Drucker muss mit einem Statusbyte antworten.
Mit offener und geschlossener Schublade testen und auf den Unterschied im Statusbyte achten.

Schritt 5.) das was in Schritt 4 getestet wurde mit Delphi programmieren.

[michael.schaefer]

Vielen Dank zunächst. Ich werde das versuchen ...

Das Problem dürfte die parallele Schnittstelle sein. Da habe ich keine Erfahrung wie man da eine Antwort ausliest.

Gruß Michael