function SaveAsPdfVTToStream(Stream: TStream; const Options: TPdfVTSaveOptions): Boolean;
SaveAsPdfVTToStream 是 SaveAsPdfVT 的串流對應版本 —
輸出位元組相同(PDF/X-4 標記
加 PDF/VT 識別),只是寫入呼叫端提供的任何
可搜尋 TStream。適用於把每個算繪好的
工作直接推送給數位印刷機或帳務 /
交易文件封存庫而完全不落地磁碟的可變資料列印管線
後處理與 SaveAsPdfVT 完全相同:標記
注入(XMP 串流 + ICC 串流 + OutputIntent 字典 + 改寫的
Info 字典 + 改寫的 Catalog 字典)、需要時的最小
DPart 階層,以及帶 /ID 的
trailer。留空的 Options 欄位會從
FPDF_GetMetaText / FPDF_GetFileIdentifier 自動填入
成功時傳回 True
var
Stream: TMemoryStream;
Opts: TPdfVTSaveOptions;
begin
Stream := TMemoryStream.Create;
try
Opts := TPdfVTSaveOptions.Default;
Opts.Producer := 'PDFiumPas VT pipeline';
if Pdf1.SaveAsPdfVTToStream(Stream, Opts) then
begin
Stream.Position := 0;
PushToPress(Stream);
end;
finally
Stream.Free;
end;
end;