home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / FastNet / Time / TIMEDEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  3.4 KB  |  111 lines
  1. ///////////////////////////////////////////////////////////////////////////
  2. //                                                                       //
  3. // Copyright ⌐ 1997-1998, NetMasters, L.L.C                              //
  4. //  - All rights reserved worldwide. -                                   //
  5. //  Portions may be Copyright ⌐ Inprise.                                 //
  6. //                                                                       //
  7. // Time Demo Unit 1:  (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 TimeDem;
  23.  
  24. interface
  25.  
  26. uses
  27.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  28.   StdCtrls, Psock, ExtCtrls, NMTime, ComCtrls;
  29.  
  30. type
  31.   TForm1 = class(TForm)
  32.     Panel1: TPanel;
  33.     Edit2: TEdit;
  34.     Label1: TLabel;
  35.     Label2: TLabel;
  36.     Button1: TButton;
  37.     Label3: TLabel;
  38.     NMTime1: TNMTime;
  39.     StatusBar1: TStatusBar;
  40.     cbHost: TComboBox;
  41.     procedure Button1Click(Sender: TObject);
  42.     procedure NMTime1Connect(Sender: TObject);
  43.     procedure NMTime1ConnectionFailed(Sender: TObject);
  44.     procedure NMTime1Disconnect(Sender: TObject);
  45.     procedure NMTime1HostResolved(Sender: TComponent);
  46.     procedure NMTime1InvalidHost(var handled: Boolean);
  47.     procedure NMTime1Status(Sender: TComponent; Status: String);
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.   end;
  53.  
  54. const
  55.   StdCap = 'The Current 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.   NMTime1.Host := cbHost.Text;
  67.   NMTime1.Port := StrToInt(Edit2.Text);
  68.   Label3.Caption := StdCap+NMTime1.TimeStr;
  69. end;
  70.  
  71. procedure TForm1.NMTime1Connect(Sender: TObject);
  72. begin
  73.   StatusBar1.SimpleText := 'Connected';
  74. end;
  75.  
  76. procedure TForm1.NMTime1ConnectionFailed(Sender: TObject);
  77. begin
  78.   ShowMessage('Connection Failed');
  79. end;
  80.  
  81. procedure TForm1.NMTime1Disconnect(Sender: TObject);
  82. begin
  83.   if StatusBar1 <> nil then
  84.     StatusBar1.SimpleText := 'Disconnected';
  85. end;
  86.  
  87. procedure TForm1.NMTime1HostResolved(Sender: TComponent);
  88. begin
  89.   StatusBar1.SimpleText := 'Host resolved';
  90. end;
  91.  
  92. procedure TForm1.NMTime1InvalidHost(var handled: Boolean);
  93. var
  94.   TmpStr: String;
  95. begin
  96.   if (InputQuery('Invalid Host', 'Enter a valid host', TmpStr)) then
  97.   begin
  98.     NMTime1.Host := TmpStr;
  99.     handled := TRUE;
  100.   end;
  101. end;
  102.  
  103. procedure TForm1.NMTime1Status(Sender: TComponent; Status: String);
  104. begin
  105.   if (StatusBar1 <> nil) then
  106.     StatusBar1.SimpleText := Status;
  107. end;
  108.  
  109.  
  110. end.
  111.