Alten Drucker ansteuern

[himitsu]

Wenn, dann sollte wohl besser alles auf Ansi umgesellt werden:

Delphi-Quellcode:

function MyAnsiToOem(const Ansi: RawByteString): RawByteString;
begin
  SetLength(Result, Length(Ansi));
  CharToOemBuffA(PAnsiChar(Ansi), PAnsiChar(Result), Length(Result));
end;

var cDruck: RawByteString;

cDruck := #27#64;                               // Initialisierung
cDruck := cDruck + #18;                         // Keine Schmalschrift
cDruck := cDruck + #27#67 + AnsiChar(24) + #13; // Seitenlänge in Zoll * 6

cDruck := MyAnsiToOem(cDruck);
Stream := TFileStream.Create('LPT1:',fmOpenWrite);
try
  Stream.Write(PAnsiChar(cDruck)^, Length(cDruck));
finally
  Stream.Free;
  cDruck := '';
end;