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

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

Delphi控件源码

开发平台：

Delphi

NMEcho.pas：源码内容
  1. unit NMEcho;
  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, SysUtils, 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='TNMEcho';
  34. //  Major_Version='4';
  35. //  Minor_Version='02';
  36. //  Date_Version='012798';
  41. type
  42.   TNMEcho = class(TPowerSock)
  43.   private
  44.     FEchoInStr: string;
  45.     FElapsedTime: single;
  47.   protected
  48.       { Protected declarations }
  49.   public
  50.     constructor Create(AOwner: TComponent); override;
  51.     function Echo(EchoString: string): string;
  52.     property ElapsedTime: single read FElapsedTime;
  53.   published
  54.     property OnConnectionRequired;
  56.   end; {_ TNMEcho = class(TPowerSock) _}
  58. implementation
  60. constructor TNMEcho.Create(AOwner: TComponent);
  61. begin
  62.   inherited Create(AOwner);
  63.   FEchoInStr := sEcho_Cons_Msg_echoS;
  64.   Port := 7;
  65. end; {_ constructor TNMEcho.Create(AOwner: TComponent); _}
  67. function TNMEcho.Echo(EchoString: string): string;
  68. var i: TdateTime;
  69. begin
  70.   if (not (csDesigning in ComponentState)) and (not (CSLoading in ComponentState)) then
  71.   begin
  72.     CertifyConnect;
  73.     i := Now;
  74.     Writeln(EchoString);
  75.     Result := Readln;
  76.     FElapsedTime := 24 * 60 * 60 * 100 * (Now - i);
  77.   end {_ if (not (csDesigning in ComponentState)) and (not (CSLoading in ComponentState)) then _}
  78.   else {_ NOT if (not (csDesigning in ComponentState)) and (not (CSLoading in ComponentState)) then _}  Result := '';
  79. end; {_ function TNMEcho.Echo(EchoString: string): string; _}
  82. end.