开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
NMFngr.pas
资源名称：FastNet.rar　[点击查看]
上传用户：szzdds
上传日期：2013-09-18
资源大小：293k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

NMFngr.pas：源码内容
  1. unit NMFngr;
  3. {$X+}
  4. {$R-}
  6. {$IFDEF VER100}
  7. {$DEFINE NMF3}
  8. {$ENDIF}
  9. {$IFDEF VER110}
  10. {$DEFINE NMF3}
  11. {$ENDIF}
  12. {$IFDEF VER120}
  13. {$DEFINE NMF3}
  14. {$ENDIF}
  15. {$IFDEF VER125}
  16. {$DEFINE NMF3}
  17. {$ENDIF}
  19. interface
  21. uses
  22.    Classes, Forms, Psock ,NMConst;
  23. {$IFDEF VER110}
  24. {$ObjExportAll On}
  25. {$ENDIF}
  26. {$IFDEF VER120}
  27. {$ObjExportAll On}
  28. {$ENDIF}
  29. {$IFDEF VER125}
  30. {$ObjExportAll On}
  31. {$ENDIF}
  33. //  CompName='TNMFinger';
  34. //  Major_Version='4';
  35. //  Minor_Version='02';
  36. //  Date_Version='012798';
  38. type
  39.    TNMFinger = class(TPowerSock)
  40.    private
  41.       FUser: string;
  42.       function GetFingerString: string;
  43.    protected
  44.       { Protected declarations }
  45.    public
  46.       constructor Create(AOwner: TComponent); override;
  47.    published
  48.       property FingerStr: string read GetFingerString;
  49.       property User: string read Fuser write Fuser;
  50.    end; {_ TNMFinger = class(TPowerSock) _}
  52. implementation
  54. constructor TNMFinger.Create(AOwner: TComponent);
  55. begin
  56.    inherited create(AOwner);
  57.    Port := 79;
  58. end; {_ constructor TNMFinger.Create(AOwner: TComponent); _}
  60. function TNMFinger.GetFingerString: string;
  61. begin
  62.    Result := '';
  63.    if (not (csDesigning in ComponentState)) and (not (CSLoading in ComponentState)) then
  64.    begin
  65.       Connect;
  66.       try
  67.          writeln(FUser);
  68.          while Connected or (DataAvailable) do
  69.             if DataAvailable then Result := Result + ReadLn
  70.             else  {_ NOT if DataAvailable then Result := Result + ReadLn _}
  71.                Application.ProcessMessages;
  72.       finally
  73.          Disconnect;
  74.       end; {_ try _}
  75.    end {_ if (not (csDesigning in ComponentState)) and (not (CSLoading in ComponentState)) then _}
  76. end; {_ function TNMFinger.GetFingerString: string; _}
  80. end.