Kassenlade öffnen

[Natcree]

Hallo ich möchte eine Kassenlade öffnen. habe mir dazu ein paar Codezeilen zusammengebastelt.
Die Kassenlade ist mit dem Thermodrucker verbunden und sollte mit dem Steuerbefehl Esc-P geöffnet werden können. Der drucker ist im BS nicht installiert. Er nennt sich TPG-Color-POS. Nunmehr komme ich nicht weiter.

wollte die lade hiermit öffnen

Delphi-Quellcode:

Var
    FH:THandle;
    Buff: array[0..5] of char;
    RetW:DWORD;
    port:string;
    cmd:string;
    acmd:ansistring;
    p:pansichar;
begin
   acmd:=#27#112#49#250#250;
   p:=AnsiStrAlloc(length(acmd));
   p:=StrPCopy(p,acmd);
   switchprinter(''); //Druckername, so wie er in Windows angezeigt wird
   rawdatatoprinter(pwidechar(''),pbyte(p),length(acmd));
end;

1. Hier sagt er mir AnsiStrAlloc undeclared identifier

2. Dann ist mir auf gefallen das der Drucker nicht im BS zusehen ist.
Wie bekomme ich das gelöst?

[mkinzler]

zu 1.) Hast Du SysUtils eingebunden?

zu 2.) Treiber installieren, bzw. DummyPrinter auf den Port einrichten

[Natcree]

sysutils ist eingebunden.

Ich instaliere mir jetzt den dummy treiber.

[Natcree]

dummy printer auf den port einrichten wie geht das den thermodrucker habe ich leider nicht hier. kann ich dafür einen anderen drucker nehmen?

[mkinzler]

Wie/wo wird der Drucker angeschlossen?

[Natcree]

also habe jetzt den TPG Drucker in windows installiert auf anschluss com1 gelegt. jedoch bekomme ich den undeclared identifier nicht weg

[Der.Kaktus]

Zitat von Natcree:

Hallo ich möchte eine Kassenlade öffnen. habe mir dazu ein paar Codezeilen zusammengebastelt.
Die Kassenlade ist mit dem Thermodrucker verbunden und sollte mit dem Steuerbefehl Esc-P geöffnet werden können. Der drucker ist im BS nicht installiert. Er nennt sich TPG-Color-POS. Nunmehr komme ich nicht weiter.

wollte die lade hiermit öffnen

Delphi-Quellcode:

Var
    FH:THandle;
    Buff: array[0..5] of char;
    RetW:DWORD;
    port:string;
    cmd:string;
    acmd:ansistring;
    p:pansichar;
begin
   acmd:=#27#112#49#250#250;
   p:=AnsiStrAlloc(length(acmd));
   p:=StrPCopy(p,acmd);
   switchprinter(''); //Druckername, so wie er in Windows angezeigt wird
   rawdatatoprinter(pwidechar(''),pbyte(p),length(acmd));
end;

1. Hier sagt er mir AnsiStrAlloc undeclared identifier

2. Dann ist mir auf gefallen das der Drucker nicht im BS zusehen ist.
Wie bekomme ich das gelöst?

wie bzw. an welchem Anschluss ist er denn angeschlossen?..Diese Antwort fehlt von Anfang an!!!

[Natcree]

die kassenladen ist über einen thermodrucker tpg Color a795 angeschlossen und ist über com1 erreichbar. zumindest habe ich die kasse schonmal aufbekommen aber er druckte ein 2 cm streifen und machte nen cut. also com1 muss angesprochen werden.

[himitsu]

Und wieso sagt das keiner, während hier ständig versucht wird über LPT, anstatt über COM zu gehn?


Wenn der "Steuer-Code" stimmt, dann entweder über deine ComPort-Komponente den "Text" senden, oder über meine beiden Beispielcodes, welche nicht über TPrinter gingen.
(da halt "COM1", statt "LPT1")



Aber wenn der Drucker die Steuerzeichen, welche eigentlich nicht für ihn sind, obwohl sie an ihn geschickt werden, nicht rausfiltert, dann kann man eben die druchausgabe nicht unterbinden.

[p80286]

Taucht dieser Drucker den in Printer.Printers auf?

Und bist Du sicher,daß da wirklich ein Drucker installiert ist?
Unter Windoofs muß ein angeschlossener Drucker (der Stecker ist drin!) auch im/dem System als Drucker bekannt gemacht werden.
(und wenn Dein Drucker an COM1 hängt, dann funktionieren die Beispiele mit

Delphi-Quellcode:

assignfile(tf,'LPT1:');
rewrite(tf);
write(tf,#27#.....);
closefile(tf);

natürlich nicht. dann solltest Du ggf. mit assignfile(tf,'LPT1:'); arbeiten.

Gruß
K-H