TServerSocket怎么拒绝TClientSocket的连接？在线等！

[别以为你站在珠峰就能看到全世界]

我希望每个TClientSocket连接打服务器时都要经过服务器的认可。
要在那里写代码，怎么写？？？

[飞天揽月]

在server 的serversocketaccept中
向用户发送消息：sendtext '$u'
然后用户端接受消息，判断如果是'$u'则输入用户名或机子ip这是发送消息到服务器
‘$u username or ip '
服务器判断是否接受，
如不接受则socket.close;

[jishiping]

如果只是根据IP来判断的话，可以在OnAccept中写代码，不接受的话，直接执行socket.close
就可以了。

[别以为你站在珠峰就能看到全世界]

如果有多个连接到服务器，用close方法不就会把其他人也断开

[StreamOne]

楼上说得有道理，close方法不好用。

[jishiping]

OnAccept中的参数Socket，是当前和客户端相连的Socket，不是ServerSocket本身。即使是
执行ServerSocket本身的Close，那也只是ServerSocket不再Listen了，其它已经连接的客
户端不收影响。对于ServerSocket，每个客户端和它连线后，ServerSocket都会产生一个与
客户端对应的 TCustomWinSocket ，关闭其中一个，不会对其它的客户端有影响。

[别以为你站在珠峰就能看到全世界]

谢谢季老大给我上了一课。