delphi serversocket 禁止某个连接

Question

使用DELPHI的SERVERSOCKET控件，希望能禁止某个连接，目前是在onaccept或者onclientconnect中使用socket.close来中断连接，但是这样做是先允许对方连接再挂断，有没有办法能直接拒绝对方连接？

Answer 1

。用DELPHI的serversocket无法实现吗？

Answer 2

弄明白TCP网络协议原理及其现实，明白什么叫“应用层”，你就不会再有如此一问了。

Answer 3

ScktComp
修改源代码吧
procedure TServerWinSocket.Accept(Socket: TSocket);