Procedure EncryptBufferFree

Code (Delphi)

procedure EncryptBufferFree(

var AData: TEncryptBuffer

);

Warning

AData buffer must be allocated via AllocMem function or be returned by any function from EEncrypt unit.

Code (Delphi)

var

Buffer: TEncryptBuffer;

begin

// Allocate new buffer (600 bytes)

Buffer.cbData := 600;

Buffer.pbData := AllocMem(EncryptBuffer.cbData);

try

// Work with Buffer

finally

// Release buffer when done

EncryptBufferFree(Buffer); // - same as SecureFree(Buffer);

end;

end;

Code (Delphi)

var

Buffer: TEncryptBuffer;

S: RawByteString;

begin

S := 'something';

// Point buffer to S

Buffer.cbData := Length(S);

Buffer.pbData := Pointer(S);

// Work with Buffer

// No need to release Buffer

// (we did not allocate memory for buffer)

end;