C++Builder中如何在主线程同时运行TAniIndicator与WaitFor()？

场景1和2：WaitFor()阻塞主线程导致死锁 #

主线程启动子线程后立刻调用WaitFor()，会让主线程进入休眠状态等待子线程结束。但子线程中使用的Synchronize()或Queue()，必须依赖主线程的消息循环才能执行UI更新代码。主线程被WaitFor()卡死，无法处理任何消息，最终导致：

• TAniIndicator的更新指令无法执行，UI彻底冻结
• 子线程的同步任务无法完成，系统判定程序无响应
• 你设置的OnTerminate事件也无法触发，因为主线程无法处理线程终止的通知消息

场景3：忙等循环完全占用主线程 #

场景3中的while(PHONENumber == NULL)是无意义的忙等待，主线程会一直循环检查变量，完全占用CPU资源，没有机会处理消息循环：

• TAniIndicator的动画需要主线程处理消息才能刷新，因此动画直接停住
• 即便子线程完成了REST请求，主线程也没时间处理后续UI更新，更无法响应系统窗口消息，最终弹出无响应提示

另外还有隐藏问题：子线程直接读写主线程的PHONENumber变量，未做线程同步，可能导致内存访问错误或值更新不及时（编译器优化可能让主线程看不到子线程的修改）。

核心思路是让主线程始终能处理消息循环，同时保证线程安全：

.h 文件补充线程同步对象 #

#include <System.SyncObjs.hpp>

class TForm1 : public TForm
{
    // ... 原有代码
private:
    TCriticalSection* FCS; // 保护共享变量的线程同步对象
public:
    // ... 原有代码
    __fastcall ~TForm1(); // 析构函数用于释放同步对象
};

.cpp 文件关键代码修正 #

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    // ... 原有初始化代码
    FCS = new TCriticalSection();
}

__fastcall TForm1::~TForm1()
{
    delete FCS;
}

// 场景3按钮点击事件修正
void __fastcall TForm1::Button3Tap(TObject *Sender, const TPointF &Point)
{
    // 线程安全初始化共享变量
    {
        TCriticalSectionLocker locker(FCS);
        PHONENumber = L""; // 用空字符串替代NULL，符合UnicodeString用法
    }
    // 启动子线程
    DeltaThread = new TDeltaThread(true);
    DeltaThread->OnTerminate = &DeltaThreadTerminated;
    DeltaThread->Start();
    // 直接在主线程启动动画（无需子线程Queue）
    AniIndicator1->Align = TAlignLayout::Contents;
    AniIndicator1->Enabled = true;
    AniIndicator1->Visible = true;
}

// 线程终止事件处理（主线程执行）
void __fastcall TForm1::DeltaThreadTerminated(TObject * Sender)
{
    // 关闭动画
    AniIndicator1->Enabled = false;
    AniIndicator1->Visible = false;
    // 线程安全读取结果
    UnicodeString number;
    {
        TCriticalSectionLocker locker(FCS);
        number = PHONENumber;
    }
    // 更新UI
    if (number.IsEmpty())
        ShowMessage(L"Null value!");
    else
        Label3->Text = number;
    
    FreeAndNil(DeltaThread);
}

// DeltaThread的Execute方法修正
void __fastcall TDeltaThread::Execute()
{
    UnicodeString phoneNumber;
    // 子线程创建独立的REST组件，避免访问主线程组件的线程安全风险
    TRESTClient* restClient = new TRESTClient(NULL);
    TRESTRequest* restRequest = new TRESTRequest(NULL);
    TRESTResponse* restResponse = new TRESTResponse(NULL);
    
    try
    {
        restClient->BaseURL = L"my.URL.php";
        restRequest->AddParameter(L"ID", L"123");
        restRequest->Client = restClient;
        restRequest->Response = restResponse;
        restResponse->ContentType = L"application/json";
        restRequest->Execute();
        
        // 解析JSON（增加空指针判断，避免崩溃）
        TJSONValue *JV0TOPLevel = restResponse->JSONValue;
        if (JV0TOPLevel)
        {
            TJSONArray *JSONArray = dynamic_cast<TJSONArray*>(JV0TOPLevel);
            if (JSONArray && JSONArray->Count > 0)
            {
                TJSONObject *JSONObject = dynamic_cast<TJSONObject*>(JSONArray->Items[0]);
                if (JSONObject)
                {
                    TJSONValue *JV0ITEMLevel = JSONObject->GetValue(L"FIELDName");
                    if (JV0ITEMLevel)
                        phoneNumber = JV0ITEMLevel->AsType<String>();
                }
            }
        }
    }
    __finally
    {
        // 释放子线程的REST组件
        delete restRequest;
        delete restResponse;
        delete restClient;
    }
    
    // 线程安全更新主线程变量
    {
        TCriticalSectionLocker locker(Form1->FCS);
        Form1->PHONENumber = phoneNumber;
    }
}

1. 移除所有阻塞主线程的代码：WaitFor()和忙等循环都会让主线程无法处理消息，这是UI冻结的核心原因
2. UI操作统一在主线程执行：启动动画、关闭动画、更新Label都在主线程完成，避免子线程直接操作UI
3. 线程安全访问共享变量：用TCriticalSection保护PHONENumber的读写，避免多线程冲突
4. 子线程使用独立组件：子线程创建自己的REST组件，避免访问主线程组件的线程安全风险

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