Delphi 12.2中TIdUDPServer频繁启停引发AV问题排查问询

问题背景 #

在Delphi 12.2中使用TIdUDPServer时，频繁执行Active := False/True循环，同时在另一线程调用SendBuffer()，会出现间歇性访问违规（AV）。测试发现SendBuffer()并非单纯发送操作，若检测到Binding未激活，会自动分配套接字、启动监听线程，甚至在Active := False期间重新激活服务器，引发线程冲突。

针对提出的疑问，解答如下：

1. TIdUDPServer.CloseBinding在频繁启停循环下是否设计为安全的？
   不安全。CloseBinding内部虽有基础线程同步逻辑，但TIdUDPServer本身并非为高频启停场景设计。极端频繁的Active切换会导致线程上下文切换间隙出现资源未完全释放就被重新占用的情况——比如监听线程还未彻底终止，新的激活操作就开始分配同一份资源，最终触发AV。

2. CloseBinding中先调用LListener.Binding.CloseSocket再调用LListener.WaitFor的时序是否正确？
   这个时序本身是合理的。CloseSocket先关闭套接字，让监听线程的循环逻辑退出；WaitFor则等待线程真正终止，避免线程仍在运行时就释放相关资源。但问题出在并发场景：如果WaitFor执行期间，另一线程调用SendBuffer()触发了OpenBinding，会导致未完全终止的线程与新启动的线程同时操作同一资源，引发冲突。

3. Indy是否有官方解决方案？
   Indy官方针对这类多线程并发操作的核心建议是强制线程同步：

   • 用TCriticalSection（或其他线程同步对象）包裹所有涉及服务器生命周期的操作（Active变更、CloseBinding）和SendBuffer()调用，确保同一时间只有一个操作在执行。
   • 禁止在服务器启停过程中调用SendBuffer()，反之亦然；每次启停前必须等待所有SendBuffer()操作完成，且监听线程彻底终止后再进行下一次激活。
   • 若业务上必须频繁启停，建议考虑将TIdUDPServer实例销毁重建，而非反复切换Active状态，从根源避免资源复用冲突。

4. TIdUDPServer.SendBuffer()是否属于影响生命周期的操作，不能与Active状态变更并发执行？
   是的，SendBuffer()会直接影响服务器生命周期。当检测到Binding未激活时，它会自动调用OpenBinding——这一过程会分配套接字、启动监听线程，和设置Active := True的核心逻辑重叠。因此SendBuffer()本质上是会改变服务器状态的操作，绝对不能与Active状态变更并发执行，否则多线程同时操作同一套套接字、线程对象，必然引发访问违规。

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