Umlaute und Sonderzeichen

[Lincoln Six Echo]

Code: Alles auswählen

...
jpg := TJPEGImage.Create;
jpg.Assign(Graphic);
mem := TMemoryStream.Create;
jpg.SaveToStream(mem);
mem.Position := 0;
i := AddJPEGStream(mem,jpg.Width,jpg.Height);
mem.Free;
jpg.Free;
...
PDF.Page.DrawImage(10,10,150,250,i);

...

[Lincoln Six Echo]

Code: Alles auswählen

...
jpg = TJPEGImage.Create;
jpg.Assign(Graphic);
mem := TMemoryStream.Create;
jpg.SaveToStream(mem);
mem.Position := 0;
i := PDF.Images.AddJPEGStream(mem,jpg.Width,jpg.Height); // Breite + Höhe der Originalgrafik
mem.Free;
jpg.Free;
...
PDF.Page.DrawImage(10,10,150,250,i); // Beliebige Breite + Höhe
...

[xos]

Bild einfügen aus einer Datei sollte so gehen:

Code: Alles auswählen

aImageIdx:=ActPDFDocument.Images.AddFromFile('Computer.bmp');
ActPDFPage.DrawImage(xPos,yPos,aWidth,aHeight,aImageIdx);

[Lincoln Six Echo]

Yapp. genau so.

[ErnstVolker]

Ich klinke mich mal hier ein, da ich auch ein Problem mit Umlauten habe und Theos Tipp mit {$codepage UTF8} keine Abhilfe bietet.

Ich bin mit meinem "Projekt" ja von "Trunk" nach "Stable" umgezogen. In "Trunk" hatte ich schon das Problem mit den Umlauten, konnte aber mit UTF8Decode('für') den Umlaut im pdf darstellen. Auf der aktuellen Stable funktioniert das nicht, und ich weiß nicht wieso.

Hast Du evtl. einen Tipp für mich Theo?

Viele Grüße

Volker

[theo]

Ich bin mit meinem "Projekt" ja von "Trunk" nach "Stable" umgezogen. In "Trunk" hatte ich schon das Problem mit den Umlauten, konnte aber mit UTF8Decode('für') den Umlaut im pdf darstellen. Auf der aktuellen Stable funktioniert das nicht, und ich weiß nicht wieso.

Ich auch nicht.
Du bist also von der aktuellen Entwicklerversion (trunk) zurück auf stable und jetzt geht irgend etwas nicht?
Dann bleib doch bei trunk, das ist sowieso "die Zukunft".

Sonst schau halt nach, was sich verändert hat (Betrifft wohl am ehesten FPC)
https://wiki.freepascal.org/User_Changes_3.2.0 etc.

oder schau im Bugtracker, ob es etwas gibt: https://gitlab.com/freepascal.org/fpc/source/-/issues

[wp_xyz]

Es geht anscheinend um PDF-Erzeugung. Da wirst du für uns sicher ein kleines Projekt erzeugen und hochladen können, in dem man den Fehler sieht? Ansonsten ist das nur blinde Raterei...

[ErnstVolker]

Für ein Projekt fehlt mir jtzt die Muße.

Es geht um PDF-Erstellung.

Code: Alles auswählen

P.WriteText(xPos[34], yPos[34], 'Versteigerungsliste ' + UTF8Decode('für') + ' den');

sieht im PDF so aus:

Versteigerungsliste für den

Lasse ich UTF8Decode vor dem "für" weg, also so:

Code: Alles auswählen

P.WriteText(xPos[34], yPos[34], 'Versteigerungsliste ' + 'für' + ' den');

dann sieht das im pdf so aus:

Versteigerungsliste für den

[ErnstVolker]

Guten Morgen,

heute Morgen hatte ich eher die Muße mal was zusammen zu hexen. Siehe Anhang.

Vielen Dank!

[Joh]

Es geht um PDF-Erstellung.

Code: Alles auswählen

P.WriteText(xPos[34], yPos[34], 'Versteigerungsliste ' + UTF8Decode('für') + ' den');

Mit was erstellst du PDFs? Sprich: wes Kind ist p?

[wp_xyz]

heute Morgen hatte ich eher die Muße mal was zusammen zu hexen. Siehe Anhang.

Mit FPC/main (v3.3.1) wird der Umlaut in

Code: Alles auswählen

  P.WriteText(xPos[34], yPos[34], 'Versteigerungsliste ' + UTF8Decode('für') + ' den');

korrekt dargestellt. Dasselbe gilt für alle anderen Sonderzeichen in dem Text, wenn UTF8Decode angewendet wird,

Aber wieso muss man hier überhaupt mit UTF8Decode den String nach UTF16 konvertieren, wenn der Stringtyp in TPDFPage.WriteText explizit als UTF8String angefordert wird? Manchmal übersteigt FPC meine Intelligenz...

[theo]

Aber wieso muss man hier überhaupt mit UTF8Decode den String nach UTF16 konvertieren, wenn der Stringtyp in TPDFPage.WriteText explizit als UTF8String angefordert wird? Manchmal übersteigt FPC meine Intelligenz...

Es hat mal funktioniert, aber mit FPC 3.2.2 geht es mMn nicht mehr (Regression).
Hier wurde das repariert:
https://gitlab.com/freepascal.org/fpc/s ... sues/39554

Möglicherweise ist es mit den "New Features" wieder unter die Räder gekommen.
https://gitlab.com/freepascal.org/fpc/s ... sues/39836

Man beachte, dass es sich auf PDF Standardfonts (eingebaute) bezieht, da diese nicht Unicode tauglich sind.

[ErnstVolker]

Hhmm, scheint mir so, als funktioniere es nicht mit der Stable. Ich kann auch die Unit "LConvEncoding" einfügen und deren "UTF8-Konverter" benutzen, die Umlaute werden nicht dargestellt.

Trotzdem Dank dafür, dass Ihr euch das angesehen habt!