smtpserver.dpr

SMTPserver is a freeware application that shows how to use the ADVsystems TWSMTPserver Delphi compon

//******************************************************************//
// Project      SMTPserver                                          //
//                                                                  //
// Description  Implements a basic, non-delivering, demonstration   //
//              of TWSMTPserver.                                    //
//                                                                  //
// Copyright    This software is subject to the license at:         //
//              http://www.codecutters.org/software/license.html    //
//              with the additional conditions below:               //
//                                                                  //
//              (i)   This source code is "Open Source"             //
//              (ii)  This source code may be freely distributed &  //
//                    modified, but it's origin must not be         //
//                    misrepresented in any way. This means that    //
//                    this this header must remain intact, with     //
//                    altered portions clearly marked and commented //
//              (iii) This source code may be used in any project,  //
//                    including commercial software; a mention of   //
//                    ADVsystems and a link to the web site would   //
//                    be appreciated, but is not mandatory.         //
//              (iv)  As stated in the license terms, the author    //
//                    accepts no responsibility for damages or costs//
//                    arising from the use or misuse of this        //
//                    software; the software is supplied "as-is",   //
//                    and no claims are made to its merchantability //
//                    or fitness for a given purpose.               //
//******************************************************************//
// (C) ADV Systems 2003, All rights reserved.                       //
//******************************************************************//
// Version  Date    Author   Reason                                 //
// 1.00     290303  I.Baker  Initial version                        //
// 1.01     130403  I.Baker  Incorporated comments from Arno Garrels//
// 2.00     081003  I.Baker  Rewritten to use v2.0 of the component //
//******************************************************************//

program SMTPserver;

uses
  Forms,
  Main in 'Main.pas' {MainForm},
  WSMTPserver in 'WSMTPserver.pas',
  DateUtils in 'DateUtils.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.