Android设备TRESTRequest.Execute随机超时：WiFi与移动数据差异原因

阿华AIGC实验室

2026-5-6

问题分析与解决方案

这种WiFi和移动数据下的请求差异非常常见，主要和两类网络的特性差异以及FireMonkey REST组件的默认配置有关，我来帮你一步步拆解：

为什么会出现这种差异？

移动网络稳定性更低：移动数据依赖基站信号，容易出现信号波动、基站切换（比如地铁、户外移动场景），网络延迟波动远大于稳定的家庭/办公WiFi。FireMonkey的TRESTRequest默认超时时间可能不足以覆盖移动网络的延迟峰值。
运营商APN/代理限制：部分移动运营商会在APN中设置透明代理，或者对HTTP请求做额外的流量优化、拦截处理，这会增加请求耗时甚至导致阻塞，而WiFi通常没有这类额外干预。
移动数据速率节流：当设备流量接近阈值、或者运营商在高峰时段限流时，移动数据的传输速率会被限制，直接导致请求超时。
REST组件默认配置适配问题：TRESTRequest的默认连接超时和读取超时参数是针对稳定网络设计的，在移动网络下显得太短。

具体解决办法

1. 调整超时参数

修改TRESTRequest的ConnectTimeout和ReadTimeout属性，给移动网络留出足够的缓冲时间。比如设置为15秒（15000毫秒）：

procedure TForm1.Button1Click(Sender: TObject);
begin
  RESTResponseDataSetAdapter1.Active := false;
  Label1.Visible := false;
  Application.ProcessMessages;
  
  RESTRequest1.Resource := 'customer';
  // 调整超时参数，适配移动网络波动
  RESTRequest1.ConnectTimeout := 15000; // 连接超时15秒
  RESTRequest1.ReadTimeout := 15000;    // 读取超时15秒
  
  try
    RESTRequest1.Execute;
  except
    on E: Exception do
    begin
      ShowMessage('请求失败: ' + E.Message);
    end;
  end;
  
  RESTResponseDataSetAdapter1.Active := true;
  Label1.Visible := true;
end;

2. 增加重试机制

移动网络的波动往往是临时性的，增加简单的重试逻辑可以大幅降低失败率：

procedure TForm1.Button1Click(Sender: TObject);
var
  RetryCount: Integer;
  Success: Boolean;
begin
  RESTResponseDataSetAdapter1.Active := false;
  Label1.Visible := false;
  Application.ProcessMessages;
  
  RESTRequest1.Resource := 'customer';
  RESTRequest1.ConnectTimeout := 15000;
  RESTRequest1.ReadTimeout := 15000;
  
  Success := false;
  RetryCount := 0;
  // 最多重试2次，避免无限循环
  while (not Success) and (RetryCount < 2) do
  begin
    try
      RESTRequest1.Execute;
      Success := true;
    except
      on E: Exception do
      begin
        Inc(RetryCount);
        if RetryCount >= 2 then
          ShowMessage('请求失败: ' + E.Message);
        // 重试前稍作延迟，给网络恢复时间
        Sleep(1000);
      end;
    end;
  end;
  
  if Success then
    RESTResponseDataSetAdapter1.Active := true;
  Label1.Visible := true;
end;

3. 适配ExecuteAsync的超时处理

如果使用ExecuteAsync，要记得启用超时并处理回调事件：

procedure TForm1.Button2Click(Sender: TObject);
begin
  RESTRequest1.Resource := 'customer';
  RESTRequest1.ConnectTimeout := 15000;
  RESTRequest1.ReadTimeout := 15000;
  
  // 使用ExecuteAsync并处理成功/超时回调
  RESTRequest1.ExecuteAsync(
    // 请求成功回调
    procedure
    begin
      TThread.Synchronize(nil, procedure
      begin
        RESTResponseDataSetAdapter1.Active := true;
        Label1.Visible := true;
      end);
    end,
    // 请求失败/超时回调
    procedure
    begin
      TThread.Synchronize(nil, procedure
      begin
        ShowMessage('请求超时或失败');
        Label1.Visible := true;
      end);
    end,
    True, // 启用超时检测
    nil
  );
end;