AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Unicode in Ausdruck

Offene Frage von "wschrabi"
Ein Thema von wschrabi · begonnen am 2. Jul 2009 · letzter Beitrag vom 3. Jul 2009
Antwort Antwort
wschrabi

Registriert seit: 16. Jan 2005
448 Beiträge
 
#1

Re: Unicode Frage

  Alt 2. Jul 2009, 17: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.
  Mit Zitat antworten Zitat
Alt 2. Jul 2009, 17: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.
Alt 2. Jul 2009, 17: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
448 Beiträge
 
#2

Re: Unicode in Ausdruck

  Alt 2. Jul 2009, 20: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
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: Unicode in Ausdruck

  Alt 2. Jul 2009, 22: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."
  Mit Zitat antworten Zitat
wschrabi

Registriert seit: 16. Jan 2005
448 Beiträge
 
#4

Re: Unicode in Ausdruck

  Alt 3. Jul 2009, 10:01
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);
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz