Lazarus Pascal

HTTPS Requests over Squid Proxy Direct TLS Connection

See more HTTP Examples

Demonstrates how to send HTTP requests through an HTTP proxy that supports Direct TLS Connections. (Chilkat tests with a squid 4.11 proxy.)

A direct TLS connection to an HTTP proxy is where the initial connection to the proxy server is TLS.

Note: This example requires Chilkat v9.5.0.83 or greater.

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;
  s: string;

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

  http := THttp.Create;

  //  Set the HTTP proxy domain or IP address.
  http.ProxyDomain := '172.16.16.46';
  //  The proxy port..
  http.ProxyPort := 3128;

  //  Indicate that we are to use a direct TLS connection with the HTTP proxy
  //  (we use a Squid Cache: Version 4.11 for testing)
  http.ProxyDirectTls := True;

  //  If the proxy requires a login or password, we can set it here.
  //  Otherwise comment out these lines.
  http.ProxyLogin := 'myProxyLogin';
  http.ProxyPassword := 'myProxyPassword';

  //  All requests sent on the http object will now go through the proxy.
  //  Give it a test:
  s := http.QuickGetStr('https://www.chilkatsoft.com/helloWorld.html');
  if (http.LastMethodSuccess = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  //  The LastErrorText property also contains information when method call succeeds.
  //  Have a look to see that the request was sent through the proxy:
  WriteLn(http.LastErrorText);

  WriteLn('---');
  WriteLn(s);
  WriteLn('---');
  WriteLn('Success for TLS destination over direct TLS HTTP proxy.');


  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.