高分请教，高手们请进来帮助小弟一把。

Question

用delphi写的ping原代码在CSDN的开发文档里有，好象是ghj1976放上去的，你可以参考参考，也可以自己写，不过太麻烦：）

Answer 1

不能用DELPHI5的控件吗？不是很多网络的控件吗？

Answer 2

我倒有一个Ping的控件，要的话与我联系。

Answer 3

Lin,太感谢你，我的邮箱是[email protected],send给我（带使用说明，我可是菜鸟喔）。

Answer 4

看我的
procedure TForm1.BBtn_PingClick(Sender: TObject);
var batFile: String;
    batstr: TStringList;
begin
  batFile := 'myping.bat';
  resFile := 'pingres.txt';  batstr := TStringList.Create;
  batstr.Add('ping' + MEdt_Ip.Text + ' > ' + resFile);
  batstr.SaveToFile(batFile);  Shellexecute(handle,nil,pchar(batFile),
               nil, nil,SW_HIDE);
end;Mem_result.Lines.LoadFromFile(resFile);
怎么样，投机取巧，嘻嘻！

Answer 5

to bill_lasker
用Winexec执行
用Pos函数找 'reply from '+medt_ip.text串
如何

Answer 6

我给你一个判断网络通不通的代码,用ping 干什么？调用系统的 url.dll。ie5,office都有这个dll.你看有用吗？function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
  if InetIsOffline(0) then
   ShowMessage('This computer is not connected to Internet!')
  else
   ShowMessage('You are connected to Internet!');