Unicode in Ausdruck

**wschrabi**

Hallo Experten,

eine dumme Frage: Ich möchte bei einem Ausdruck (über PDFPrinter in eine PDF-Datei) die deutschen Texte
die ich mit Strings gespeichert habe nun internationale (zB Russisch oder Norwegisch) Texte ausgeben.
Wie gehe ich das an? Ich habe einen dt. PC mit Delphi 7. Kann mir jemand da Tipps geben?
Danke herzlichst.

**wschrabi**

Danke for die Umleitung.
Ich hab jetzt die TNT Tools für Delphi 7 installiert und es klappt schön. Nur wie drucke ich einen WideString (zB Tntlabel1.Caption) auf einen PDF Drucker (CutePDF) aus?
Am Liebsten wuerde ich das mit TextOut(100,100,TntLabel1.Caption) machen, doch da kommen nur Fragezeichen.
DANKE für die Hilfe.
Walter

**Apollonius**

Nimm die WinAPI-Funktion TextOutW.

**wschrabi**

Super Tipp, doch wie mach ich das mit dem Drucker?
TextOutW verlangt als ersten Parameter ein DC? Kannst Du mir die Zeile coden?
DANKE!

PS: Ich habs so probieert, doch bekomm ich eine leere Seite auf CutePDF Printer.

if PrintDialog1.Execute then
begin
DC:=GetDC(PrintDialog1.Handle);
Printer.BeginDoc;
TextOutW(DC,100,100, PWideChar(Tntlabel1.Caption),3);
Printer.EndDoc;
end;

Habs auch mit dem und normalem String im Label probiert.OHne Erfolg.
if PrintDialog1.Execute then
begin

Printer.Canvas.Font.Name := 'Tahoma';
DC:=GetDC(PrintDialog1.Handle);
Printer.BeginDoc;
TextOutA(DC,100,100, PChar(Label7.Caption),3);
Printer.EndDoc;
end;

Habs schon gelöst: So ist es richtig:

TextOutW(Printer.Canvas.Handle,100,100, PWideChar(Tntlabel1.Caption),3);

Unicode in Ausdruck

Re: Unicode Frage

Re: Unicode in Ausdruck

Re: Unicode in Ausdruck

Re: Unicode in Ausdruck

Forumregeln

wschrabi Registriert seit: 16. Jan 2005 437 Beiträge	#1 Re: Unicode Frage 2. Jul 2009, 16:39 Hallo Experten, eine dumme Frage: Ich möchte bei einem Ausdruck (über PDFPrinter in eine PDF-Datei) die deutschen Texte die ich mit Strings gespeichert habe nun internationale (zB Russisch oder Norwegisch) Texte ausgeben. Wie gehe ich das an? Ich habe einen dt. PC mit Delphi 7. Kann mir jemand da Tipps geben? Danke herzlichst.
	Zitat

	2. Jul 2009, 16:45 Erstellt von Uwe Raabe
	Dieser Beitrag wurde von Phoenix gelöscht. - Grund: Da ich den Thread geteilt habe brauchts keinen Hinweis auf einen neuen Thread mehr.

	2. Jul 2009, 16:45 Erstellt von Bernhard Geyer
	Dieser Beitrag wurde von Phoenix gelöscht. - Grund: Da ich den Thread geteilt habe brauchts keinen Hinweis auf einen neuen Thread mehr.

wschrabi Registriert seit: 16. Jan 2005 437 Beiträge	#2 Re: Unicode in Ausdruck 2. Jul 2009, 19:23 Danke for die Umleitung. Ich hab jetzt die TNT Tools für Delphi 7 installiert und es klappt schön. Nur wie drucke ich einen WideString (zB Tntlabel1.Caption) auf einen PDF Drucker (CutePDF) aus? Am Liebsten wuerde ich das mit TextOut(100,100,TntLabel1.Caption) machen, doch da kommen nur Fragezeichen. DANKE für die Hilfe. Walter
	Zitat

Apollonius Registriert seit: 16. Apr 2007 2.325 Beiträge Turbo Delphi für Win32	#3 Re: Unicode in Ausdruck 2. Jul 2009, 21:30 Nimm die WinAPI-Funktion TextOutW. Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"? "An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
	Zitat