Kassenlade öffnen

[himitsu]

Und so? (nicht über TPrinter, sondern direkt an den Drucker-Port)

Delphi-Quellcode:

var
  myFile: TextFile;

AssignFile(myFile, 'LPT1');  // Port 1 (nummeriert, so wie z.B. das bekannte COM1)
Rewrite(myFile);
Write(myFile, AnsiString(AnsiChar(27) + AnsiChar(112) + AnsiChar(0) + AnsiChar(64) + AnsiChar(240)));
//Write(myFile, AnsiString(#27#112#0#64#240));
CloseFile(myFile);

bzw.

Delphi-Quellcode:

with TFileStream.Create('LPT1', fmOpenWrite) do
  try
    WriteBuffer(PAnsiChar(AnsiString(#27#112#0#64#240))^, 5);
  finally
    Free;
  end;