c++ - Embarcadero TThread：在 C++ 中传递 TThreadMethod

Question

编辑：现在我对正在发生的事情有了更好的了解，我想我可以更好地表达这个问题，这样它就更有用了。

我正在尝试在 C++ 中复制以下 delphi 代码

TThread.Queue(nil, 
    procedure
    begin
        LogMessage("test");
    end
    );

代码的目的是调用一个TMemo以线程安全方式更新表单的方法。这是我尝试调用的方法的 C++ 版本Thread.Queue

void __fastcall TClientForm::LogMessage( String message )
{
    MemoLog->Lines->Add( message );
}

因为我使用的是没有 CLANG 增强功能的 BCC32 编译器，所以不能选择使用 Lambda。相反，根据本文档，我需要创建一个继承自该类的类，该类TThreadProcedure会覆盖该Invoke()方法来完成我需要完成的工作。然后我可以将该类的一个实例传递给TThread::Queue.

我创建了以下类，它继承TThreadProcuedure并包含一个调用方法。

class TMyThreadProcedure : TThreadProcedure
{
    void __fastcall Invoke( String message );
};

但是，由于TThreadProcedure是一个抽象类，我不能简单地创建它的一个实例来传递给TThread::Queue. TThreadProcedure当我将类的实例传递给时，继承和定义要调用的函数的正确方法是什么TThread::Queue？

score 6 · Accepted Answer

如文档中所述：

如何在 C++ 中处理 Delphi 匿名方法

你有两个选择：

派生一个实现适当接口（在本例中为）的类¹Classes::TThreadProcedure，覆盖该Invoke()方法以完成所需的工作。然后，您可以将该类的实例传递给TThread::Queue(). 例如：

class TLogMessageRef : public TCppInterfacedObject<Classes::TThreadProcedure>
{
private:
    TClientForm *form;
public:
    TLogMessageRef(TClientForm* _form) : form(_form) {}
    INTFOBJECT_IMPL_IUNKNOWN(TInterfacedObject);

    void __fastcall Invoke()
    {
        form->LogMessage("test");
    }
};

TThread::Queue(NULL,
    Classes::_di_TThreadProcedure(
        new TLogMessageRef(this)
    )
);

（¹的使用TCppInterfacedObject和INTFOBJECT_IMPL_IUNKNOWN在文档的其他地方有所介绍：继承和接口）

TMethodRef如果您需要在代码的多个位置使用匿名方法/过程，该文档还提供了一个可重用的类来帮助实现：

使用函子（函数对象）

例如：

struct LogMsg
{
    TClientForm* form;
    LogMsg(TClientForm *_form) : form(_form) {}
    void operator()()
    {
        form->LogMessage("test");
    }
};

typedef TMethodRef<Classes::TThreadProcedure, LogMsg, void> MyMethRef;

TThread::Queue(NULL,
    Classes::_di_TThreadProcedure(
        new MyMethRef(
            LogMsg(this)
        )
    )
);

仅在基于 Clang 的 C++11 编译器中，您可以在任何需要匿名过程/方法的地方使用 C++ lambda：
```
TThread::Queue(NULL, 
    [this]() -> void { LogMessage("test"); }
);
```

c++ - Embarcadero TThread：在 C++ 中传递 TThreadMethod

1 回答 1

Related

Reference