Lazarus Pascal

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. Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  http: THttp;
  status: Integer;

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

  http := THttp.Create;

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

  WriteLn('chilkatsoft.com status = ' + 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
      WriteLn(http.LastErrorText);
    end;

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

  WriteLn('revoked.badssl.com status = ' + status);


  http.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.