sockets - Delphi:TCP打洞

Question

我正在尝试在Delphi中进行 TCP孔打洞。我只打开了一个端口-10000(用于测试)。

这是我的代码段(full source code):

procedure TFormMain.btnEnableRedirectClick(Sender: TObject);
begin
  IdTCPServerRetr.Active:=True;
end;

procedure TFormMain.btnConnectToClientClick(Sender: TObject);
begin
  if IdTCPClientRemote.Port = 0 then
    ShowMessage('Wait for connection to redirect server...')
  else begin
    IdTCPClientRemote.Host:=MyIP;
    IdTCPClientRemote.Connect;
    ShowMessage('S U C C E S S');
  end;
end;

procedure TFormMain.btnConnectClick(Sender: TObject);
begin
  IdTCPClientLocal.Host:=MyIP;
  IdTCPClientLocal.Connect;
  ShowMessage('Connected to redirect server!');
end;

procedure TFormMain.btnListenClick(Sender: TObject);
begin
  IdTCPServerLocal.DefaultPort:=IdTCPClientLocal.Socket.Binding.Port;
  IdTCPServerLocal.Active:=True;
  ShowMessage('Local server started!');
end;

procedure TFormMain.IdTCPServerRetrExecute(AContext: TIdContext);
begin
  IdTCPClientRemote.Port:=AContext.Connection.Socket.Binding.PeerPort;
end;

首先，我在端口10000上运行远程服务器(用于重定向)。

IdTCPServerRetr.Active:=True;

之后，我使用与客户端相同的端口连接到重定向服务器(端口10000)并创建本地服务器。

IdTCPClientLocal.Connect; IdTCPServerLocal.DefaultPort:=IdTCPClientLocal.Socket.Binding.Port; IdTCPServerLocal.Active:=True;

(客户端和服务器具有 重用套接字套接字 = rsTrue )

之后，我尝试在客户端的内部端口上连接到客户端，但出现错误“ 连接超时”。

我认为问题在于远程客户端无法找到要连接的服务器，因为客户端已经与重定向服务器建立了连接。

Answer 1

尝试将TIdTCPClient.ConnectTimeout设置为较高的值，例如5000或更大(毫秒)。