function SaveAsPdfRToStream(Stream: TStream; const Options: TPdfRSaveOptions): Boolean;
SaveAsPdfRToStream es la contraparte en flujo de
SaveAsPdfR — los mismos bytes de salida, escritos en cualquier
TStream con soporte de búsqueda que proporcione el llamador. Es útil para
flujos de captura / archivo de documentos que toman la salida del escáner, adjuntan
los marcadores PDF/R-1 y envían el resultado a un almacén de contenido sin
tocar el disco
El posprocesamiento es idéntico al de SaveAsPdfR: catálogo reducido
a la lista blanca del §6.3, diccionario Info reducido a la lista blanca
del §6.4.3, flujo XMP con las cuatro entradas de §6.4.4 Table 1,
comentario de pie %PDF-raster-1.0 y /ID del trailer. Solo
las cuatro entradas Info permitidas (Creator / Producer / CreationDate /
ModDate) se rellenan automáticamente desde FPDF_GetMetaText; Title /
Author / Subject / Keywords deliberadamente NO se trasladan porque
PDF/R los prohíbe en el diccionario Info
Devuelve True en caso de éxito
var
Stream: TMemoryStream;
Opts: TPdfRSaveOptions;
begin
Stream := TMemoryStream.Create;
try
Opts := TPdfRSaveOptions.Default;
Opts.Producer := 'PDFium Delphi Component scan pipeline';
if Pdf1.SaveAsPdfRToStream(Stream, Opts) then
begin
Stream.Position := 0;
ArchiveScan(Stream);
end;
finally
Stream.Free;
end;
end;