1,593
社区成员
发帖
与我相关
我的任务
分享我用 IdMappedPortTCP1 做了端口映射加密处理传输，就是大数据包的时候出现卡顿，怎么解决
代码如下
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.这个控件的属性网上几乎找不到。参考例子也很少
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.这个控件的属性网上几乎找不到。参考例子也很少
...全文
请发表友善的回复…
发表回复
OK_boom 2017-05-15
- 打赏
- 举报
indy的性能很差的
ghs79 2016-11-18
- 打赏
- 举报
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
pathletboy 2016-11-16
- 打赏
- 举报
CPU满载？
