Synchronize() 挂起线程

Question

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

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

直到我决定将这两个窗口放入 dll 库中，我只是发现由于某些原因有必要，但它们现在并不重要，所以我创建了一个新的 dll 库，添加了现有的主窗口。并将相机视图窗口添加到项目中，并导出一个创建并返回主窗口实例的函数。创建主窗口时，它会创建几个相机视图窗口，使其成为它们的父窗口。

然后，出于测试目的，我创建了一个应用程序，从库中导入上述 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 对象，而该对象将无法工作。

Answer 2

使用同步不是一个好主意，因为它往往会导致这样的竞争条件。我不知道你的代码中具体发生了什么——在没有看到任何代码的情况下很难判断——但这类问题实际上很常见。

线程间通信最好使用队列来完成。如果您拥有最新版本 Delphi XE，Generics.Collections 中有一个 TThreadedQueue 类，它非常适合此类操作。将 0 传递给构造函数中的 PopTimeout 参数，让相机线程推送图像，并让主线程使用第三个 PopItem 重载轮询队列，如下所示：（

var
  CurrentItem: TImage;
begin
  if ThreadQueue.PopItem(CurrentItem) = wrSignaled then
    UpdateImage(CurrentItem); //or however you do it
end;

如果队列中没有任何内容，PopItem 将返回 wrTimeout。）

如果如果您没有 Delphi XE，则需要构建自己的线程安全队列，或者从第三方源找到一个，例如 Primoz Gabrielcic 的 OmniThreadLibrary。

Answer 3

我找到了两种方法来解决 Synchronize() 挂起线程（在 Delphi 7 中）：

1. 在 DLL 窗体上放置一个 TTimer 并使其具有 OnTimer 事件调用CheckSynchronize();

   过程 TPluginForm.Timer1Timer(Sender: TObject);
   开始
     检查同步；
   结尾;
   

2. 将此模块添加到 DLL 表单的 uses 部分< /a>