Pascal (Lazarus/Delphi)

SMTP/POP3 Enable/Disable TLS 1.3

See more POP3 Examples

Chilkat started supporting TLS 1.3 in version 9.5.0.82. For versions 9.5.0.82 and 9.5.0.83, TLS 1.3 was not enabled by default. A program could enable TLS 1.3 by including the "EnableTls13" keyword in the UncommonOptions property.

In Chilkat v9.5.0.84 and later, TLS 1.3 is enabled by default. TLS 1.3 can be disabled by including the "DisableTls13" keyword in UncommonOptions. This will cause TLS 1.2 to be used instead.

Pascal (Lazarus/Delphi)

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.MailMan;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  mailman: TMailMan;

begin
  mailman := TMailMan.Create;

  //  In Chilkat v9.5.0.82 and .83, TLS 1.3 is not enabled by default. 
  //  To enable TLS 1.3, add the keyword "EnableTls13" to the UncommonOptions property.
  mailman.UncommonOptions := 'EnableTls13';

  //  In Chilkat v9.5.0.84 and later, TLS 1.3 is enabled by default.
  //  If disabling TLS 1.3 is needed (for some unanticipated reason), then add the keyword
  //  "DisableTls13" to UncommonOptions
  mailman.UncommonOptions := 'DisableTls13';


  mailman.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.