FontIsEmbedded - TPdf - PDFium Delphi Component

Component: TPdf · Unit: PDFium

Geeft aan of het lettertype dat door een pagina-object wordt gebruikt in de PDF is ingebed (True) of slechts wordt verwezen en tijdens weergave vanuit het besturingssysteem wordt opgelost (False)

Syntax

property FontIsEmbedded[Index: Integer]: Boolean; // read only

Description

FontIsEmbedded rapporteert of het lettertype waarnaar het tekstpagina-object op de opgegeven index verwijst zijn werkelijke glyf-programma in het PDF-bestand meedraagt. Een ingebed lettertype reist met het document en rendert identiek op elk platform; een niet-ingebed (alleen-verwezen) lettertype is afhankelijk van de viewer die lokaal een lettertype met dezelfde naam vindt, en kan bij weergave worden vervangen.

De indexeerder is de op 0 gebaseerde pagina-objectindex (0..ObjectCount - 1). Niet-tekstobjecten retourneren altijd False. Een pagina moet actief zijn voordat de eigenschap wordt gelezen.

Inbedding kan volledig zijn (elke glyf uit het bronlettertype is aanwezig) of subset (alleen de daadwerkelijk gebruikte glyfen verschijnen, met een zesletterige prefix aan de basenaam toegevoegd); beide vormen tellen hier als ingebed. Voor PDF/A-conformiteit moet elk lettertype zijn ingebed — deze eigenschap is een snel controle-instrument voor die vereiste.

Parameters

Index

Op 0 gebaseerde pagina-objectindex in het bereik 0..ObjectCount - 1.

Remarks

De 14 standaard PDF-Type1-lettertypen (Helvetica, Times-Roman enz.) zijn doorgaans niet ingebed en worden verwacht te worden opgelost door de viewer.
Een True-resultaat zegt niet of de inbedding volledig of subset is — inspecteer FontBaseName op een ABCDEF+-prefix om een subset te herkennen.
Combineer met FontData wanneer u de ruwe bytes nodig heeft — FontData retourneert alleen gegevens wanneer het lettertype is ingebed.
Voor niet-tekstobjecten is de eigenschap betekenisloos en retourneert False.
Bruikbaar bij het controleren op PDF/A-conformiteit of bij het berekenen hoe draagbaar een document is tussen systemen.

Example

var
  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;

FontIsEmbedded eigenschap