各位大侠,我急需要一个用于测试网络速度的delphi源程序,请问哪里能下载?
谢谢!

解决方案 »

  1.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Psock, NMEcho, StdCtrls, ExtCtrls;type
      TForm1 = class(TForm)
        NMEcho1: TNMEcho;
        Edit1: TEdit;
        Label1: TLabel;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Memo1: TMemo;
        Timer1: TTimer;
        Edit2: TEdit;
        Label2: TLabel;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.DFM}
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     NMEcho1.Host:=edit2.text;
    try
     NMEcho1.Connect;
    except
     //关闭任何异常
    end;
    end;procedure TForm1.Button2Click(Sender: TObject);
    begin
      NMEcho1.Disconnect;
      timer1.enabled:=false;
    end;procedure TForm1.Button3Click(Sender: TObject);
    begin
    timer1.Enabled:=true;
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
    memo1.Lines.Clear;
    end;procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      memo1.lines.Clear;
      memo1.lines.add('发送:'+NMEcho1.Echo(Edit1.Text));
      memo1.lines.add('用时:'+FloatToStr(NMEcho1.ElapsedTime)+'毫秒');
    end;end.
    //可以使用ping方法,用ehco方法缺点是要有echo服务器
    //一定要先调用echo方法。
    //端口一般是7