BUG: ??? GlobalMultiUse ??? ????? ?? ???? ?????? ?????? ???????

?????? ????????? ?????? ?????????
???? ???????: 300850 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
????? ???? | ?? ????

?? ??? ??????

???????

??? ????? ??????? ??????? ????? ?? EXE ActiveX ???????? ???? ?? ??? ????? ?? ??? ??????? ????? ??? ????? MultiUse ?? ????? ?????? ???? (DLL) ? ??? ??? ????? ?? ??? GlobalMultiUse ?? ??? DLL ActiveX EXE ActiveX ???? ???? ??????? ??? ??? ????? ?????? ?? "ActiveX ?? ???????; ???? ??????? ?????, ??? ??? ???? ??????? ??? ??? ?? ???????.

?? ???? ??? ?????? ?? Visual Basic 6.0 ?????? ????? ?????? Service Pack 3 (SP3) ?? ????? ????.

?????

???? ??? ??????? ???? ????? ????? DllCanUnloadNow DLL GlobalMultiUse FALSE ??? ??? ??? ??????? ?????? ?? ??? ???? ????? ???. ???? ???? ?? DLL GlobalMultiUse ?? ?? ????? ?????? ???? ?? ???? ?????? ?????? ?????.

????

????? ???? ????? ???? ????? ?? 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. ????? ????? ???? DLL ActiveX ??? ???????? Class1.
  2. ?? ??????? ??????? ???? ??? ????? ?????1. ????? ??? ??????? ??? GMultiUseDll ?? ???? ??? ?????.
  3. ?? ???? ?????? ????? ????? ????? Instancing Class1 ??? 6 - GlobalMultiUse.
  4. ??? ???? ???????? ???????? ??????? ??? ?????? ??????? ????????? ???????? ?????? Class1:
    Public Function ClassName() As String
        ClassName = "Class1"
    End Function
    					
  5. ?? ??????? ???? ???? ??? ???? GMultiUseDll.dll ????? ???????. ??? ????? GMultiUseDll.dll.

????? DLL ?? ??? MultiUse

  1. ????? ????? ???? DLL ActiveX ??? ???????? Class1.
  2. ?? ??????? ??????? ???? ??? ????? ?????1. ????? ??? ??????? ??? MultiUseDll ?? ???? ??? ?????.
  3. ?? ??????? ??????? ???? "?????" ??? ???? ???????? GMultiUseDll.dll ??? ?? ???? ??? ?????.
  4. ??? ???? ???????? ???????? ??????? ??? ?????? ??????? ????????? ???????? ?????? Class1:
    Public Function GetString() As String
        GetString = ClassName
    End Function
    					
  5. ?? ??????? ???? ???? ??? ???? MultiUseDll.dll ????? ???????. ??? ????? MultiUseDll.dll.

????? ????? ActiveX EXE

  1. ????? ????? ???? ActiveX EXE ??? ???????? Class1.
  2. ?? ??????? ??????? ???? ??? ????? ?????1. ????? ??? ??????? ??? 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. ?? ??????? ??????? ???? ??? ????? ?????1. ????? ??? ??????? ??? TestClient ?? ???? ??? ?????.
  3. ????? ????? (Label1) "?" ???? ?? (????1) "?" ????? CommandButtons (Command1 ? Command2) ??? Form1 ".
  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 ??????.
?????? ??? ??????? ?????? ??? ???????? ???????? multithreading ?? Visual Basic? ???? ??? ??? ??????? ????? ?????? ?? "????? ??????? ?? Microsoft:
241896PRB: ???? ??????? ??????? ??????? ?? ?????? ActiveX Visual Basic 6.0

???????

???? ???????: 300850 - ????? ??? ??????: 28/???? ??????/1435 - ??????: 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 Professional Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbbug kblocalsvr kbpending kbqfe KB300850 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????300850

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