home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / FastNet / Finger / fngrdem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  3.5 KB  |  115 lines
  1. ///////////////////////////////////////////////////////////////////////////
  2. //                                                                       //
  3. // Copyright ⌐ 1997-1998, NetMasters, L.L.C                              //
  4. //  - All rights reserved worldwide. -                                   //
  5. //  Portions may be Copyright ⌐ Inprise.                                 //
  6. //                                                                       //
  7. // Finger 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 FngrDem;
  23.  
  24. interface
  25.  
  26. uses
  27.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  28.   ComCtrls, StdCtrls, ExtCtrls, Psock, NMFngr;
  29.  
  30. type
  31.   TForm1 = class(TForm)
  32.     NMFinger1: TNMFinger;
  33.     Panel1: TPanel;
  34.     Label1: TLabel;
  35.     Edit1: TEdit;
  36.     Edit2: TEdit;
  37.     Label2: TLabel;
  38.     Edit3: TEdit;
  39.     Label3: TLabel;
  40.     Label4: TLabel;
  41.     Memo1: TMemo;
  42.     StatusBar1: TStatusBar;
  43.     Button1: TButton;
  44.     procedure Button1Click(Sender: TObject);
  45.     procedure NMFinger1Connect(Sender: TObject);
  46.     procedure NMFinger1ConnectionFailed(Sender: TObject);
  47.     procedure NMFinger1Disconnect(Sender: TObject);
  48.     procedure NMFinger1HostResolved(Sender: TComponent);
  49.     procedure NMFinger1Status(Sender: TComponent; Status: String);
  50.     procedure NMFinger1InvalidHost(var handled: Boolean);
  51.   private
  52.     { Private declarations }
  53.   public
  54.     { Public declarations }
  55.   end;
  56.  
  57. var
  58.   Form1: TForm1;
  59.  
  60. implementation
  61.  
  62. {$R *.DFM}
  63.  
  64.  
  65. procedure TForm1.Button1Click(Sender: TObject);
  66. begin
  67.   NMFinger1.ReportLevel := Status_Basic;
  68.   NMFinger1.TimeOut := 5000;
  69.   NMFinger1.Host := Edit1.Text;
  70.   NMFinger1.Port := StrToInt(Edit2.Text);
  71.   NMFinger1.User := Edit3.Text;
  72.   Memo1.Text := NMFinger1.FingerStr;
  73. end;
  74.  
  75. procedure TForm1.NMFinger1Connect(Sender: TObject);
  76. begin
  77.   StatusBar1.SimpleText := 'Connected';
  78. end;
  79.  
  80. procedure TForm1.NMFinger1ConnectionFailed(Sender: TObject);
  81. begin
  82.   ShowMessage('Connection Failed');
  83. end;
  84.  
  85. procedure TForm1.NMFinger1Disconnect(Sender: TObject);
  86. begin
  87.   If StatusBar1 <> nil then
  88.     StatusBar1.SimpleText := 'Disconnected'; 
  89. end;
  90.  
  91. procedure TForm1.NMFinger1HostResolved(Sender: TComponent);
  92. begin
  93.   StatusBar1.SimpleText := 'Host Resolved';
  94. end;
  95.  
  96. procedure TForm1.NMFinger1Status(Sender: TComponent; Status: String);
  97. begin
  98.   If StatusBar1 <> nil then
  99.     StatusBar1.SimpleText := status;
  100. end;
  101.  
  102. procedure TForm1.NMFinger1InvalidHost(var handled: Boolean);
  103. var
  104.   TmpStr: String;
  105. begin
  106.   If InputQuery('Invalid Host!', 'Specify a new host:', TmpStr) then
  107.   Begin
  108.     NMFinger1.Host := TmpStr;
  109.     Edit1.text := NMFinger1.Host;
  110.     Handled := TRUE;
  111.   End;
  112. end;
  113.  
  114. end.
  115.