The code below

IdMappedPortTCP1. Active:=False;
IdMappedPortTCP1. DefaultPort:=strtoint (edit2. Text);//local listening port
IdMappedPortTCP1. Bindings [0]. Port:=strtoint (edit2. Text);//local listening port
IdMappedPortTCP1. MappedHost:=edit1. Text;//forward target IP
IdMappedPortTCP1. MappedPort:=strtoint (edit3. Text);//forward target port
IdMappedPortTCP1. Active:=True;
Success rate of port forwarding, just don't know how to forward the data encryption, and IdMappedPortTCP. This control the properties of the almost impossible to find on the net, reference example rarely

CodePudding user response:

CPU load?

CodePudding user response:

Procedure TForm1. IdMappedPortTCP1Execute (AContext: TIdContext);
The begin
TIdMappedPortContext (AContext). NetData:=DecodeData (TIdMappedPortContext (AContext). NetData);
End

Procedure TForm1. IdMappedPortTCP1OutboundData (AContext: TIdContext);
The begin
TIdMappedPortContext (AContext). NetData:=EncodeData (TIdMappedPortContext (AContext). NetData);
end

CodePudding user response:

Indy's poor performance