让IdTCPServer&IdTCPClient的应用穿透NAT

让IdTCPServer&IdTCPClient的应用穿透NAT?

2007-03-15 22:35:28| 分类： delphi程序备忘 |字号 订阅

IdTCPServer拥有公网IP和开放的端口,

IdTCPClient位于NAT之后,没法端口映射,

但是由IdTCPClient主动发起连接,连接之后互相传递文件.

在IdTCPClient的属性里BoundIP和BoundPort不用填，使用如下代码就能穿透NAT连接IdTCPServer：

IdTCPClient.Host := ‘0.0.0.0’;//IdTCPServer公网IP

IdTCPClient.Port := 0; //IdTCPServer的端口

try

IdTCPClient.Connect();

except

IdTCPClient.Disconnect;

exit;

end;

要注意的是，IdTCPServer一定要在拥有公网IP的机子上运行，这样可以使得世界任何地方的电脑用上述代码就能跟IdTCPServer相连接，连接上后，可以用IdTCPServer的OnConnect取得IdTCPClient经过NAT转换后的IP和Port，代码如下：

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);

begin

IP := AThread.Connection.Socket.Binding.PeerIP ;

Port := AThread.Connection.Socket.Binding.PeerPort;

end;

使用IdTCPServer的OnConnect获得的IP和Port才能与IdTCPClient通讯。

你会发现OnConnect里获得的IP和Port和未经过NAT转换后的IdTCPClient的机子的IP和Port大不一样。