function SaveAsPdfVTToStream(Stream: TStream; const Options: TPdfVTSaveOptions): Boolean;
SaveAsPdfVTToStream — потоковый аналог SaveAsPdfVT —
те же выходные байты (маркеры PDF/X-4 плюс идентификация PDF/VT),
записанные в любой поддерживающий позиционирование TStream,
предоставленный вызывающим. Полезно для конвейеров печати с
переменными данными, где каждое обработанное задание передаётся
на цифровую печатную машину или в архив расчётных / транзакционных
документов без обращения к диску
Постобработка идентична SaveAsPdfVT: внедрение маркеров (поток XMP +
поток ICC + словарь OutputIntent + переписанный Info-словарь +
переписанный словарь Catalog), минимальная иерархия DPart при
необходимости и трейлер с /ID. Пустые поля Options
автоматически заполняются из FPDF_GetMetaText /
FPDF_GetFileIdentifier
Возвращает True в случае успеха
var
Stream: TMemoryStream;
Opts: TPdfVTSaveOptions;
begin
Stream := TMemoryStream.Create;
try
Opts := TPdfVTSaveOptions.Default;
Opts.Producer := 'PDFium Delphi Component VT pipeline';
if Pdf1.SaveAsPdfVTToStream(Stream, Opts) then
begin
Stream.Position := 0;
PushToPress(Stream);
end;
finally
Stream.Free;
end;
end;