![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) IMAP SSH Tunneling (Port Forwarding)Demonstrates how to setup and use an SSH tunnel for IMAP. Note: This example requires Chilkat v11.0.0 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var success: Integer; imap: TChilkatImap; sshHostname: WideString; sshPort: Integer; msgCount: Integer; upperBound: Integer; email: TChilkatEmail; i: Integer; bUid: Integer; begin success := 0; // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. imap := TChilkatImap.Create(Self); // The SSH hostname may be a hostname or an // IP address, such as "192.168.1.108". // The port is typically 22 (the standard port for SSH). sshHostname := 'www.mysshserver.com'; sshPort := 22; // Connect to an SSH server and establish the SSH tunnel: success := imap.SshOpenTunnel(sshHostname,sshPort); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; // Authenticate with the SSH server via a login/password // or with a public key. // This example demonstrates SSH password authentication. // Note: This is not authenticating with the IMAP server, it is // for authenticating with the SSH server, which is separate. success := imap.SshAuthenticatePw('mySshLogin','mySshPassword'); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; // OK, the SSH tunnel is setup. The IMAP component may // be used exactly the same as usual, except all communications // are sent through the SSH tunnel. // Connect to an IMAP server via the SSH tunnel. // Because the SSH tunnel has been previously setup, // this does not establish a direct connection with the IMAP // server. It directs the SSH server to establish the connection. // In this example, the IMAP server requires SSL/TLS. The TLS connection // will be enclosed within the SSH tunnel. imap.Ssl := 1; imap.Port := 993; success := imap.Connect('imap.my-imap-server.com'); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; // Authenticate with the IMAP server via the SSH tunnel. success := imap.Login('myLogin','myPassword'); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; // Select an IMAP mailbox success := imap.SelectMailbox('Inbox'); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; // How many messages in Inbox? msgCount := imap.NumMessages; if (msgCount = 0) then begin Memo1.Lines.Add('No messages found.'); Exit; end; upperBound := 10; if (msgCount < upperBound) then begin upperBound := msgCount; end; // Download up to the 1st 10 messages. email := TChilkatEmail.Create(Self); bUid := 0; for i := 1 to upperBound do begin success := imap.FetchEmail(0,i,bUid,email.ControlInterface); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; Memo1.Lines.Add(email.From); Memo1.Lines.Add(email.Subject); Memo1.Lines.Add('----'); end; // Disconnect from the IMAP server. // The SSH tunnel remains open. success := imap.Disconnect(); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; // It is possible to re-use the existing SSH tunnel for the next connection: success := imap.Connect('imap.my-imap-server2.com'); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; // Review the LastErrorText to see that the connection was made via the SSH tunnel: Memo1.Lines.Add(imap.LastErrorText); success := imap.Disconnect(); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; // Finally, close the SSH tunnel. success := imap.SshCloseTunnel(); if (success = 0) then begin Memo1.Lines.Add(imap.LastErrorText); Exit; end; Memo1.Lines.Add('IMAP SSH tunneling example completed.'); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.