multithreading - Synchronize() 挂起线程

Question

我正在 Delphi 中编写一个 dll 库，其中包含由它创建的多个线程。让我一步步描述这个问题。很抱歉提前进行了冗长的描述:-(。

让我们暂时忘掉图书馆吧。我创建了一个 Windows 应用程序，它将显示来自多个摄像机的 View 。我创建了一个窗口，用于显示单个摄像机的 View ，它包含一个 TImage 控件。有一个线程(TThread 后代)每隔几毫秒从相机下载当前图像并将其分配给该窗口的 TImage 控件(使用 Synchronize() 方法)。该应用程序在启动时创建该窗口的多个实例(每个实例都有一个单独的线程)，因此您可以同时看到多个摄像机的实时 View 。此外，所有这些查看窗口都是主应用程序窗口的父级，因此它们出现在其中。

一切都工作正常，直到我决定将这两个窗口放入 dll 库中。我只是因为某些原因发现有必要，但现在它们已经不重要了。因此，我创建了一个新的 dll 库，将现有的主窗口和相机 View 窗口添加到项目中，并导出一个用于创建和返回主窗口实例的函数。创建主窗口时，它会创建几个相机 View 窗口，使其成为其父窗口。

然后，出于测试目的，我创建了一个应用程序，从库中导入上述 dll 函数，并在启动时调用它以获取主窗口的实例；然后将其显示在屏幕上(处于非模态状态)。

当我启动该应用程序时，我发现我无法从任何相机获取单个图像。当我调试它时，我注意到当线程调用 Synchronize() 方法时，它会永远挂起。在将这两个窗口放入 dll 之前，这种情况并没有发生。

这就是我的问题。老实说，这是我第一次接触图书馆，到目前为止我还必须解决许多其他问题。你可能想知道为什么我使用窗口而不是框架......所以每当我在 dll 中创建 TFrame 的实例时，我都会得到一个异常，说“控件 xxx 没有父窗口”。我不知道该怎么办，所以我使用了 Windows :-(。

您能告诉我如何解决同步问题吗？当应用程序启动时，主线程似乎没有以任何方式被阻止，因为它接受单击按钮等。那么问题是什么？

请帮忙!

提前谢谢您!!

Answer 1

当您调用TThread.Synchronize时，线程和方法指针将被添加到Classes.pas中的全局SyncList: TList中。在主exe的TApplication.Idle例程中调用CheckSynchronize，它检查SyncList，但它将检查exe中的版本而不是DLL 中的一个。最终结果是，您的同步方法永远不会被调用。

最简单的修复方法是从 DLL 切换到包，这将消除重复的 SyncList。

另一种方法是覆盖 exe 的 Application.OnIdle 回调，并手动调用 DLL 的 CheckSynchronize。不过，您需要应用程序的一些帮助，因为您的 DLL 也将有一个 Application 对象，而该对象将无法工作。