在使用ServerSocket时候的问题?

Question

请问各位老大,使用ServerSocket组件作为服务器组件,怎么主动的断开客户端的连接,就是说把一个客户的IP添加到黑名单,有客户连接的时候发现他的IP在黑名单就主动的断开和他的连接??

Answer 1

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if IsBlockedIP(Socket.RemoteAddress) then Socket.Close;
end;

Answer 2

僵哥，我想问下，如果Socket.Close;
那其他的客户端连着的和想连的怎么办？
不知道Socket.Close;这个动作是不是只断开固定IP的连接。

Answer 3

IsBlockedIP这个函数返回值为True才会Close，如果不是黑名单就返回False