units/indy/IdDayTimeServer.pas

   1 // 25-nov-2002
   2 unit IdDayTimeServer;
   3
   4 interface
   5
   6 uses KOL { ,
   7   Classes } ,
   8   IdGlobal,
   9   IdTCPServer;
  10
  11 type
  12   TIdDayTimeServer = object(TIdTCPServer)
  13   protected
  14     FTimeZone: string;
  15     function DoExecute(AThread: TIdPeerThread): boolean; override;
  16   public
  17      { constructor Create(AOwner: TComponent); override;
  18    }  { published }
  19     property TimeZone: string read FTimeZone write FTimeZone;
  20     property DefaultPort default IdPORT_DAYTIME;
  21   end;
  22 PIdDayTimeServer=^TIdDayTimeServer;
  23 function NewIdDayTimeServer(AOwner: PControl):PIdDayTimeServer;
  24
  25 implementation
  26
  27 uses
  28   SysUtils;
  29
  30 function NewIdDayTimeServer(AOwner: PControl):PIdDayTimeServer;
  31   //constructor TIdDayTimeServer.Create(AOwner: TComponent);
  32 begin
  33   New( Result, Create );
  34   with Result^ do
  35   begin
  36 //  inherited;
  37   DefaultPort := IdPORT_DAYTIME;
  38   FTimeZone := 'EST';
  39   end;
  40 end;
  41
  42 function TIdDayTimeServer.DoExecute(AThread: TIdPeerThread): boolean;
  43 begin
  44   result := true;
  45   with AThread.Connection do
  46   begin
  47     Writeln(FormatDateTime('dddd, mmmm dd, yyyy hh:nn:ss', Now) + '-' +
  48       FTimeZone);
  49     Disconnect;
  50   end;
  51 end;
  52
  53 end.