function SaveAsEncryptedToStream(Stream: TStream; const Options: TPdfEncryptOptions): Boolean;
| Stream | TStream. The target stream that receives the encrypted bytes |
| Options | TPdfEncryptOptions. Configuration record defining passwords, permissions, metadata encryption flags, and the encryption revision |
True, pokud bylo šifrované PDF úspěšně zapsáno do streamu, nebo False při selháníSaveAsEncryptedToStream is the streaming counterpart to SaveAsEncrypted — aplikuje AES-256-CBC šifrování v souladu s ISO 32000-2 §7.6, ale zapisuje výsledky přímo do jakéhokoli seekable TStream (jako je TMemoryStream nebo TFileStream) namísto zápisu do souboru na disk
Write i SeeksaRemoveSecurity, aby se zajistilo, že objekty v prostém textu budou čistě serializovány před šifrováním při následném zápisu
var
Stream: TMemoryStream;
Opts: TPdfEncryptOptions;
begin
Stream := TMemoryStream.Create;
try
Opts := TPdfEncryptOptions.Default;
Opts.UserPassword := 'user123';
Opts.OwnerPassword := 'owner123';
Opts.Permissions := $FFFFFFF0;
Opts.EncryptMetadata := True;
Opts.Revision := erR6;
if Pdf1.SaveAsEncryptedToStream(Stream, Opts) then
begin
Stream.Position := 0;
SendToNetwork(Stream);
end;
finally
Stream.Free;
end;
end;