Delphi DLL

OCSP Check Domain's Server Certificate Revocation Status

See more HTTP Examples

Sends an OCSP request to determine the revocation status for an SSL server certificate. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
status: Integer;

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

http := CkHttp_Create();

// Check the revocation status of the SSL server certificate for chilkatsoft.com
status := CkHttp_OcspCheck(http,'chilkatsoft.com',443);

Memo1.Lines.Add('chilkatsoft.com status = ' + IntToStr(status));

// The status can have 4 values:
// -1: Unable to check because of an error.
//  0: Good
//  1: Revoked
//  2: Unknown

if (status < 0) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
  end;

// Now check the status for a revoked server certificate.
status := CkHttp_OcspCheck(http,'revoked.badssl.com',443);

Memo1.Lines.Add('revoked.badssl.com status = ' + IntToStr(status));

CkHttp_Dispose(http);

end;