判断端口是否打开？

[lmj2003]

我知道一台服务器的IP地址，我怎么能判断它的那些端口是打开的？比如：211

[xzhifei]

uses
WinSock,windows;

var
s : TSocket;
wsd : TWSAData;
SockAddrIn : TSockAddrIn;
begin
if (WSAStartup(MAKEWORD(2,2),wsd) = 0) then
begin
s := Socket(AF_INET,SOCK_DGRAM,0);
try
if (s <> SOCKET_ERROR) then
begin
SockAddrIn.sin_family := AF_INET;
SockAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
SockAddrIn.sin_port := htons(Short(2222));
if (Bind(s,SockAddrIn,SizeOf(SockAddrIn))<>0) then
if (GetLastError = WSAEADDRINUSE) then
MessageBox(0,'Port 2222 Be Uses','Sorry',MB_OK);
end;
finally
CloseSocket(s);
WSACleanup();
end;
end;

[menggirl]

标志一下

[aiirii]

>>我知道一台服务器的IP地址，我怎么能判断它的那些端口是打开的？比如：211
聯上去試下就知

[S.F.]

你用tcpclient 之类的组件连接它的ip和端口，然后写写事件吧。

[lmj2003]

谢谢大家，我试试看。
欢迎大虾们继续，不够分再加！