我用 IdMappedPortTCP1 做了端口映射加密处理传输，就是大数据包的时候出现卡顿，怎么解决

Question

代码如下        IdMappedPortTCP1.Active:=False;
    IdMappedPortTCP1.DefaultPort:=strtoint(edit2.Text );//本地监听的端口
              IdMappedPortTCP1.Bindings[0].Port:=  strtoint(edit2.Text );//本地监听的端口
    IdMappedPortTCP1.MappedHost:=edit1.Text ;   //转发的目标IP
    IdMappedPortTCP1.MappedPort:=strtoint(edit3.Text );   //转发的目标端口
    IdMappedPortTCP1.Active:=True;
端口转发成功率。就是不知道该如何进行转发的数据加密。。IdMappedPortTCP.这个控件的属性网上几乎找不到。参考例子也很少

Answer 1

CPU满载？

Answer 2

procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext);
begin
    TIdMappedPortContext(AContext).NetData := DecodeData(TIdMappedPortContext(AContext).NetData);
end
 
procedure TForm1.IdMappedPortTCP1OutboundData(AContext: TIdContext);
begin
    TIdMappedPortContext(AContext).NetData := EncodeData(TIdMappedPortContext(AContext).NetData);
end

Answer 3

indy的性能很差的