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 :(

[mkinzler]

Warum nicht einfach

Delphi-Quellcode:

p := PAnsiChar( acmd);

?

[Natcree]

Okay das funcktioniert schonmal jetzt meckert er hier

Delphi-Quellcode:

rawdatatoprinter(pwidechar('CognitiveTPG Receipt'),pbyte(p),length(acmd));

invalid typcast

[mkinzler]

Bei welchem Parameter?
Ein Zeiger auf eine Konstante ist schlecht

[Natcree]

ich denke mal pbyte