那里能找到网速测试的源程序?,立即给分,在线等待 各位大侠,我急需要一个用于测试网络速度的delphi源程序,请问哪里能下载?谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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);begintimer1.Enabled:=true;end;procedure TForm1.FormCreate(Sender: TObject);beginmemo1.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 怎样建立一个带记录型数据组参数的DLL函数 stringgrid的两个小问题(000000000) delphi8的升级那里可以下载到? 学习Inside VCL这本书是不是要有Windows程序设计基础呀. 请教一个模糊的问题,高手指点 郁闷:ado连Access数据库的问题 内存泄漏问题,请教? 如何获得硬盘序列号? 怎么修改系统文件? 大虾,Delphi下怎么使用API函数EnumWindows呢? 怎样对存入库中的用户密码进行加密? 关于UDP的C/S两端收到的数据不一样,服务端老是手不到。谢谢了,内有详细说明。
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