home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / FastNet / Daytime / dtdem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  3.5 KB  |  112 lines
  1. ///////////////////////////////////////////////////////////////////////////
  2. //                                                                       //
  3. // Copyright ⌐ 1997-1998, NetMasters, L.L.C                              //
  4. //  - All rights reserved worldwide. -                                   //
  5. //  Portions may be Copyright ⌐ Inprise.                                 //
  6. //                                                                       //
  7. // DayTime Demo Unit1 :  (UNIT1.PAS)                                     //
  8. //                                                                       //
  9. // DESCRIPTION:                                                          //
  10. //                                                                       //
  11. // THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY //
  12. // KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE   //
  13. // IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR //
  14. // PURPOSE.                                                              //
  15. //                                                                       //
  16. ///////////////////////////////////////////////////////////////////////////
  17. //                                     //
  18. // Revision History                             //
  19. //                                     //
  20. //                                                                       //
  21. ///////////////////////////////////////////////////////////////////////////
  22. unit DTDem;
  23.  
  24. interface
  25.  
  26. uses
  27.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  28.   StdCtrls, Psock, NMDayTim, ExtCtrls, ComCtrls;
  29.  
  30. type
  31.   TForm1 = class(TForm)
  32.     Panel1: TPanel;
  33.     Edit1: TEdit;
  34.     Edit2: TEdit;
  35.     Label1: TLabel;
  36.     Label2: TLabel;
  37.     NMDayTime1: TNMDayTime;
  38.     Button1: TButton;
  39.     Label3: TLabel;
  40.     StatusBar1: TStatusBar;
  41.     procedure Button1Click(Sender: TObject);
  42.     procedure NMDayTime1Connect(Sender: TObject);
  43.     procedure NMDayTime1Disconnect(Sender: TObject);
  44.     procedure NMDayTime1HostResolved(Sender: TComponent);
  45.     procedure NMDayTime1Status(Sender: TComponent; Status: String);
  46.     procedure NMDayTime1ConnectionFailed(Sender: TObject);
  47.     procedure NMDayTime1InvalidHost(var handled: Boolean);
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.   end;
  53.  
  54. const
  55.   StdCap = 'The Current Date and Time is : ';
  56.  
  57. var
  58.   Form1: TForm1;
  59.  
  60. implementation
  61.  
  62. {$R *.DFM}
  63.  
  64. procedure TForm1.Button1Click(Sender: TObject);
  65. begin
  66.   NMDayTime1.ReportLevel := Status_Basic;
  67.   NMDayTime1.TimeOut := 300;
  68.   NMDayTime1.Host := Edit1.Text;
  69.   NMDayTime1.Port := StrToInt(Edit2.Text); 
  70.   Label3.Caption := StdCap+NMDayTime1.DayTimeStr;
  71. end;
  72.  
  73. procedure TForm1.NMDayTime1Connect(Sender: TObject);
  74. begin
  75.   StatusBar1.SimpleText := 'Connected';
  76. end;
  77.  
  78. procedure TForm1.NMDayTime1Disconnect(Sender: TObject);
  79. begin
  80.   If StatusBar1 <> nil then
  81.     StatusBar1.SimpleText := 'disconnected';
  82. end;
  83.  
  84. procedure TForm1.NMDayTime1HostResolved(Sender: TComponent);
  85. begin
  86.   StatusBar1.SimpleText := 'Host resolved';
  87. end;
  88.  
  89. procedure TForm1.NMDayTime1Status(Sender: TComponent; Status: String);
  90. begin
  91.   If StatusBar1 <> nil then
  92.     StatusBar1.SimpleText := status;
  93. end;
  94.  
  95. procedure TForm1.NMDayTime1ConnectionFailed(Sender: TObject);
  96. begin
  97.   ShowMessage('Connection Failed');
  98. end;
  99.  
  100. procedure TForm1.NMDayTime1InvalidHost(var handled: Boolean);
  101. var
  102.   TmpStr: String;
  103. begin
  104.   If InputQuery('Invalid Host!', 'Specify a new host:', TmpStr) then
  105.   Begin
  106.     NMDayTime1.Host := TmpStr;
  107.     Handled := TRUE;
  108.   End;
  109. end;
  110.  
  111. end.
  112.