Delphi：TCP 打孔

Question

我正在尝试在 Delphi 中进行 TCP 打孔。我只打开了一个端口 - 10000（用于测试目的）。

这是我的代码的 sn-p (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;

（客户端和服务器有一个reusesocket = rsTrue）

之后，我尝试通过其内部端口连接到客户端，但收到错误“Connection Timeout”。

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

Answer 1

尝试将TIdTCPClient.ConnectTimeout 设置为较高的值，例如5000 或更多（毫秒）。