与 TIdBlockCipherIntercept 等效的服务器端组件是什么？答案

【问题标题】：What is the equivalent server side component to TIdBlockCipherIntercept?与 TIdBlockCipherIntercept 等效的服务器端组件是什么？
【发布时间】：2013-02-26 15:10:41
【问题描述】：

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

【问题讨论】：

不就是同一个组件吗？你说它可以在客户端加密和解密；为什么它不能在服务器上同时做这两个？
没有。 :-( TIdTCPServer.Intercept 是 TIdServerIntercept 类型，而 TIdTCPClient.Intercept 是 TIdConnectionIntercept 类型。而且，尽管有两个单独的拦截组件用于压缩，但似乎他们忘记包含一个服务器拦截密码

标签： delphi delphi-xe2 indy

【解决方案1】：

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

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

【讨论】：

这是你现在必须做的。我会考虑尽快添加一个服务器端组件。
谢谢@Remy。我的回答是基于大约六年前的a post you made to the newsgroups。
TIdServerBlockCipherIntercept 现已添加（虽然我还没有为它制作组件调色板图标）。