错误: GlobalMultiUse 类无法未终止多线程环境中

文章翻译 文章翻译
文章编号: 300850 - 查看本文应用于的产品
本文已归档。它按“原样”提供,并且不再更新。
展开全部 | 关闭全部

本文内容

症状

当两个客户端调用过程的 ActiveX EXE 组件在相同的时间和此过程调用 MultiUse 类 ActiveX 动态链接库 (DLL),如果此类访问在另一个 ActiveX DLL 组件将停留在 ActiveX EXE GlobalMultiUse 类中的一个过程中的另一个过程中内存 ; 即,进程未能终止,甚至毕竟它引用已发布。

在 Visual Basic 6.0 Service Pack 3 (SP3) 或更早版本中,则不会出现此现象。

原因

出现此问题的原因是 GlobalMultiUse DLL 的 DllCanUnloadNow 函数返回 FALSE 如果当前由另一个线程正在调用。这意味着 GlobalMultiUse DLL 可能无法在多线程环境中对自身进行释放。

解决方案

现在提供 Microsoft,受支持的修复程序,但它仅用于纠正本文介绍的问题。它仅应用于出现这一特定问题的系统。

注意 您必须具有一个 Visual Studio 许可协议,以获取此修复程序。

若要解决此问题,请与 Microsoft 产品支持服务以获取此修复程序。有关 Microsoft 产品支持服务电话号码和关于支持费用的信息的完整列表,请访问下面的 Microsoft 网站:
http://support.microsoft.com/contactus/?ws=support
注意 在特殊的情况中如果 Microsoft 支持专业人员确定某个特定更新才能解决您的问题,可能会被取消通常会导致支持电话的费用。将正常收取支持费用将应用于其他支持问题和不需要进行专门更新的问题。此修复程序的英文版应具有以下文件属性或更高版本:
   Date         Time        Version    Size     File name   
   ---------------------------------------------------------
   29 May 2001  3:32:23 PM  6.0.92.37  1.32 MB  Msvbvm60.dll
				

状态

Microsoft 已经确认这是在 Microsoft 中的错误在本文开头列出的产品。

更多信息

重现行为的步骤

创建 DLL 的 GlobalMultiUse 类别

  1. 与默认类 Class1 创建一个新的 ActiveX DLL 项目。
  2. 项目 菜单中单击 Project1 属性。要 GMultiUseDll,更改项目名称,然后单击 确定
  3. 属性 对话框的 Class1 Instancing 属性设为 6-GlobalMultiUse
  4. 复制并粘贴以下代码以 Class1 的代码模块:
    Public Function ClassName() As String
        ClassName = "Class1"
    End Function
    					
  5. 文件 菜单中单击以编译该项目的 生成 GMultiUseDll.dll。创建 GMultiUseDll.dll。

创建 DLL 的 MultiUse 类别

  1. 与默认类 Class1 创建一个新的 ActiveX DLL 项目。
  2. 项目 菜单中单击 Project1 属性。要 MultiUseDll,更改项目名称,然后单击 确定
  3. 项目 菜单中单击 引用 选中 GMultiUseDll.dll 复选框,然后单击 确定
  4. 复制并粘贴以下代码以 Class1 的代码模块:
    Public Function GetString() As String
        GetString = ClassName
    End Function
    					
  5. 文件 菜单中单击以编译该项目的 生成 MultiUseDll.dll。创建 MultiUseDll.dll。

创建 ActiveX EXE 项目

  1. 与默认类 Class1 创建一个新的 ActiveX EXE 项目。
  2. 项目 菜单中单击 Project1 属性。要 TestServer,更改项目名称,然后单击 确定
  3. 项目 菜单中单击 引用 选中 MultiUseDll.dll 复选框,然后单击 确定
  4. 项目 菜单中单击 TestServer 属性。在 常规 选项卡上设置为 10 个线程的线程池。
  5. 复制并粘贴以下代码以 Class1 的代码模块
    Public Sub DoSomething()
        Dim obj As MultiuseDll.Class1
        Set obj = New MultiuseDll.Class1
        obj.GetString
    End Sub
    					
  6. 文件 菜单中单击以编译该项目的 生成 TextServer.exe。创建 TextServer.exe。

创建客户端项目

  1. 创建一个新的标准 EXE 项目默认表单 Form1。
  2. 项目 菜单中单击 Project1 属性。要 TestClient,更改项目名称,然后单击 确定
  3. 向 Form1 中添加一个标签 (Label1)、 文本框 (文本 1) 和两个 CommandButtons (Command1 和 Command2)。
  4. 复制并粘贴到 Form1 的代码模块下面的代码:
    Dim bStop As Boolean
    
    Private Sub Command1_Click()
        Dim oServer As Object
        Set oServer = CreateObject("TestServer.Class1")
        WaitTRUEinFile Text1.Text
        oServer.DoSomething
        Set oServer = Nothing
        Label1.Caption = "The reference was released"
    End Sub
    
    ' The purpose of this function is to synchronize the call to the
    ' GlobalMultiUse DLL through the file Sync.txt.
    Private Sub WaitTRUEinFile(sFile As String)
        Dim sFlag      As String
        Label1.Caption = "Waiting for 'TRUE' in " & sFile
        Do While bStop = False
            Open sFile For Input As #1
            Line Input #1, sFlag
            Close #1
            
            If UCase(Trim(sFlag)) = "TRUE" Then
                Exit Do
            End If
            DoEvents
        Loop
    End Sub
    
    Private Sub Command2_Click()
        bStop = True
    End Sub
    
    Private Sub Form_Load()
        Text1.Text = "c:\sync.txt"
        Command1.Caption = "Start"
        Command2.Caption = "Stop"
        bStop = False
    End Sub
    
    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        bStop = True
    End Sub
    					
  5. 文件 菜单中单击以编译该项目的 生成 TestClient.exe。创建 TestClient.exe。

运行测试

  1. 打开记事本。将字母"t"添加到第一次的位置,并将文件另存为 Sync.txt 在根上的驱动器 c。
  2. 启动 TestClient.exe 的两个实例。请注意,两个 TestClient.exe 进程正在运行在任务管理器中。
  3. 单击 开始 TestClient 的两个实例。
  4. 打开 Sync.txt。将第一行更改为"则 true",并保存。

    在保存文件后,请注意 TestServer.exe 进程在任务管理器中。
  5. 这两个实例的 TestClient,单击 停止,然后关闭窗体。请注意有没有 TestClient.exe 运行的实例。此位置 TestServer.exe 保持已加载。
有关相关的问题的其他信息多线程编程 Visual Basic 中单击下面文章编号,以查看 Microsoft 知识库中相应的文章:
241896PRB: 线程使用 Visual Basic 6.0 ActiveX 组件的问题

属性

文章编号: 300850 - 最后修改: 2014年2月24日 - 修订: 4.2
这篇文章中的信息适用于:
  • Microsoft Visual Studio 6.0 Service Pack 4
  • Microsoft Visual Studio 6.0 Service Pack 5
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 4
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 5
  • Microsoft Visual Basic 6.0 专业版
关键字:?
kbnosurvey kbarchive kbmt kbbug kblocalsvr kbpending kbqfe KB300850 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 300850
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com