function SaveAsPdfUaToStream(Stream: TStream; const Options: TPdfUaSaveOptions): Boolean;
SaveAsPdfUaToStream on SaveAsPdfUa:n virtaava vastine
— se tuottaa saman PDF/UA-1-tuloksen mutta kirjoittaa lopputuloksen
kutsujan antamaan mihin tahansa TStreamiin, joka tukee siirtymiä. Hyödyllinen
HTTP-lähetysputkille, BLOB-sarakkeille, muistissa toimiville
välimuistikerroksille, arkistosäiliöille (ZIP / TAR) tai mille tahansa
työnkululle, jossa PDF/UA-tavujen ei koskaan tarvitse koskea levyyn
Jälkikäsittelylogiikka on identtinen SaveAsPdfUa(FileName, Options)
-kutsun kanssa: ensin ajetaan perus-SaveAs, sitten inkrementaalinen päivitys
ruiskuttaa XMP-metatietovirran (pakollinen dc:title ISO 14289-1
§7.1:n mukaan ja pdfuaid-laajennusskeeman kuvaus), katalogin merkinnät
/MarkInfo ja /ViewerPreferences, kun lähteessä ei
ole niitä, katalogin merkinnän /Lang, kun kutsuja toimitti
BCP 47 -tunnisteen, sekä trailerin /ID-taulukon. Tyhjiksi
jätetyt Options-kentät täytetään automaattisesti PDFiumin lukuohjelmista
(FPDF_GetMetaText, FPDF_GetFileIdentifier,
FPDFCatalog_GetLanguage), joten tyypillinen kutsuja asettaa
tarvittaessa vain DocumentTitle- tai Language-arvon
Palauttaa True onnistuessaan. Tulostevirta jää asentoon heti
viimeisen kirjoitetun tavun jälkeen. Palauttaa False, jos
perus-SaveAs epäonnistui tai jos jälkikäsittelyä ei voitu liittää
(tyypillisesti salattu lähde)
saRemoveSecurity-valinnan
var
Stream: TMemoryStream;
Opts: TPdfUaSaveOptions;
begin
Stream := TMemoryStream.Create;
try
Opts := TPdfUaSaveOptions.Default;
Opts.DocumentTitle := 'Quarterly Report';
Opts.Language := 'en';
if Pdf1.SaveAsPdfUaToStream(Stream, Opts) then
begin
Stream.Position := 0;
UploadToArchive(Stream);
end;
finally
Stream.Free;
end;
end;