function SaveAsPdfRToStream(Stream: TStream; const Options: TPdfRSaveOptions): Boolean;
SaveAsPdfRToStream is de streaming-tegenhanger van
SaveAsPdfR — dezelfde uitvoerbytes, weggeschreven naar elke
seekable TStream die de aanroeper aanlevert. Handig voor documentopname- en
archiveringspipelines die scanneroutput nemen, PDF/R-1-markers toevoegen
en het resultaat naar een content store sturen zonder
disk aan te raken
De nabewerking is identiek aan SaveAsPdfR: catalogus teruggebracht
tot de §6.3-whitelijst, Info-dictionary tot de §6.4.3-whitelijst,
XMP-stream met de vier §6.4.4 Table 1-invoeren,
%PDF-raster-1.0-footercommentaar en trailer-/ID. Alleen
de vier toegestane Info-invoeren (Creator / Producer / CreationDate /
ModDate) worden automatisch gevuld via FPDF_GetMetaText; Title /
Author / Subject / Keywords worden bewust NIET doorgegeven omdat
PDF/R ze in de Info-dictionary verbiedt
Geeft True terug bij succes
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;