请问，如何判断某一端口号已经被其他程序占用(200分)

W

whitelion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #1

我看kv3000带的反黑王能够看到计算机的端口占用情况，这是如何实现的

 

L

luckywzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #2

up

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #3

你在该端口绑定Socket，若返回错误则说明该端口已经绑定了。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #4

用它的时候出错！

 

卡

卡色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #5

如果绑定的端口号为0，那么系统会给你分配一个没人用的端口号

 

裴

裴小锴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #6

up

 

D

delphifans_hx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #7

for 循环搞定

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #8

IPTools可以显示出来所有的端口的使用情况,
现实的很快,好像不是扫描的

 

W

whitelion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #9

兄弟们能写点代码给我吗

 

小

小客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #10

先读注册表得到有几个端口，然后用个循环一个一个open，异常处理里面填个'被占用'这类的话。

 

L

lp414

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #11

看api关于createfile

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #12

我这里有个办法，不是很精巧，但在使用TServerSocket（或TClientSocket）的情况下却是
没有办法的办法。由于控件在打开端口时已经调用了WSAGetLastError()，所以我无法通过自
已调用这个函数来获取错误结果了，只能从Exception的Message里取得。
//下面的代码需要引用WinSock单元
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Port := StrToInt(Edit1.Text);
try
ServerSocket1.Open;
except
on E: ESocketError do
begin
if (Pos(IntToStr(WSAEADDRINUSE), E.Message)>0) then
MessageBox(Handle, '端口已被占用!', 'SockServer', MB_ICONERROR);
end;
end;
end;
上面的程序也是能够正常获取结果的，但如果使用WinSock API来编写程序，就可以通过
WSAGetLastError()来获取更精确的结果，但估计多数人是不喜欢使用API来编写Socket程序
的（我喜欢）。

 

N

NowCan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #13

GetTcpTable
GetUdpTable

 

W

whitelion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #14

继续讨论

 

娇

娇气包

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #15

学习！

 

B

bq.xu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #16

同意NewCan的建议！
可参照：
http://wwwstud.rz.uni-leipzig.de/~soz97dcx/netstat.htm

 

W

whitelion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #17

还有别的方法吗

 

W

whitelion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #18

谢谢了