Datei auf LPT1: Drucken

[Lord_Stifterl]

Es gäbe natürlich auch die Möglichkeit das Ganze über eine FileStream zum LPTx zu schicken.

Code:

var
  Stream: TFileStream;

  //HIER CREATEST DU DEN STREAM
  Stream := TFileStream.Create('LPT1', fmOpenWrite);

  //HIER SCHICKST DUS DANN ZUM DRUCKER
  sendtoprinter(Stream, [DATEI|STRING|...]);

Diese Funktion solltest du dann ebenfalls verwenden

Code:

Procedure SendtoPrinter(var Stream: TFileStream; var PrintStr: String);
begin
  CharToOEM(@Printstr[1], @Printstr[1]);
  Stream.write(PrintStr[1], length(Printstr)+1);
end;

LG
LS