AttachmentType - TPdf - PDFium Delphi Component

Componente: TPdf · Unidad: PDFium

Devuelve la cadena de subtipo / MIME registrada para el archivo incrustado en el índice de base cero especificado. El valor se toma de la entrada /Subtype del diccionario de especificación de archivo tal como se define en la sección 7.11.3 de PDF

Syntax

property AttachmentType[Index: Integer]: WString;// solo lectura

Description

El diccionario de especificación de archivo PDF puede llevar un nombre /Subtype opcional que codifica el tipo MIME IANA de la carga incrustada (por ejemplo application#2Fpdf, image#2Fpng, text#2Fcsv). PDFium Delphi Component decodifica los escapes hexadecimales de PDF (#2F de vuelta a /) y expone el valor como una cadena Unicode simple como "application/pdf" o "image/png"

Use esta propiedad para decidir cómo despachar los bytes extraídos, por ejemplo, abrir adjuntos application/pdf en línea en otra instancia de TPdf, enviar imágenes a un TImage o guardar todo lo demás a través de un diálogo de guardado. Cuando el autor no registró un subtipo, la propiedad devuelve una cadena vacía; en ese caso, recurra al rastreo de extensión en AttachmentName

La propiedad es de solo lectura. La entrada MIME se fija en el momento de la creación del adjunto dentro de PDFium y no puede cambiarse en el lugar; recree el espacio si debe reescribir el subtipo

Parameters

Index Integer. Ranura de adjunto basada en cero. Debe cumplir 0 <= Index < AttachmentCount. Los índices fuera de rango devuelven una cadena vacía

Remarks

Los productores PDF más antiguos (antes de 2008) a menudo omitían /Subtype por completo. No trate un tipo vacío como un error
La cadena es la ortografía MIME sin procesar almacenada en el archivo; no está normalizada. Compare sin distinción de mayúsculas al enrutar
Combine con AttachmentName para una tupla de visualización completa en un panel de adjuntos de archivo

Example

var
  I: Integer;
  Mime, Name: string;
begin
  Pdf1.LoadFromFile('mixed-attachments.pdf');
  for I := 0 to Pdf1.AttachmentCount - 1 do
  begin
    Name := Pdf1.AttachmentName[I];
    Mime := LowerCase(Pdf1.AttachmentType[I]);
    if Mime = 'application/pdf' then
      Memo1.Lines.Add('PDF: ' + Name)
    else if StartsText('image/', Mime) then
      Memo1.Lines.Add('Image: ' + Name)
    else
      Memo1.Lines.Add(Format('%s [%s]', [Name, Mime]));
  end;
end;

AttachmentType Propiedad