请教个监测端口的问题：(清其所囊)(10分)

我的程序是监测谁来访问我，并显示端口及主机：

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 2000 do
begin
serversocket1.Port:=i;
serversocket1.Active:=true;
if serversocket1.Socket.Connected then
begin
statusbar1.SimpleText:='connect';
edit1.Text:=inttostr(i);
edit2.Text:=serversocket1.Socket.RemoteHost;
exit;
end else serversocket1.Active:=false;
end;
end;
编译能通过，但运行时出现：
project net.exe raised exception with message 'windows socket
error: (10057),on API' getpeername.
并指向 edit2.Text:=serversocket1.Socket.RemoteHost这句，
我把这句删掉，运行没出错，但端口数老是1,请问：
我的程序错在哪？如何改正？谢谢。

你的程序是干什么呢？
PORT 1 为 IP自己用的，你可以看看PROTOCOL中的定义，
其中当然没有REMOTEHOSTS，而且你可以一直是CONNECTED

到哪里可以查PROTOCOL中的定义？

在windows 98 目录下，
1 是icmp使用的，也就是ping 程序使用的，当然是connected

g

我也想知道。

接受答案了.