Epson TM-T70 USB Kassenschublade öffnen

[vagtler]

Zitat von Furtbichler:

[...] Witzbold, das hat er vermutlich. Welche Lösung meinst Du doch gleich, die man nach 20 Sekunden findet? Bin mal gespannt, welche funktionierende und verifizierte Lösung Du hier präsentierst. [...]

https://www.google.de/search?q=Epson...en+cash+drawer

2. Link

[Furtbichler]

Get doch. Hast zwar 40 Minuten benötigt und keine 20 Sekunden, aber immerhin. Hauptsache gespurt.

[ol1uw]

Hallo
eventuell ja mit dem EPSON Advanced Printer Driver.

Delphi-Quellcode:

 Printer.BeginDoc;
 Printer.Canvas.Font.Name:='control';
 Printer.Canvas.Font.Size:=1;
 //paper cut
 Printer.Canvas.TextOut(x,y,'P');
 //drawer
 Printer.Canvas.TextOut(x,y,'a');
 Printer.EndDoc;

Uwe

[Neumann]

@ol1uw:

Das funktioniert zwar, aber leider druckt der Drucker dann einen etwa 1 cm langen Papierschnipsel.

[Pet04]

Hallo,

habe nun mal den opos Printer in delphi importiert.

Zum Testen folgendes...

Delphi-Quellcode:

PosPrinter.Open('TM-T70U');
POSPrinter.ClaimDevice(5000);
POSPrinter.DeviceEnabled := True;
POSPrinter.PrintNormal(PTR_S_RECEIPT, String('TEST PRINT OPOS\n'));
POSPrinter.DeviceEnabled := False;
POSPrinter.ReleaseDevice;
POSPrinter.Close;
end;

Leider druckt der Drucker nicht.


Um die Kassenlade öffnen zu können muss dan auch der cashdrawer. ocx in Delphi importiert werden ?

[VCLControls]

Das Thema mit der Lade gab es schon mal.
Das Modell war zwar nicht exakt das Gleiche, sollte aber eigentlich keine Rolle spielen und wurde über die Steuerbefehle erledigt.

[bernau]

Zitat von ol1uw:

Hallo
eventuell ja mit dem EPSON Advanced Printer Driver.

Delphi-Quellcode:

 Printer.BeginDoc;
 Printer.Canvas.Font.Name:='control';
 Printer.Canvas.Font.Size:=1;
 //paper cut
 Printer.Canvas.TextOut(x,y,'P');
 //drawer
 Printer.Canvas.TextOut(x,y,'a');
 Printer.EndDoc;

Uwe

Dazu muss aber der Font "Control" von Epson installiert sein.

[Pet04]

Mit "Print BeginDoc..." druckt der Drucker dann einen etwa 1 cm langen Papierschnipsel.
Dies soll natürlich nicht passieren.

Deshalb möchte ich es ml über die OPOS Treiber testen.

1. Drucken
2. Kassenlade über einen Button öffnen.

zu 1. s.o.

Leider druckt der Drucker nicht.

ZU 2. Muss der Cashdrawer.ocx auch in Delphi importiert werden oder kann ich die Lade direkt über den Printer.ocx öffnen.

Aber erst mal soll der Drucker drucken

[Neumann]

Den Control-Font muss man nicht extra installieren, er ist sozusagen in dem Drucker eingebaut und steht immer dann zur Verfügung, wenn der Drucker ausgewählt wird, z.B. in Wordpad. Leider bleibt dann wie gesagt das Problem mit dem Papierstreifen wenn man den Befehl so wie oben an den Drucker sendet.

Was ich vorher gepostet habe funktioniert ohne Druck von Papierstreifen und bei sehr vielen Bondruckern (Epson, Star, Bixolon usw.).

[Pet04]

Bekomme deine Funktion leider nicht zum laufen.
Hast du zufallig eine Demo Souce der funktioniert.

Wenn ich die Funktionen einbinde ... undeklarierte Bezeichner usw.
Wie rufe ich sie genau auf ?

Danke für deine Hilfe