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 หากเขียน PDF ที่เข้ารหัสลงในสตรีมสำเร็จ หรือ False เมื่อล้มเหลวSaveAsEncryptedToStream เป็นรูปแบบสตรีมของ SaveAsEncrypted — ใช้การเข้ารหัส AESV3-CBC หรือ AESV4-GCM ตาม ISO/TS 32003 และเขียนผลลัพธ์ลงใน TStream ที่รองรับการค้นหาตำแหน่ง (seekable) โดยตรง แทนที่จะผ่านการเขียนลงพาธไฟล์
Write และ SeeksaRemoveSecurity เพื่อให้แน่ใจว่าออบเจกต์ข้อความธรรมดา (plaintext) ถูกซีเรียไลซ์อย่างสมบูรณ์ก่อนที่จะถูกเข้ารหัสโดยขั้นตอนหลังการบันทึก
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 := erR7;
if Pdf1.SaveAsEncryptedToStream(Stream, Opts) then
begin
Stream.Position := 0;
SendToNetwork(Stream);
end;
finally
Stream.Free;
end;
end;