multithreading - Delphi:在线程上的plugindll中创建的对象中使用adocomponents时出现异常

Question

情况:

我有一个应用程序和一个插件 dll，都是用 delphi 7 编写的。

该dll导出3个函数:createobject:pointer、runobject(instance:pointer)、freeobject(instance:pointer)。

• createobject:pointer 创建 dll 内部工作对象的实例并返回指向该对象的指针。

• runobject(instance:pointer) 将此实例指针作为参数，并使用该指针启动某些处理函数在该实例指针指向的对象实例中。

• freeobject(instance:pointer) 获取实例指针并释放该实例指针指向的内部对象。

我这样做是为了从插件 dll 创建多个工作对象实例。

现在，应用程序设置了 2 个工作线程。在设置2个线程时，插件dll通过loadlibrary动态加载两次(每个线程一个)并将导出函数提供给线程。 (注意:因为它是具有相同文件名的相同 DLL，所以DLL 仅加载到我的应用程序中一次，并且加载的 dll 的引用计数变为 2。)

每个工作线程启动，调用CoInitialize(nil)来初始化com系统(因为我想使用ado组件)，然后创建它的通过 dll 函数 createobject 拥有自己的 dll 内部对象，然后使用返回的实例指针作为参数调用 runobject。

现在，runobject 中的代码使用 adoconnection + adoquery 组件从数据库中读取数据。

ado 组件是在工作对象内部创建的，两个线程之间没有共享任何内容...没有使用全局变量。

问题:

当 2 个对象实例(每个实例都在自己的线程上)使用自己的 ado 组件从数据库读取数据时，我遇到了奇怪的随机访问冲突...!？

两个线程都开始读取一些数据库行。然后，在 adoquery 读取代码中的某个随机时间和“随机位置”，会引发异常。

“随机位置”意味着异常有时发生在对 adoquery.open 的调用中，有时发生在对 adoquery.next 的调用中...ado 代码非常简单...它看起来像这样:

with adoquery do
begin
    sql.clear;
    sql.add('select * from sometable');
    open;
    while not eof do
    begin
        test := fieldbyname('test').asstring;
        next;
    end;
    close
end;

我做了一些测试:

a) 如果我仅使用 1 个线程(因此 dll 内仅创建 1 个工作对象)，则一切正常。

b) 如果我使用另一个文件名创建 DLL 文件的副本，但该文件中的代码相同，并且 thread_1 加载 dll_1，thread_2 加载 dll_2那么这两个相同的 dll 实际上都被加载到我的应用程序中，并且一切正常。(注意:此测试中的 loadlibrary 是从主线程的上下文，而不是每个工作线程的上下文，但这似乎没有问题，因为没有发生异常。)

c) 如果我根本不使用 DLL，只是直接在 2 个线程上创建 2 个工作对象，那么一切都会正常工作。

仅当我在 2 个线程上创建的 2 个单独的工作对象以及工作对象的创建代码中使用 adocomponents 时，才会发生异常位于一个 dll 内，该 dll 仅加载到我的应用程序中一次。

问题:

如果我从 dll 调用导出函数，是否必须从线程上下文中调用加载 dll 的 loadlibrary 调用？我我不认为是这种情况(参见测试 b))，但也许有人更了解!？`这会导致我的问题吗？如果是这种情况，那么似乎无法从多个线程使用一个 dll 中的函数!？

有人知道是什么原因导致这些奇怪的异常吗？

非常感谢任何帮助/想法/解释/建议。

Answer 1

我找到了。问题是，我必须在 dllcode 中使用 IsMultiThread := TRUE 将 delphi 内存管理器切换到多线程模式!我已经在主应用程序代码中这样做了，但是 dll 似乎使用它自己的 IsMultiThread 标志版本，甚至它自己的 delphi 内存管理器版本。将 IsMultiThread := TRUE 添加到 dllcode 后，现在一切正常。