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

Question

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

Answer 1

在没有TIdServerIntercept后代的情况下，您可以处理OnConnect事件并将TIdBlockCipherIntercept实例分配给服务器连接的Intercept属性。

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