从多线程 C# Windows 服务应用程序调用 VB6 DLL？

Question

我正在运行需要调用 VB6 dll 的多线程 Windows 服务。 没有关于此 VB6 dll 的文档，并且此遗留系统支持非常关键的业务流程。

第一次（第一个线程），这个 dll 表现良好。 当其他线程需要访问时，它开始提供错误的结果。

我读到一个人说：

“如果您使用 VB6，请注意一件事。您的线程 如果您是，则必须更改模型以支持公寓 运行多线程服务。 VB只支持多个 单线程单元，但 .NET 运行完全免费的线程 通常情况下。 调用 VB6 DLL 的线程需要是 与 DLL 兼容。”

团队的另一个人给了我这个想法，将这个 ddl 放在一个单独的应用程序域中。但我不确定。

我们如何使用从多线程 c# windows 服务应用程序调用的 VB6 dll？

Answer 1

这篇关于多线程 Visual Basic 6 DLL 的文章提供了一些见解。 它说：

制作 ActiveX DLL 项目
多线程，选择需要的
常规选项卡上的线程选项
项目属性对话框的。

这篇文章说有三种可能的模型选择：

One thread of execution 
Thread pool with round-robin thread assignment 
Every externally created object is on its own thread 

我假设默认为一个执行线程，并且需要选择其他两个选项之一。

Answer 2

您可能想看看这个： linky

这里是引起我注意的一个片段：

VB6 COM 对象是 STA 对象，这意味着它们必须在 STA 线程上运行。
您确实从两个 MTA 线程创建了该对象的两个实例，但该对象本身将在单个（COM (OLE) 创建的）STA 上运行
线程，并且来自两个 MTA 线程的访问将被封送和同步。
所以你应该做的是将线程初始化为 STA，以便每个对象在自己的 STA 线程上运行而无需封送
会没事的。

无论如何，VB 风格的 COM 对象始终是 STA。 现在为了防止单元编组和线程切换，您需要创建
STA 初始化公寓中的实例。
另请注意，当您在 Main 上设置 [MTAThread] 属性时，您实际上将主线程初始化为 MTA，当您创建
来自 MTA 线程的 STA 对象实例 COM 将创建一个单独的（非托管）线程并将其初始化为 STA（这称为
默认 STA），MTA 线程对 STA 对象的所有调用都将被封送（并导致线程切换），在某些情况下 Idispatch 调用
将由于 IP 封送失败而失败。
因此建议仅使用兼容公寓中的 STA（以及 VB6）对象。

Answer 3

当线程进入时，您是否保存对象并稍后在新线程上重用它们？ 如果可以的话，为每个线程创建新鲜的对象。 我们使用的数据层 dll 就遇到过这样的情况。 如果您在一个线程上创建连接，则无法从另一个线程使用该连接。 如果您在每个线程上创建一个新连接，它就可以正常工作。

如果创建对象的速度很慢，请查看 ThreadPool 类和 ThreadStatic 属性。 线程池一遍又一遍地回收同一组线程来完成工作，而 ThreadStatic 允许您创建仅针对一个线程存在的对象。 例如，

[ThreadStatic]
public static LegacyComObject myObject;

当收到请求时，将其转换为作业并将其放入线程池中。 作业启动时，检查静态对象是否初始化；

void DoWork()
{ 
    if (myObject == null)
    { 
        // slow intialisation process
        myObject = New ...
    }

    // now do the work against myObject
    myObject.DoGreatStuff();
}

Answer 4

你说

我正在运行多线程窗口
需要调用 VB6 dll 的服务。
没有关于这个的文档
VB6 dll 和这个遗留系统
支持非常关键的业务
流程。

同时你说

第一次（1°线程），这个dll
表现良好。 由于其他线程需要
访问，它开始提供错误
结果。

我非常确定管理层意识到您所看到的失败，因为支持关键业务流程的代码是旧的且没有记录，并且正在以从未打算使用的方式使用，并且从未经过测试使用。 我敢打赌，以前从未测试过它可以在 .NET 中使用，不是吗？

这是我的建议，这与我实际实现的类似：

VB6 DLL 期望在单个线程上调用。 不要失望！当你的服务启动时，让它启动一个适当类型的线程（我不能说，因为我故意忘记了所有 STA /MTA 的东西）。 将对该线程的访问 VB6 DLL 的请求排队。 让所有此类访问都通过单线程进行。

这样，就 VB6 DLL 而言，它的运行方式与测试时的运行方式完全一样。

---

顺便说一句，这与我实现的略有不同。 我有一个 Web 服务，而不是 Windows 服务。 我有一个 C DLL，而不是 VB6，也不是 COM。 我只是将对事物的所有访问重构为一个类，然后在每个公共方法周围放置锁定语句。