导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

« 常用API 函数:进程和线程函数 用 TBytesStream 类实现的读文件为十六进制字符的函数 »

一句话获取本机 IP 和判断网络是否联通

判断网络是否联通

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');

end;

 

获取本机IP

//添加 TIdIPWatch 控件: IdIPWatch1

procedure TForm1.Button1Click(Sender: TObject);

var

  ip: string;

begin

  ip := IdIPWatch1.LocalIP;

  ShowMessage(ip);

end;

 

原创文章如转载,请注明:转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]

本文链接地址:http://www.abcxd.com/delphi/abcxddelphi/delphiWANG/367/

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

搜索内容

日历

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved