如何在TIdHTTPServer上将IP列入黑名单

时间:2013-03-20 06:33:39

标签: delphi delphi-xe2 indy indy10 blacklist

TIdHTTPServer组件中,我想启用要阻止的IP地址黑名单。我想确保这是最低级别,以防止任何不必要的数据从黑名单客户端流入。我该如何拦截此服务器组件以阻止可能的最低级别的IP?这适用于IP v4和v6

1 个答案:

答案 0 :(得分:6)

在Indy 9上,有一个事件在实际被接受之前拒绝连接。在Indy 10上,它仍然没有实现。

如果你看看IdCustomTCPServer.pas,在procedure TIdListenerThread.Run中有一条关于向用户公开事件的评论,让他们决定是否接受连接。

我会修改源代码并在那里实现它。

如果那不适合你,那么你可以在OnConnect事件中断开它们。