Delphi DLL

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 DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
pfx: HCkPfx;
password: PWideChar;
outputPassword: PWideChar;
encoded: PWideChar;

begin
success := False;

pfx := CkPfx_Create();

//  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 := CkPfx_LoadPfxFile(pfx,'qa_data/identity.pfx',password);
if (success = False) then
  begin
    Memo1.Lines.Add(CkPfx__lastErrorText(pfx));
    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 := CkPfx__toEncodedString(pfx,outputPassword,'base64');
if (CkPfx_getLastMethodSuccess(pfx) = False) then
  begin
    Memo1.Lines.Add(CkPfx__lastErrorText(pfx));
    Exit;
  end;
Memo1.Lines.Add(encoded);

CkPfx_Dispose(pfx);