我必须在Delphi中准备小程序,安装在PC上(运行WinXP,Win7)在办公室将发送到MySQL数据库信息有关Internet连接。 到目前为止它工作正常。但是有些计算机有多个网络接口(2个网卡或虚拟卡),程序应该检测连接是否可用(而不是“现在”)。
如果有互联网连接,如何在这种情况下进行测试?
答案 0 :(得分:0)
使用GetAdaptersInfo()
或GetAdaptersAddresses()
枚举可用的界面。对于任何给定的接口IP地址,创建一个TCP套接字,bind()
到IP,connect()
到Internet上任何已知的好服务器,并检查结果。根据需要对每个接口重复。