function SaveAsPdfVTToStream(Stream: TStream; const Options: TPdfVTSaveOptions): Boolean;
SaveAsPdfVTToStream é a contraparte em fluxo de
SaveAsPdfVT — mesmos bytes de saída (marcadores PDF/X-4
mais identificação PDF/VT), escritos em qualquer TStream navegável que o
chamador forneça. Útil para pipelines de impressão de dados variáveis onde
cada trabalho renderizado é enviado para uma impressora digital ou para um arquivo
de documentos de faturação / transacional sem tocar no disco
O pós-processamento é idêntico ao SaveAsPdfVT: injeção de
marcadores (fluxo XMP + fluxo ICC + dict OutputIntent + dict Info reescrito
+ dict Catalog reescrito), uma hierarquia DPart mínima quando
necessário e um trailer com /ID
Os campos Options deixados vazios são preenchidos automaticamente a partir de
FPDF_GetMetaText / FPDF_GetFileIdentifier
Devolve True em caso de êxito
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;