本文介绍了一个简单的Delphi函数，用于检查指定IP地址和端口的网络连接状态。通过使用WinSock函数，该函数尝试建立TCP连接，并根据结果返回布尔值。
代码很简单，使用WinSock函数实现如下：
function CheckNetWork( port : Integer; IPAddress : string) : Boolean;
Var
skt1 : TSocket;
sa : TSockAddr;
begin
skt1 := socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
sa.sin_family := PF_INET;
sa.sin_port := htons(port);
//sa.sin_addr.S_addr := INADDR_ANY;
sa.sin_addr.S_addr := inet_addr( PAnsiChar(IPAddress));
//bind(skt1,sa,sizeof(sa));
if connect(skt1, sa, sizeof(sa))=0 then
MessageBox(0,'与远程主机已经建立连接','Test Network State', MB_OK)
Result := True
else
MessageBox(0,'与远程主机连接失败','Test Network State', MB_OK);
Result := False;
end;
扫一扫
511
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
