3

情况：

我有一个应用程序和一个插件 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 组件从数据库中读取。

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

问题：

我得到奇怪的随机访问冲突，而 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）如果我使用另一个文件名但该文件中的代码相同，并且 thread_1 加载 dll_1 和 thread_2 加载 dll_2 复制 DLL 文件，那么这两个相同的 dll 确实都被加载到我的应用程序中并且一切正常。（注意：这个测试中的 loadlibrary 是从主线程的上下文调用的，而不是每个工作线程的上下文，但这似乎没有问题，因为没有发生异常。）

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

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

问题：

如果我从 dll 调用导出的函数，是否必须从线程的上下文中调用加载 dll 的 loadlibrary 调用？我不认为是这种情况（见测试 b）），但也许有人知道得更好！？`这会导致我的问题吗？如果是这种情况，那么似乎没有办法使用来自多个线程的一个 dll 中的函数！？

有谁知道是什么导致了这些奇怪的异常？

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

4

1 回答 1

2

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

于 2013-11-04T10:16:28.177 回答