Hallo,
leider habe ich die Notwendigkeit einen alten Drucker ansteuern zu müssen. Bis Delphi 2007 war das kein Problem, folgendes funktioniert:
Delphi-Quellcode:
cDruck:=#27#64; // Initialisierung
cDruck:=cDruck+#18; // Keine Schmalschrift
cDruck:=cDruck+#27#67+chr(24)+#13; // Seitenlänge in Zoll * 6
....
cDruck := MyAnsiToOem(cDruck);
Stream := TFileStream.create('LPT1:',fmOpenWrite);
try
Stream.Write(pchar(cDruck)^,length(cDruck));
finally
Stream.free;
cDruck := '';
end;
wobei die Funktion so hinterlegt ist
Delphi-Quellcode:
SetLength(Result, Length(
Ansi));
CharToOemBuff( PChar(
Ansi), PAnsiChar(Result), Length(Result));
Nach der Umstellung auf D 2009 geht es lt. Kunde nicht mehr, die Resultate sind aber undefinert. d.h. sie schwanken
Eine Umstellung auf cDruck: ansistring hat keine Besserung gebracht.
Habt Ihr einen Tipp für mich?