Serialize a PFX to BinData

See more PFX/P12 Examples

Demonstrates Pfx.ToBd, which serializes the current PFX contents as PKCS#12 data into a BinData object, using the supplied output password.

var
success: Integer;
pfx: TChilkatPfx;
password: WideString;
outputPassword: WideString;
bd: TChilkatBinData;

begin
success := 0;

pfx := TChilkatPfx.Create(Self);

//  The file path is relative to the application's current working directory.  An absolute path
//  may also be used.  Supply the path appropriate to your own environment.
//  The PFX password should come from a secure source rather than being hard-coded.
password := 'myPfxPassword';
success := pfx.LoadPfxFile('qa_data/identity.pfx',password);
if (success = 0) then
  begin
    Memo1.Lines.Add(pfx.LastErrorText);
    Exit;
  end;

//  Serialize the PFX contents as PKCS#12 data into a BinData, using the given output password.
outputPassword := 'myOutputPassword';
bd := TChilkatBinData.Create(Self);
success := pfx.ToBd(outputPassword,bd.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(pfx.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('Serialized ' + IntToStr(bd.NumBytes) + ' bytes of PKCS#12 data.');