function SaveAsPdfRToStream(Stream: TStream; const Options: TPdfRSaveOptions): Boolean;
SaveAsPdfRToStream е streaming аналог на
SaveAsPdfR — същите изходни байтове, записани във всеки
seekable TStream, който извикващият предоставя. Полезно за pipelines
за прихващане / архивиране на документи, които вземат изход от скенер, прикачат
PDF/R-1 маркери и избутват резултата към content store без
да докосват диск.
Последващата обработка е идентична на SaveAsPdfR: catalog е премахнат
до white list-а на §6.3, Info речникът е премахнат до white list-а на §6.4.3,
XMP поток носи четирите записи от §6.4.4 Таблица 1,
%PDF-raster-1.0 коментар в долния колонтитул и trailer /ID. Само
четирите позволени Info записи (Creator / Producer / CreationDate /
ModDate) се попълват автоматично от FPDF_GetMetaText; Title /
Author / Subject / Keywords умишлено НЕ се прехвърлят, защото
PDF/R ги забранява в Info речника.
Връща True при успех.
var
Stream: TMemoryStream;
Opts: TPdfRSaveOptions;
begin
Stream := TMemoryStream.Create;
try
Opts := TPdfRSaveOptions.Default;
Opts.Producer := 'PDFiumPas scan pipeline';
if Pdf1.SaveAsPdfRToStream(Stream, Opts) then
begin
Stream.Position := 0;
ArchiveScan(Stream);
end;
finally
Stream.Free;
end;
end;