Delphi ActiveX

Serialize a PFX to an Encoded String

Demonstrates Pfx.ToEncodedString, which serializes the current PFX contents and returns the PKCS#12 bytes encoded as text using a named encoding.

Background. Common encodings are base64 and hex. This is convenient when the PKCS#12 data must be stored or transmitted as printable text.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
pfx: TChilkatPfx;
password: WideString;
outputPassword: WideString;
encoded: WideString;

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 using the given output password and return the PKCS#12 bytes encoded as
//  text.  Common encodings include base64 and hex.
outputPassword := 'myOutputPassword';
encoded := pfx.ToEncodedString(outputPassword,'base64');
if (pfx.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(pfx.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(encoded);