Indy UDP Server事件处理器/FMX内存增长问题排查

核心问题原因 #

1. 全局变量的线程竞态隐患：通过全局变量IP、SysMsg传递UDP消息数据时，UDP监听线程（OnUDPRead）和UI线程（Timer）之间无同步保护，消息密集时新消息会覆盖旧全局变量值，导致旧字符串引用计数异常，无法被正确释放，积累内存泄漏。
2. FMX与VCL的内存管理差异：FMX的TListBox内部Item生命周期管理逻辑和VCL不同，若解析字符串时生成的临时对象未正确清理，或未限制ListBox条目数量，会导致内存持续堆积。
3. 编码处理不明确：SysLog消息通常采用UTF-8或ASCII编码，默认BytesToString依赖系统编码，在FMX跨平台环境下易出现编码不匹配，引发字符串对象内存异常。

具体解决步骤 #

1. 用线程安全队列替换全局变量 #

废弃全局变量，改用线程安全队列存储每条UDP消息的封装对象，避免线程竞态，确保每条消息都被正确处理和释放：

// 定义消息封装类
type
  TSysLogMsg = class
    IP: string;
    Msg: string;
    constructor Create(const AIP, AMsg: string);
  end;

constructor TSysLogMsg.Create(const AIP, AMsg: string);
begin
  inherited Create;
  IP := AIP;
  Msg := AMsg;
end;

// 声明线程安全队列（作为Form成员变量）
private
  SysLogQueue: TThreadList<TSysLogMsg>;

// Form初始化与销毁时管理队列
procedure TForm1.FormCreate(Sender: TObject);
begin
  SysLogQueue := TThreadList<TSysLogMsg>.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  MsgList: TList<TSysLogMsg>;
begin
  MsgList := SysLogQueue.LockList;
  try
    MsgList.Free; // 释放剩余未处理的消息对象
  finally
    SysLogQueue.UnlockList;
    SysLogQueue.Free;
  end;
end;

// UDP监听事件存入队列
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  LogStr: string;
  MsgObj: TSysLogMsg;
begin
  // 明确指定SysLog编码（示例为UTF-8，可根据实际调整为ASCII）
  LogStr := TEncoding.UTF8.GetString(AData);
  MsgObj := TSysLogMsg.Create(ABinding.PeerIP, LogStr);
  SysLogQueue.Add(MsgObj);
end;

// Timer事件处理队列消息
procedure TForm1.Timer1Timer(Sender: TObject);
var
  MsgList: TList<TSysLogMsg>;
  MsgObj: TSysLogMsg;
begin
  MsgList := SysLogQueue.LockList;
  try
    while MsgList.Count > 0 do
    begin
      MsgObj := MsgList[0];
      MsgList.Delete(0);
      try
        ProcessMessage(MsgObj.IP, MsgObj.Msg);
      finally
        MsgObj.Free; // 处理完成后释放消息对象
      end;
    end;
  finally
    SysLogQueue.UnlockList;
  end;
end;

2. 优化ListBox操作与内存控制 #

在ProcessMessage中限制ListBox条目数量，避免无限积累；同时确保解析过程中临时对象被正确回收：

procedure TForm1.ProcessMessage(IP, SysLogMsg: String);
var
  DisplayMsg: string;
begin
  // 示例解析逻辑，根据实际SysLog格式调整
  DisplayMsg := Format('[%s] %s', [IP, SysLogMsg]);
  
  ListBox1.Items.Add(DisplayMsg);
  
  // 限制ListBox最大条目数，超出则移除最早的条目
  while ListBox1.Items.Count > 1000 do
    ListBox1.Items.Delete(0);
end;

3. 用内存检测工具定位漏点 #

启用Delphi自带的FastMM Full Debug Mode（项目选项→Linking→Debugging→勾选Use debug DCUs，代码中添加{$DEFINE FullDebugMode}），运行程序后查看内存泄漏报告，精准定位未释放的对象。

VCL正常、FMX出问题的原因 #

• 线程模型差异：VCL的UI线程同步模型对线程不安全的全局变量传递兼容性更强，而FMX为适配跨平台，内存管理更严格，线程竞态导致的引用计数错误会直接引发泄漏。
• 控件内存管理不同：VCL的TListBox内部Item回收机制更高效，FMX的TListBox在频繁添加条目时，若不主动清理，内存堆积更明显。
• 编码处理逻辑差异：VCL默认编码适配Windows系统，FMX的跨平台编码逻辑放大了编码不明确带来的内存异常问题。

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