TIdBlockCipherIntercept的等效服务器端组件是什么?

时间:2013-03-11 12:31:37

标签: delphi delphi-xe2 indy

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

1 个答案:

答案 0 :(得分:4)

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

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