Delphi ActiveX

Transition from Http.GetServerSslCert to Http.GetServerCert

See more HTTP Examples

Provides instructions for replacing deprecated GetServerSslCert method calls with GetServerCert. 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;
http: TChilkatHttp;
domain: WideString;
port: Integer;
cert1: IChilkatCert;
cert2: TChilkatCert;

begin
success := 0;

http := TChilkatHttp.Create(Self);
domain := 'chilkatsoft.com';
port := 443;

// ------------------------------------------------------------------------
// The GetServerSslCert method is deprecated:

cert1 := http.GetServerSslCert(domain,port);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(cert1.SubjectDN);

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

cert2 := TChilkatCert.Create(Self);
success := http.GetServerCert(domain,port,cert2.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(cert2.SubjectDN);
end;