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 DLL) IMAP STARTTLS (Explicit TLS/SSL)The StartTls property is set to force the Connect method to automatically convert an connection to TLS/SSL via the STARTTLS IMAP command. This is also known as "explicit TLS/SSL" as opposed to "implicit TLS/SSL". With implicit TLS/SSL, the IMAP client connects on the well-known IMAP TLS/SSL port 993 and the secure channel is immediately established. With explicit TLS/SSL, the IMAP client connects on the typical non-secure port (143 usually) and the converts the connection via the STARTTLS command.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, EmailBundle, Imap, Email, MessageSet; ... procedure TForm1.Button1Click(Sender: TObject); var imap: HCkImap; success: Boolean; messageSet: HCkMessageSet; fetchUids: Boolean; bundle: HCkEmailBundle; i: Integer; numEmails: Integer; email: HCkEmail; begin // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. imap := CkImap_Create(); // Indicate that STARTTLS should be used to convert // to a secure TLS/SSL connection: CkImap_putStartTls(imap,True); CkImap_putPort(imap,143); // Connect to an IMAP server and convert the connection // to TLS/SSL via STARTTLS. success := CkImap_Connect(imap,'imap.someMailServer.com'); if (success <> True) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // The remainder of this example is the same as for // non-TLS/SSL... // Login success := CkImap_Login(imap,'myLogin','myPassword'); if (success <> True) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // Select an IMAP mailbox success := CkImap_SelectMailbox(imap,'Inbox'); if (success <> True) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // We can choose to fetch UIDs or sequence numbers. fetchUids := True; // Get the message IDs of all the emails in the mailbox messageSet := CkImap_Search(imap,'ALL',fetchUids); if (CkImap_getLastMethodSuccess(imap) = False) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // Fetch the emails into a bundle object: bundle := CkImap_FetchBundle(imap,messageSet); if (CkImap_getLastMethodSuccess(imap) = False) then begin CkMessageSet_Dispose(messageSet); Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // Loop over the bundle and display the FROM and SUBJECT of each. i := 0; numEmails := CkEmailBundle_getMessageCount(bundle); while i < numEmails do begin email := CkEmailBundle_GetEmail(bundle,i); Memo1.Lines.Add(CkEmail__from(email)); Memo1.Lines.Add(CkEmail__subject(email)); Memo1.Lines.Add('--'); CkEmail_Dispose(email); i := i + 1; end; // Disconnect from the IMAP server. success := CkImap_Disconnect(imap); CkMessageSet_Dispose(messageSet); CkEmailBundle_Dispose(bundle); CkImap_Dispose(imap); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.