delphi - TIdBlockCipherIntercept 的等效服务器端组件是什么？

Question

我想加密 TIdTCPClient 和 TIdTCPServer 组件之间发送的一些数据包。在客户端，我可以使用 TIdBlockCipherIntercept 来实现加密/解密。但是，我找不到匹配的服务器端组件来分配给我的IdTCPServer，并且我在 Google 上找不到任何内容。我该怎么办？

Answer 1

如果没有 TIdServerIntercept 后代，您可以处理 OnConnect 事件并将 TIdBlockCipherIntercept 实例分配给服务器连接的 拦截属性。

AContext.Connection.Intercept := TIdBlockCipherIntercept.Create(AContext.Connection);