delphi - 如何将 TIdHTTPServer 上的 IP 列入黑名单

Question

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

Answer 1

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

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

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

如果这不适合您，那么您可以在 OnConnect 事件中断开它们。