nmecho.pas

来自「DELPHI里面一些常用的控件」· PAS 代码 · 共 84 行

unit NMEcho;

{$X+}
{$R-}

{$IFDEF VER100}
{$DEFINE NMF3}
{$ENDIF}
{$IFDEF VER110}
{$DEFINE NMF3}
{$ENDIF}
{$IFDEF VER120}
{$DEFINE NMF3}
{$ENDIF}
{$IFDEF VER125}
{$DEFINE NMF3}
{$ENDIF}

interface

uses
  Classes, SysUtils, Psock, NMConst;
{$IFDEF VER110}
{$OBJEXPORTALL On}
{$ENDIF}
{$IFDEF VER120}
{$OBJEXPORTALL On}
{$ENDIF}
{$IFDEF VER125}
{$OBJEXPORTALL On}
{$ENDIF}

//  CompName='TNMEcho';
//  Major_Version='4';
//  Minor_Version='02';
//  Date_Version='012798';




type
  TNMEcho = class(TPowerSock)
  private
    FEchoInStr: string;
    FElapsedTime: single;

  protected
      { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    function Echo(EchoString: string): string;
    property ElapsedTime: single read FElapsedTime;
  published
    property OnConnectionRequired;

  end; {_ TNMEcho = class(TPowerSock) _}

implementation

constructor TNMEcho.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FEchoInStr := sEcho_Cons_Msg_echoS;
  Port := 7;
end; {_ constructor TNMEcho.Create(AOwner: TComponent); _}

function TNMEcho.Echo(EchoString: string): string;
var i: TdateTime;
begin
  if (not (csDesigning in ComponentState)) and (not (CSLoading in ComponentState)) then
  begin
    CertifyConnect;
    i := Now;
    Writeln(EchoString);
    Result := Readln;
    FElapsedTime := 24 * 60 * 60 * 100 * (Now - i);
  end {_ if (not (csDesigning in ComponentState)) and (not (CSLoading in ComponentState)) then _}
  else {_ NOT if (not (csDesigning in ComponentState)) and (not (CSLoading in ComponentState)) then _}  Result := '';
end; {_ function TNMEcho.Echo(EchoString: string): string; _}


end.