(Delphi DLL) HTTP - Verify Server is a Trusted Root CA

Demonstrates how to only allow connections to an HTTP server having a certificate with a root that is in our list of trusted CA root certificates.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
chilkatGlob: HCkGlobal;
success: Boolean;
url: PWideChar;
http: HCkHttp;
html: PWideChar;
trustedRoots: HCkTrustedRoots;

begin
// Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
chilkatGlob := CkGlobal_Create();
success := CkGlobal_UnlockBundle(chilkatGlob,'Anything for 30-day trial.');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkGlobal__lastErrorText(chilkatGlob));
    Exit;
  end;

//  On my particular system, the root CA cert for this URL is not pre-installed.
//  Note: This may be different for you.
//  Also, this example was written on 29-May-2015.  This URL was valid at the time,
//  but may not be valid at a future date.
url := 'https://animals.nationalgeographic.com/animals/invertebrates/starfish/';

http := CkHttp_Create();

//  Require that the SSL/TLS server certificate is not expired,
//  and that the certificate signature is valid.
//  This does not ensure that it has a chain of authentication to
//  a trusted root.  To ensure that, the TrustedRoots object (below) is required.
CkHttp_putRequireSslCertVerify(http,True);

//  Do the HTTPS page fetch (through the SSH tunnel)
html := CkHttp__quickGetStr(http,url);
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('The HTTP GET was successful.');

//  Now let's require that HTTP requests to SSL/TLS servers that don't have trusted CA roots
//  should fail.
trustedRoots := CkTrustedRoots_Create();

//  Indicate that we will trust any pre-installed certificates on this system.
//  (The meaning of pre-installed certificates depends on the operating system, and in
//  some environments there is no such thing as pre-installed certificates.  See the reference
//  documentation for the TrustedRoots class.)
CkTrustedRoots_putTrustSystemCaRoots(trustedRoots,True);

//  Activate the trusted roots globally for all Chilkat objects.
//  This call really shouldn't fail, so we're not checking the return value.
success := CkTrustedRoots_Activate(trustedRoots);

//  Given that our previous HTTP GET likely kept the connection open,
//  make sure that all HTTP connections are closed before re-trying.
//  Otherwise, we'll simply be re-using the pre-existing connection.
success := CkHttp_CloseAllConnections(http);

//  Now let's try fetching the URL again.  It should fail this time because
//  there is a requirement that the SSL/TLS server certificate must have a trusted root,
//  and the trusted root for this URL is not installed on my system (but may be different for you..)
html := CkHttp__quickGetStr(http,url);
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Memo1.Lines.Add('Good, the HTTP request failed as expected.');
  end
else
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Memo1.Lines.Add('Hmmm... we did not fail as expected?');
  end;

CkGlobal_Dispose(chilkatGlob);
CkHttp_Dispose(http);
CkTrustedRoots_Dispose(trustedRoots);

end;