Delphi-Quellcode:
procedure TForm4.opendrawer(); // Muss keine Methode sein, einfache Procedure geht auch
//procedure TForm4.opendrawer(nr:integer); // Muss keine Methode sein, einfache Procedure geht auch
Var
FH:THandle;
Buff: array[0..5] of char;
RetW:DWORD;
port:string;
cmd:string;
acmd:ansistring;
p:pansichar;
begin
// Anderer Code
acmd:=#27#112#48#100#100;
// if dm.steuertext='Epson2' then // 2. Schubladenanschluss dm.steuertext kann man durch Konstante ersetzen
// acmd:=#27#112#49#250#250;
p:=AnsiStrAlloc(length(acmd));
p:=StrPCopy(p,acmd);
switchprinter('EPSON TM-70'); //Druckername, so wie er in Windows angezeigt wird
rawdatatoprinter(pwidechar('EPSON TM-70'),pbyte(p),length(acmd));
end;
Habe den Code angepasst leider reagiert der Drucker überhaupt nicht.
in der funktion RawDataToPrinter sprigt er in exit.
if NOT OpenPrinter( szPrinterName, hPrinter, NIL ) then
Exit;
Muss ich vorher noch etwas beachten.