SOCKS4, SOCKS5 Proxy for POP3

Demonstrates how to communicate with a POP3 server through a SOCKS4 or SOCKS5 proxy.

Download Chilkat Email ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
bundle: CHILKATMAILLib2_TLB.IChilkatEmailBundle2;
i: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
//  The mailman object is used for receiving (POP3)
//  and sending (SMTP) email.
mailman := TChilkatMailMan2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := mailman.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Component unlock failed');
    Exit;
  end;

//  To use a SOCKS4 or SOCKS5 proxy, simply set the following
//  properties prior to making any calls that communicate with
//  a POP3 server:
//  The SOCKS hostname may be a domain name or
//  IP address:
mailman.SocksHostname := 'www.mysocksproxyserver.com';
mailman.SocksPort := 1080;
mailman.SocksUsername := 'myProxyLogin';
mailman.SocksPassword := 'myProxyPassword';
//  Set the SOCKS version to 4 or 5 based on the version
//  of the SOCKS proxy server:
mailman.SocksVersion := 5;
//  Note: SOCKS4 servers only support usernames without passwords.
//  SOCKS5 servers support full login/password authentication.

//  Set the POP3 server's hostname
mailman.MailHost := 'mail.chilkatsoft.com';

//  Set the POP3 login/password.
mailman.PopUsername := 'myLogin';
mailman.PopPassword := 'myPassword';

//  Copy the all email from the user's POP3 mailbox
//  into a bundle object.  The email remains on the server.
bundle := mailman.CopyMail();

if (bundle = nil ) then
  begin
    ShowMessage(mailman.LastErrorText);
    Exit;
  end;

for i := 0 to bundle.MessageCount - 1 do
  begin
    email := bundle.GetEmail(i) As CHILKATMAILLib2_TLB.IChilkatEmail2;
    Memo1.Lines.Add(email.From);
    Memo1.Lines.Add(email.Subject + #13#10);

  end;

mailman.Pop3EndSession();
end;