(Delphi ActiveX) Convert PKCS12 / PFX to Java KeyStore

Converts a PKCS12 / PFX file to a Java keystore (JKS) file.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
jks: TChilkatJavaKeyStore;
pfx: TChilkatPfx;
pfxPassword: WideString;
success: Integer;
alias: WideString;
jksPassword: WideString;

begin
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

jks := TChilkatJavaKeyStore.Create(Self);

pfx := TChilkatPfx.Create(Self);

pfxPassword := 'secret';

// Load a PKCS12 from a file.
success := pfx.LoadPfxFile('/someDir/my.p12',pfxPassword);
if (success <> 1) then
  begin
    Memo1.Lines.Add(pfx.LastErrorText);
    Exit;
  end;

alias := 'someAlias';
jksPassword := 'jksSecret';

// Add the PKCS12 to the empty Java keystore object:
success := jks.AddPfx(pfx.ControlInterface,alias,jksPassword);
if (success <> 1) then
  begin
    Memo1.Lines.Add(jks.LastErrorText);
    Exit;
  end;

// Write the Java keystore to a file:
success := jks.ToFile(jksPassword,'/jksFiles/my.jks');
if (success <> 1) then
  begin
    Memo1.Lines.Add(jks.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Successfully converted PKCS12 to JKS');
  end;
end;