AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Unicode drucken

Ein Thema von BlueStarHH · begonnen am 7. Jul 2009 · letzter Beitrag vom 7. Jul 2009
Antwort Antwort
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
850 Beiträge
 
Delphi 11 Alexandria
 
#1

Unicode drucken

  Alt 7. Jul 2009, 17:57
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;
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Unicode drucken

  Alt 7. Jul 2009, 18:02
bietet TCanvas denn keine Methode um Unicode auszugeben?
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von Gausi
Gausi

Registriert seit: 17. Jul 2005
885 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Unicode drucken

  Alt 7. Jul 2009, 18:25
Bei Delphi 2009 sollte das ja alles Unicode sein. Ich würde auf die Schriftart tippen - probier da mal eine andere, z.B. Tahoma.
The angels have the phone box.
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.202 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: Unicode drucken

  Alt 7. Jul 2009, 18:29
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 ...
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
850 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: Unicode drucken

  Alt 7. Jul 2009, 21:32
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.
  Mit Zitat antworten Zitat
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
850 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Unicode drucken

  Alt 7. Jul 2009, 21:34
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.
  Mit Zitat antworten Zitat
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
850 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: Unicode drucken

  Alt 7. Jul 2009, 21:35
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.
  Mit Zitat antworten Zitat
Antwort Antwort


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 07:04 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