FontIsEmbedded - TPdf - PDFium Delphi Component

Componente: TPdf · Unidad: PDFium

Indica si la fuente usada por un objeto de página está incrustada dentro del PDF (True) o si solo se referencia y se resuelve en tiempo de visualización desde el sistema operativo (False)

Syntax

property FontIsEmbedded[Index: Integer]: Boolean;// solo lectura

Description

FontIsEmbedded informa de si la fuente referenciada por el objeto de página de texto en el índice dado lleva su programa de glifos real dentro del archivo PDF. Una fuente incrustada viaja con el documento y se renderiza de forma idéntica en cualquier plataforma; una fuente no incrustada (solo referenciada) depende de que el visor encuentre una fuente del mismo nombre instalada localmente, y puede sustituirse al mostrarse

El indexador es el índice de objeto de página basado en 0 (0..ObjectCount - 1). Los objetos no textuales siempre devuelven False. Debe haber una página activa antes de leer la propiedad

La incrustación puede ser completa (todos los glifos de la fuente de origen están presentes) o de subconjunto (solo aparecen los glifos realmente usados, con un prefijo de seis letras añadido al nombre base); ambas formas cuentan aquí como incrustadas. Para el cumplimiento de PDF/A toda fuente debe estar incrustada — esta propiedad es una herramienta de auditoría rápida para ese requisito

Parameters

Index

Índice de objeto de página basado en 0 en el rango 0..ObjectCount - 1

Remarks

Las 14 fuentes Type1 estándar de PDF (Helvetica, Times-Roman, etc.) normalmente no están incrustadas y se espera que el visor las resuelva
Un retorno True no dice si la incrustación es completa o de subconjunto — inspeccione FontBaseName en busca de un prefijo ABCDEF+ para detectar un subconjunto
Combine con FontData cuando necesite los bytes sin procesar — FontData solo devuelve datos cuando la fuente está incrustada
Para objetos no textuales la propiedad carece de sentido y devuelve False
Útil al comprobar el cumplimiento de PDF/A o al calcular la portabilidad de un documento entre sistemas

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 Propiedad