Aus TTF-Datei jedes Zeichen als PNG-Datei ausgeben

[Winni]

Hi!

Also transparente PNG Dateien geht mit der BGRAbitmap recht einfach.
Die gewünschte Font Datei zuweisen auch.

Code: Alles auswählen

uses .... BGRAbitmap, BGRAbitmapTypes;
....

var bmp: TBGRAbitmap;
begin
bmp := TBGRAbitmap.create(Breite,Hoehe); // Ohne  Farb-Parameter wirds transparent
bmp.FontName  := 'Arial';
bmp.FontQuality:=   fqFineAntialiasing;
bmp.FontHeight := 24;
bmp.TextOut (1,1,'ABCDEFG',cssMidnightBlue, taLeftJustify);
bmp.saveToFile('Buchstaben.png');
bmp.free;

Zum Farbparameter be TBGRAbitmap.create:

Die Standardform ist

Code: Alles auswählen

TBGRAbitmap.create(Breite,Hoehe, Farbe);

Es gibt aber auch die oben gezeigte Version ohne Farbparameter.
Die erzeugt eine transparente Bitmap:

Code: Alles auswählen

TBGRAbitmap.create(Breite,Hoehe);

Winni

[sstvmaster]

@kirchfritz,

meinst du so was wie er hier gemacht hat?
- https://en.delphipraxis.net/topic/5504- ... rendering/

Siehe letzter Beitrag und Link.

[Winni]

Hi!

Da kirchfritz sich nicht weiter mit der internen Struktur von UTF8 belasten will, erhöre ich mal seinen Wunsch nach einer brut force Lösung.

Es gibt folgende Function in der unit LazUTF8:

Code: Alles auswählen

function UnicodeToUTF8(
  CodePoint: Cardinal;
  Buf: PChar
):Integer;

CodePoint: ist ein Unsigned Integer zwischen 0 und $FFFFFFFF
In Buf wird das gewünschte UTF8 Zeichen abgelegt - falls es das gibt
Der Rückgabewert ist ein Wert zwischen 0 und 4 und gibt dieLänge des UTF8 Zeichen (im Buf) in Byte an. Fall der Wert 0 ist, dann gibt's das Zeichen nicht und es wird eine Exception ausgelöst.
Also sollte man diese function in einem Try-Block verwenden und die Exception abfangen.

Zu bedenken ist also: Wenn man wirklich die Schleife von 0 bis $FFFFFFFF laufen lässt, so lopt er 4 Milliarden mal, gibt aber nur 1 Million valide Resultate. Dabei löst er dann
4*10^9 - 1*10^6
mal eine Exception aus.

Ich hoffe es gibt einen schnellen Rechner.
Oder doch mal mit der internen Struktur von UTF8 beschäftigen??

Winni

[six1]

Font-Brute-Forcing cool

[Winni]

a) Ich weiß nicht, wie ich die Schleife über alle Zeichen aus der TTF-Datei machen kann.
Ich könnte in einer For Schleife i von 1 bis $FFFF laufen lassen und dann mit TextOut(0,0,WideChar(i)) das Zeichen in einen Canvas ausgeben. Aber ich habe keine Ahnung, welche Zeichen von 1 bis $FFFF im Font wirklich enthalten sind.
b) Ich weiß noch nicht genau, wie ich ein PNG mit transparentem Hintergrund erstelle.

Hallo!

Dein Problem 2 hab ich Dir mit der BGRAbitmap gelöst.

Dein Problem 1 ist dein falsches Verständnis des TTF-Fonts.
Ein TTF-Font enthält keine Infos über die Anzahl der vorhandenen Glyphs.
Ein TTF-Font enthält ein

[Pseudocode]

array of
record
Cp: Codepoint;
Data: array of Becier;
end;

Ist der Codepoint vorhanden, wird das zugehörige Glyph angezeigt.
Andernfalls das NoGlyph-Substitute

Erschwerend kommt hinzu:

Bei U+E000 fängt die "Private Use Area" an. Da ist nix normiert. Da kann jeder reinbasteln, was er möchte. Genaueres können Dir nur die Macher des TTF sagen.

Und Dein Rumgeeier lasst vermuten, das der Font "SAP-icons" copyright geschützt ist und nicht billig ist.

Dein Ansatz, die Codepoints über den widestring-manager ausgeben zu lassen, ist richtig.

Alle anderen Infos erhältst Du nur über trial and error.

Winni

[Socke]

Und Dein Rumgeeier lasst vermuten, das der Font "SAP-icons" copyright geschützt ist und nicht billig ist.

Wenn du die unter der APL 2.0 lizenzierte Version im woff2-Format selbst nach TTF konvertierst, hast du keine Probleme.

Nachtrag: In der SAPUI5 Bibliothek kann man sich auch alle Icons ansehen und als TTF herunterladen. Dort gilt aber eine andere Lizenz!