Unicode drucken

[BlueStarHH]

Hallo,

seit kurzem nutze ich Delphi 2009. Mit dem Code folgender Art drucke ich aus meinem Program. An der Stelle wo 'UnicodeText' steht, steht ein Unicode-String, der jedoch mit lauter Fragezeichen gedruckt wird. Wie kann man das lösen? Danke!

Delphi-Quellcode:

uses
  Printers;

procedure PrintTest;
var
  pt: System.Text;

begin
  AssignPrn(pt);
  Rewrite(pt);

  Printer.Canvas.Font.Name := 'Arial';
  Printer.Canvas.Font.Size := 12;

  WriteLn(pt, 'UnicodeText');
     
  System.Close(pt);
end;

[SirThornberry]

bietet TCanvas denn keine Methode um Unicode auszugeben?

[Gausi]

Bei Delphi 2009 sollte das ja alles Unicode sein. Ich würde auf die Schriftart tippen - probier da mal eine andere, z.B. Tahoma.

[Bernhard Geyer]

Zitat:

Zitat von Gausi

Bei Delphi 2009 sollte das ja alles Unicode sein. Ich würde auf die Schriftart tippen - probier da mal eine andere, z.B. Tahoma.

Wenn Fragezeichen rauskommen liegt irgendwo eine Ansi-Wandlung vor. Bei falscher Schriftart kommen je nach Windows/Font entweder scharze ungefüllte rechtecke oder einfach senkrechte Striche raus ...

[BlueStarHH]

Zitat:

Zitat von Gausi

Bei Delphi 2009 sollte das ja alles Unicode sein. Ich würde auf die Schriftart tippen - probier da mal eine andere, z.B. Tahoma.

Die Arial von XP ist Unicode (geprüft). Mit Tahoma tritt das selbe Problem auf.

[BlueStarHH]

Zitat:

Zitat von Bernhard Geyer

Wenn Fragezeichen rauskommen liegt irgendwo eine Ansi-Wandlung vor. Bei falscher Schriftart kommen je nach Windows/Font entweder scharze ungefüllte rechtecke oder einfach senkrechte Striche raus ...

Dann muss die Ansi-Wandlung Delphi-Intern erfolgen. Mein Unicode-Text steht direkt als Literal in den WriteLn-Aufrufen.

[BlueStarHH]

Zitat:

Zitat von SirThornberry

bietet TCanvas denn keine Methode um Unicode auszugeben?

Wahrscheinlich schon, doch die ganzen Druckerausgaben sind nunmal mit WriteLn schon vorhanden. Das ist ein älteres Projekt was in den letzten 10 Jahren gewachsen ist. Da alles auf TCanvas umzustellen ist Arbeit, die ich mir sparen möchte.