Kassenlade öffnen

[Natcree]

Delphi-Quellcode:

procedure OpenCashDrawer;
var
   hPrinter, hDeviceMode: THandle;
   N: DWORD;
   DocInfo1: TDocInfo1;
   Device, Driver, Port: array [0 .. 255] of Char;
   PrinterName, ThePrinter: string;
   Code: AnsiString;
begin
   begin
     Code := AnsiChar(27) + AnsiChar(112) + AnsiChar(0) + AnsiChar(64) + AnsiChar(240);

     Printer.PrinterIndex := Printer.Printers.IndexOf('Name deines druckers');
     Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
     PrinterName := Format('%s', [Device]);
     if not WinSpool.OpenPrinter(PChar(PrinterName), hPrinter, nil) then
     begin
       ShowMessage('Error : ' + IntToStr(GetLastError));
       Exit;
     end;
     with DocInfo1 do
     begin
       pDocName := 'Test';
       pOutputFile := nil;
       pDataType := 'RAW';
     end;
     WinSpool.StartDocPrinter(hPrinter, 1, @DocInfo1);
     WinSpool.StartPagePrinter(hPrinter);
     WinSpool.WritePrinter(hPrinter, PAnsiChar(Code), Length(Code), N);
     WinSpool.EndPagePrinter(hPrinter);
     WinSpool.EndDocPrinter(hPrinter);
     WinSpool.ClosePrinter(hPrinter);
   end;
end;

mit diesem code passiert nichts er öffnet die lade nicht