代碼如下
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.這個控制元件的屬性網上幾乎找不到。參考例子也很少
uj5u.com熱心網友回復：
CPU滿載？uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
indy的性能很差的轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/55139.html
標籤：網絡通信/分布式開發