那里能找到网速测试的源程序?,立即给分,在线等待 各位大侠,我急需要一个用于测试网络速度的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 鼠标移动到TSplitter上时,鼠标会变,这个在源码中哪里可以看到? 菜鸟初级问题(求救) 关于连接网上数据库的问题——急,在线等 传递datetime型数据出错 散分拉!快来呀! 我定义了一个时间变量,怎么取出小时和分啊? database中的servername 的动态更改 救命!!!用 delphi 使用 sock5 协议的办法??? 请问各位大仙哪里有DELPHI的教材下载 如何解压缩aspack压缩过的文件? (50分) 怎样对存入库中的用户密码进行加密? 关于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