Socket/SSL/TLS through SOCKS5 / SOCKS4 Proxy

Demonstrates how to use the Chilkat Socket/SSL/TLS component/library with a SOCKS5 or SOCKS4 proxy server.

Download Chilkat Socket ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATSOCKETLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
socket: TChilkatSocket;
success: Integer;
hostname: String;
ssl: Integer;
maxWaitMillisec: Integer;
receivedMsg: String;

begin
socket := TChilkatSocket.Create(Self);

success := socket.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Failed to unlock component');
    Exit;
  end;

//  To use a SOCKS4 or SOCKS5 proxy, simply set the following
//  properties prior to calling Connect.  The connection may be SSL/TLS or
//  non-secure - both will work with a SOCKS proxy.
//  The SOCKS hostname may be a domain name or
//  IP address:
socket.SocksHostname := 'www.mysocksproxyserver.com';
socket.SocksPort := 1080;
socket.SocksUsername := 'myProxyLogin';
socket.SocksPassword := 'myProxyPassword';
//  Set the SOCKS version to 4 or 5 based on the version
//  of the SOCKS proxy server:
socket.SocksVersion := 5;
//  Note: SOCKS4 servers only support usernames without passwords.
//  SOCKS5 servers support full login/password authentication.

//  Connect to port 5555 of 192.168.1.108.
//  hostname may be a domain name or IP address.
hostname := '192.168.1.108';
ssl := 0;
maxWaitMillisec := 20000;
success := socket.Connect(hostname,5555,ssl,maxWaitMillisec);
if (success <> 1) then
  begin
    ShowMessage(socket.LastErrorText);
    Exit;
  end;

//  Set maximum timeouts for reading an writing (in millisec)
socket.MaxReadIdleMs := 10000;
socket.MaxSendIdleMs := 10000;

//  The server (in this example) is going to send a "Hello World!"
//  message.  Read it:

receivedMsg := socket.ReceiveString();
if (receivedMsg = NULL ) then
  begin
    ShowMessage(socket.LastErrorText);
    Exit;
  end;

//  Close the connection with the server
//  Wait a max of 20 seconds (20000 millsec)
socket.Close(20000);

ShowMessage(receivedMsg);
end;