Delphi ActiveX

Transition from Cert.ExportPublicKey to Cert.GetPublicKey

Provides instructions for replacing deprecated ExportPublicKey method calls with GetPublicKey. Delphi ActiveX

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
success: Integer;
cert: TChilkatCert;
publickeyObj: IPublicKey;
publickeyOut: TPublicKey;

begin
success := 0;

cert := TChilkatCert.Create(Self);

// ------------------------------------------------------------------------
// The ExportPublicKey method is deprecated:

publickeyObj := cert.ExportPublicKey();
if (cert.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

// ...
// ...

// ------------------------------------------------------------------------
// Do the equivalent using GetPublicKey.
// Your application creates a new, empty PublicKey object which is passed 
// in the last argument and filled upon success.

publickeyOut := TPublicKey.Create(Self);
success := cert.GetPublicKey(publickeyOut.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;
end;