multithreading - Delphi中从函数指针调用函数

Question

我正在尝试在 Delphi 中构建一个通用工作线程，我可以将函数/过程(无关紧要)作为参数传递并让它执行。

我的猜测是在 TThread 类中添加一个字段，并从 TThread.Execute 调用它。

所以线程外的代码将是:

  MyThread := TWorkerThread.Create(True);  Mythread.CallBackF := @Foo;  try    MyThread.Resume;  except    MyThread.Free;  end;

如何在 TWorkerThread 中保留对 @foo 的引用并从 Execute 内部调用它？

Answer 1

此外，使用通用线程的一个好的开始是 AsyncCalls或Omni Thread Library .