TurboPower Async Professional多串口使用触发访问违规问题求助

问题背景 #

使用Windows 7 64位SP1系统，基于TP Async V4.07组件开发串口应用：

• 单个ApdComPort+ApdDataPacket组合（如Com18或Com11单独使用）工作正常，数据包终止符检测功能正常。
• 同时启用两个及以上组合时，打开第二个串口会触发**访问违规（Access violation）**错误，报错代码位于AdPacket.pas的TApdDataPacketManager.EnablePackets过程：

procedure TApdDataPacketManager.EnablePackets;
var
  i : integer;
begin
  for i := 0 to pred(PacketList.Count) do
    with TApdDataPacket(PacketList[i]) do
      if Enabled then
        Enable;
end;

问题集中在遍历PacketList的过程中，移除任意一组组件后剩余组件可正常工作。

解决建议 #

• 校验组件初始化与关联逻辑
  确保每个ApdDataPacket的ComPort属性严格绑定到对应的ApdComPort，避免跨组件的错误关联导致PacketList中混入无效对象指针。同时尝试手动控制组件创建顺序（如在FormCreate中逐个初始化组件），而非依赖自动创建。

• 添加线程同步保护
  TP Async V4.07可能存在线程同步缺陷，多串口并发时会导致PacketList被异步修改引发内存冲突。可以修改EnablePackets过程，添加临界区保护：

// 先在TApdDataPacketManager类中添加FCriticalSection: TRTLCriticalSection;
procedure TApdDataPacketManager.EnablePackets;
var
  i : integer;
begin
  EnterCriticalSection(FCriticalSection);
  try
    for i := 0 to pred(PacketList.Count) do
      with TApdDataPacket(PacketList[i]) do
        if Enabled then
          Enable;
  finally
    LeaveCriticalSection(FCriticalSection);
  end;
end;

注意在组件构造函数中调用InitializeCriticalSection(FCriticalSection)，析构函数中调用DeleteCriticalSection(FCriticalSection)。

• 测试32位编译模式
  TP Async V4.07的64位支持可能存在兼容性问题，尝试切换到32位编译模式运行程序，验证是否仍出现访问违规错误。

• 查找组件更新补丁
  检查TP Async官方是否发布过针对V4.07的补丁，修复多串口并发或64位系统下的内存访问问题。

替代组件推荐 #

如果上述方案无法解决问题，可考虑更换为以下支持多串口并发的成熟组件：

• Indy Components：Delphi/CBuilder自带的开源组件，稳定性高，原生支持多串口并发，提供完善的数据包解析功能，对64位Windows系统兼容性好。
• Async Professional (APRO)：TP Async的后续商业版本，修复了旧版本的诸多BUG，优化了多线程与多串口处理逻辑，适配现代Windows系统。
• ComPort Library：轻量级串口组件，API简洁高效，支持多线程并发操作，内存占用低，适合对性能要求较高的场景。

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