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

iMa*_*ari 6 delphi indy delphi-xe2

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

Rob*_*edy 4

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

AContext.Connection.Intercept := TIdBlockCipherIntercept.Create(AContext.Connection);
Run Code Online (Sandbox Code Playgroud)

  • 现在已添加“TIdServerBlockCipherIntercept”(尽管我还没有为其添加组件面板图标)。 (6认同)
  • 这是你现在必须做的。我将考虑尽快添加服务器端组件。 (3认同)