function SaveAsPdfEToStream(Stream: TStream; const Options: TPdfESaveOptions): Boolean;
SaveAsPdfEToStream tokovni je pandan metodi
SaveAsPdfE — proizvodi isti PDF/E-1 izlaz,
ali rezultat zapisuje u bilo koji traživi TStream koji dostavi
pozivatelj. Korisno za integraciju u inženjerske tokove rada u
kojima se PDF/E sadržaji guraju izravno u PLM / PDM sustave,
BLOB stupce, arhivske spremnike ili cjevovode HTTP prijenosa
bez diranja diska
Logika naknadne obrade identična je
SaveAsPdfE(FileName, Options): najprije se izvodi
osnovni SaveAs, zatim inkrementalno ažuriranje ubacuje XMP tok
metapodataka (s pdfe:ISO_PDFEVersion i opisom sheme proširenja),
prepisuje Document Information Dictionary kako bi dodalo obavezni
unos /ISO_PDFEVersion (PDF/E-1), ažurira katalog
da referencira novi XMP i emitira trailer s novim nizom
/ID. Polja Options ostavljena praznima automatski
se popunjavaju iz PDFium čitača (FPDF_GetMetaText,
FPDF_GetFileIdentifier), pa tipičan pozivatelj treba
nadjačati samo polje Version za ne zadane vrijednosti
Part / Amd / Corr
Vraća True pri uspjehu. Izlazni tok ostaje na
poziciji nakon zadnjeg zapisanog bajta. Vraća False
ako osnovni SaveAs nije uspio ili ako naknadna obrada nije
mogla biti priložena
/ISO_PDFEVersion. Postojeće vrijednosti PDF/E verzije zamjenjuju se
var
Stream: TMemoryStream;
Opts: TPdfESaveOptions;
begin
Stream := TMemoryStream.Create;
try
Opts := TPdfESaveOptions.Default;
Opts.Producer := 'CAD-Workflow 2026';
if Pdf1.SaveAsPdfEToStream(Stream, Opts) then
begin
Stream.Position := 0;
PushToPLM(Stream);
end;
finally
Stream.Free;
end;
end;