True) oder lediglich referenziert und zur Anzeigezeit vom Betriebssystem aufgelöst wird (False)property FontIsEmbedded[Index: Integer]: Boolean; // read only
FontIsEmbedded gibt an, ob die von dem Text-Seitenobjekt am angegebenen Index referenzierte Schrift ihr tatsächliches Glyphenprogramm in der PDF-Datei enthält. Eine eingebettete Schrift reist mit dem Dokument mit und rendert auf jeder Plattform identisch; eine nicht eingebettete (nur referenzierte) Schrift verlässt sich darauf, dass der Viewer eine lokal installierte Schrift mit demselben Namen findet, und kann bei der Anzeige ersetzt werden
Der Indexer ist der nullbasierte Seitenobjektindex (0..ObjectCount - 1). Nicht-Textobjekte geben immer False zurück. Eine Seite muss aktiv sein, bevor die Eigenschaft gelesen wird
Das Einbetten kann vollständig sein (jedes Glyph der Quellschrift ist vorhanden) oder als Untermenge (nur die tatsächlich verwendeten Glyphen erscheinen, mit einem sechsstelligen Präfix vor dem Basisnamen); beide Formen gelten hier als eingebettet. Für PDF/A-Konformität muss jede Schrift eingebettet sein - diese Eigenschaft ist dafür ein schnelles Prüfinstrument
| Index | Nullbasierter Seitenobjektindex im Bereich 0..ObjectCount - 1. |
True sagt nicht aus, ob die Einbettung vollständig oder als Untermenge erfolgt ist — prüfen Sie FontBaseName auf ein ABCDEF+-Präfix, um eine Untermenge zu erkennenFontData liefert nur Daten, wenn die Schrift eingebettet istFalse zurückvar
I, EmbeddedCount, TextCount: Integer;
begin
Pdf1.PageNumber := 1;
EmbeddedCount := 0;
TextCount := 0;
for I := 0 to Pdf1.ObjectCount - 1 do
if Pdf1.ObjectType[I] = otText then
begin
Inc(TextCount);
if Pdf1.FontIsEmbedded[I] then Inc(EmbeddedCount);
end;
ShowMessage(Format('%d of %d text objects use embedded fonts',
[EmbeddedCount, TextCount]));
end;