[gelöst] Probleme bei libjpfpdf mit SetUTF8(True)

[kirchfritz]

Hallo,

ich verwende die libjpfpdf zur Erstellung von PDF-Dateien. Das Ganze klappt so weit so gut.

Für die Darstellung von Texten mit Sonderzeichen gibt es die procedure SetUTF8(true) bzw SetUFT8(false).

Bei SetUTF8(true) wird der Text mit Sonderzeichen richtig dargestellt.
Bei SetUTF8(false) wird der Text mit Sonderzeichen falsch dargestellt.

Screenshot 2025-07-11 085641.png (111.75 KiB) 633 mal betrachtet

Leider geht das nur(!) in einer Konsolenanwendung.

Die selbe Procedure in der GUI Anwendung hingegen scheint SetUTF8(True) total zu ignorieren.

Screenshot 2025-07-11 085953.png (123.2 KiB) 633 mal betrachtet

Offensichtlich hat die GUI-Anwendung ein Ansi-UTF8-Encoding bzw. ein CodePage Problem.

Wer kann mir dabei helfen, dieses Problem zu lösen?

Beispielprojekte für Konsole und GUI anbei.

Grüße
Fritz

JPDFTest_fuer_Forum.zip

(1.34 MiB) 112-mal heruntergeladen

[theo]

Ich denke, das Ding ist nicht wirklich Unicode-fähig.

Aber so geht es für Umlaute etc. mindestens auf Linux:

Code: Alles auswählen

uses ...  LConvEncoding;  
...
    SetUTF8(False);
...
    Writer(6.5,UTF8ToISO_8859_1('Kirch · Kirch Avião Índio Carroça')); 

[af0815]

Ohne genau zu testen fällt mir am Code auf, das du in der einen Version (GUI) eine Zwischenvariable nimmst, im anderen Fall nicht. Das kann bereits einen großen Unterschied machen, weil die Fälle vom Compiler anders aufgelöst werden. Direkt Zuweisung zu Writer und über die Variable s sind nicht als gleich zu betrachten. Zusätzlich zu dem was Theo hinzugefügt hat.

[kirchfritz]

Ich habe nach den Anregungen von Theo in der libjpfpdf.pas die Aufrufe von UTF8ToAnsi durch UTF8ToISO_8859_1 ersetzt.
Damit läuft unter Windows 11 sowohl die Konsolen-Anwendung als auch die GUI-Anwendung erwartungsgemäß fehlerfrei.
Die Sonderzeichen werden bei SetUTF8(true) korrekt dargestellt!

Danke Theo

Die geänderte libjpfpdf.pas Datei habe ich hier angehängt.

[Joh]

ok... auch 'ne Möglichkeit.

Ich hatte alle Aufrufe mit

Code: Alles auswählen

Writer(6.5, UTF8ToISO_8859_15('Gemäß...'));

ersetzt.

PS: eventuell interessiert dich ja meine Version mit dem RoundedRectangle. Aufruf:

Code: Alles auswählen

pdf.RoundedRect(x, y, breite, Hoehe, Eckenradius, 'B');  // der ursprüngliche/äußere Rahmen

Datei mit RoundedRect (und DIN A2 bis DIN A0):

libjpfpdf.zip

(13.21 KiB) 136-mal heruntergeladen

[af0815]

Komisch, weil in der libjpfpdf wird das hier bei jeden writer aufruf gemacht

Code: Alles auswählen

  if (pUTF8) then begin
    vText := UTF8ToISO_8859_1(vText);
    SetUTF8(False);
    fUTF8 := True;
  end;

und bei SetUTF8

Code: Alles auswählen

procedure TJPFpdf.SetUTF8(mode: Boolean);
begin
  pUTF8 := mode;
end;

Daher, wenn man vor jedem writer aufruf SetUTF8 aufruft, dann wird das UTF8ToISO_8859_1 implizit im writer aufgerufen. Damit sollte der Aufruf der Konvertierung unnötig sein, solange man das SetUTF8(true) vorher aufruft.

[theo]

Komisch, weil in der libjpfpdf wird das hier bei jeden writer aufruf gemacht

Aber nur in der von kirchfritz angepassten Version, nachdem ich UTF8ToISO_8859_1 vorgeschlagen hatte.

fpPDF wäre wirklich Unicode tauglich. https://wiki.freepascal.org/fcl-pdf