Delphi 2007至11.1中Indy10变更及TCP客户端连接故障求助

一、版本变更文档获取说明 #

• Indy官方文档链接失效后，可通过查看源码目录下的ChangeLog.txt获取详细变更记录，Delphi 11.1自带的Indy10源码通常位于C:\Program Files (x86)\Embarcadero\Studio\22.0\source\Indy10，该文件会逐条记录各版本的API调整、行为变更。
• 直接对比Delphi 2007和11.1的核心文件（如IdTCPClient.pas）差异，重点关注端口类型（Integer→TIdPort）、连接流程内部逻辑、IOHandler初始化规则等关键变动。

二、连接失败的可能原因及修复方案 #

1. 端口类型兼容性问题 #

虽然TIdPort兼容整数类型，但隐式转换可能引发异常。检查代码中所有给TCPClient.Port赋值的逻辑，确保端口值（如旧代码中的Word类型）显式转换为TIdPort，避免类型不匹配。

2. IOHandler初始化逻辑变更 #

Delphi 11.1的Indy10中，TIdTCPClient的IOHandler默认初始化逻辑有调整。你的代码仅在IOHandler已存在时配置参数，若未提前创建会导致连接使用默认配置，引发超时或socket错误。建议显式创建并配置：

// 在Connect方法开头添加
if not Assigned(TCPClient.IOHandler) then
begin
  TCPClient.IOHandler := TIdIOHandlerStack.Create(TCPClient);
end;
TCPClient.IOHandler.ConnectTimeout := FConnectTimeout;
TCPClient.IOHandler.MaxLineAction := maSplit;

3. Connect方法行为调整 #

旧版本Indy的Connect方法会自动处理部分socket初始化，新版本需显式确认以下配置：

• 确保TCPClient.Host无多余空格或格式错误；
• 确认TCPClient.ConnectTimeout单位为毫秒，且FConnectTimeout值合理；
• 连接前调用TCPClient.Disconnect，避免残留旧连接状态干扰新请求。

4. 系统权限与防火墙拦截 #

Delphi 11.1编译的程序可能因权限不足被Windows防火墙拦截，尝试以管理员身份运行客户端，或在防火墙规则中添加该程序的网络访问权限。

三、优化后的连接代码 #

针对你提供的代码，调整如下以适配新版本Indy：

function TClientServer.Connect(SuppressMsg : Boolean) : Boolean;
begin
  Result := False;
  if (FRunning = False) and (Connecting = False) then
  begin
    try
      Connecting := True;
      // 确保IOHandler已创建并配置
      if not Assigned(TCPClient.IOHandler) then
      begin
        TCPClient.IOHandler := TIdIOHandlerStack.Create(TCPClient);
      end;
      TCPClient.ConnectTimeout := FConnectTimeout;
      TCPClient.IOHandler.ConnectTimeout := FConnectTimeout;
      TCPClient.IOHandler.MaxLineAction := maSplit;

      // 清理旧连接状态
      if TCPClient.Connected then
      begin
        TCPClient.Disconnect;
      end;

      TCPClient.Connect;
      Result := True;
      FRunning := True; // 连接成功标记运行状态
    except on E : Exception do
      begin
        Connecting := False;
        // 异常后确保socket断开
        if TCPClient.Connected then
        begin
          TCPClient.Disconnect;
        end;
        if not SuppressMsg then
        begin
          ShowMessage('无法连接到核心服务器！' + #13#10#10 +
                    '请确认服务器已在地址 ' +
                    TCPClient.Host + ' (' + IntToStr(TCPClient.Port) + ')' + #13#10 + E.Message );
        end;
      end;
    end;
  end;
end;

四、额外排查步骤 #

• 用Wireshark抓包，确认新客户端是否发送连接请求、服务器是否响应，定位问题出在客户端发送还是服务器接收环节；
• 测试新客户端连接其他TCP服务器（如Telnet服务），验证客户端网络功能是否正常；
• 对比新旧版本TIdTCPClient.Connect方法的源码实现，重点查看socket创建、连接请求发送的逻辑差异。

内容的提问来源于stack exchange，提问作者mdevalle