Visual Basic 6.0 ActiveX bileþenleri ile ilgili sorunlar için iþ parçacýðý

Visual Basic 6.0 ActiveX bileþenleri için bir çok iþ parçacýklý ortamda kullanýrken, aþaðýdaki olasý sorunlarý bilmelisiniz:

Çok iþ parçacýðýndan oluþan bir istemcinin, ActiveX DLL barýndýrýlan

• MSVBVM60.DLL içinde eriþim ihlali oluþuyor.
• Istemci, bir kilitlenme durumuna girer.

Bir çok iþ parçacýklý ortamda, örneðin, IIS, MTS veya bir çok iþ parçacýklý istemci bulunan bir Visual Basic ActiveX DLL DOSYASý ve Bellek gelen Koru</a0> seçeneði etkin deðildir, bu iki belirtileri görebilirsiniz. Bu seçeneði etkinleþtirmek için aþaðýdaki adýmlarý izleyin:

1. Proje menüsünde Proje Özellikleri seçin.
2. Genel sekmesinde, iþ parçacýðý modeli grubu akýtýlan olduðundan emin olun, sonra Katýlýmsýz yürütme ve Bellek gelen Koru onay kutularýný seçin *.
3. Projeyi kaydedin ve DLL DOSYASýNý derleyin.

* Not Proje Formlarý veya denetimler gibi bir kullanýcý arabirimi öðeleri içeriyorsa, Katýlýmsýz yürütme seçeneði kullanýlamaz. Katýlýmsýz yürütme seçili deðilse, Gelen bellek Koru</a0> seçeneði kullanýlamaz.

Not Visual Studio 6.0 Service Pack 3 için önce bellekteki etkin tut'ile iþlem kapatma sýrasýnda bir AV alma olasýlýðý oldu. Bu, en son Visual Studio 6.0 hizmet paketinde giderilmiþtir:
Söz konusu olduðunda, ActiveX DLL DOSYASý, ActiveX DLL veya UserControl projesinde API bildirimleri içerir, kilitlenmeleri iþlem/iþ parçacýðý kapatma sýrasýnda karþýlaþabileceðiniz veya nesne oluþturma, bile Katýlýmsýz yürütme</a0> onay kutusunu seçilmiþ. Geçici çözüm bu sorun, bir tür kitaplýðý içinde Declare yerine kullanabileceðiniz Visual Basic. Bir tür kitaplýðý'ný kullanma hakkýnda ek bilgi için Microsoft Knowledge Base'deki makaleyi % 2'ni görüntülemek üzere aþaðýdaki makale numarasýný týklatýn % 2'yi týklatýn:

ActiveX EXE çok iþ parçacýðýndan oluþan bir istemci veya birden çok tek veya çok threaded istemciler tarafýndan eriþilebilir.

Bir ActiveX EXE sunucusu deðerinden bir (1), çok iþ parçacýðýndan oluþan bir istemci veya hýzla oluþturma ve sunucu içindeki nesneleri yok edilmesi birden çok tek veya çok threaded istemcilerinin bir iþ parçacýðý havuzu varsa, yukarýda listelenen hata iletilerini görebilirsiniz. Bu soruna geçici bir çözüm bulmak için <a0></a0>, yerel sunucu boþ bir sýnýf oluþturmak ve bir baþvuru için aþaðýdaki "Ek bilgi" bölümünde gösterilen tutmak istemci saðlayabilirsiniz.

Bu davranýþ tasarým yüzündendir.Bir proje herhangi bir genel sýnýf içeriyorsa, Visual Studio 6 Service Pack 5'te MTSTransactionMode kümesi olan dýþýnda bir 0, <a2>Katýlýmsýz yürütme seçeneði</a2> ve <a4>Bellek gelen Koru seçeneði otomatik olarak seçilir.

Davranýþý Yeniden Oluþturma Adýmlarý

A: sunucu oluþturma

1. Bir ActiveX EXE proje oluþturmak ve bunu ThreadTest olarak yeniden adlandýrýn.
2. Proje menüsünde Proje Özellikleri seçip Genel sekmesinde, Ýþ parçacýðý havuzu, iki (2).
3. (Class1) varsayýlan sýnýfa aþaðýdaki kodu ekleyin:

   Private strClassName As String
   Public Property Let ClassName(ByVal vData As String)
      strClassName = vData
   End Property
   Public Property Get ClassName() As String
      ClassName = strClassName 
   End Property
   					

4. Kaydetmek ve (ThreadTest.EXE) Projeyi derleyin.

B: istemci oluþturma ve sýnama

1. Standart exe DOSYASý bir proje baþlatýn ve, istemci olarak yeniden adlandýrýn.
2. Varsayýlan forma (Form1), bir komut düðmesi ve bir metin kutusu ekleyin.
3. Form1'e aþaðýdaki kodu ekleyin:

   Private Sub Command1_Click()
      Dim i As Long, j As Long
      Dim o As Object
      j = Val(Text1.Text)
      For i = 1 To j
         DoEvents
         Set o = CreateObject("ThreadTest.Class1")
         o.ClassName = i
         Me.Caption = o.ClassName
         Set o = Nothing
      Next
   End Sub
   Private Sub Form_Load()
      Text1.Text = 1000
      Command1.Caption = "Start"
   End Sub
   					

4. Proje (Client.EXE) derleyin.
5. Üç veya daha fazla örneðini Client.EXE baþlatmak ve her formda Baþlat düðmesine basýn. Yukarýdaki hata iletilerinden birini veya birkaçýný gördüðünüz unutmayýn.

C: geçici çözümü uygulayan...

1. ThreadTest projeyi açýn.
2. Baþka bir sýnýf modülü (Class2) ve kod ekleyin.
3. Kaydetmek ve proje (ThreadTest.EXE) re-compile.
4. Istemci projeyi açýn.
5. Form1 kodu aþaðýdaki ile Deðiþtir:

   Private p As Object
   Private Sub Command1_Click()
      Dim i As Long, j As Long
      Dim o As Object
      j = Val(Text1.Text)
      For i = 1 To j
         DoEvents
         Set o = CreateObject("ThreadTest.Class1")
         o.ClassName = i
         Me.Caption = o.ClassName
         Set o = Nothing
      Next
   End Sub
   Private Sub Form_Load()
      Text1.Text = 1000
      Command1.Caption = "Start"   
      Set p = CreateObject("ThreadTest.Class2")
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
      Set p = Nothing
   End Sub
   					

6. Kaydetmek ve proje (Client.EXE) re-compile.
7. Client.EXE üç veya daha çok örneðini çalýþtýrmayý ve her formda Baþlat düðmesine basýn. Not hiçbir hata iletileri görmeniz gerekir.

Bir iþ parçacýðý havuzu, bir büyük olan bir ActiveX EXE DCOM üzerinden birden çok istemci tarafýndan eriþildiðinde "Daha fazla bilgi" bölümüne C bölümünde açýklanan geçici çözüm çalýþmaz. Sonuç olarak, Visual Basic 6.0 ActiveX EXE sunucular ile birden çok istemci hýzla oluþturma ve nesne yok edilmesi DCOM sunucularý için uygun deðildir. Bu senaryo iþlemek sunucu uygulamanýz gerekiyorsa, ActiveX DLL MTS yerine kullanmanýz önerilir. ActiveX DLL, MTS içinde saklanacak tasarlarken, Katýlýmsýz yürütme ve Bellek gelen Koru onay kutularý her ikisi de seçili olduðundan emin olun. Bu onay kutusu ve <a0>Proje</a0> menüsünde bulunan, Özellikler ' i seçin ve Genel sekmesini seçin.

MTS veya COM + ActiveX bileþeni'ni kullanmak istediðinizde, bir sýnýf için GlobalMultiUse ýnstancing özelliðini kullanmayýn. Arabirim GlobalMultiUse nesnesi için önbelleðe alýnan bir iþ parçacýðý temel tablo baþýna ve iþ parçacýðýnýn sona kadar serbest. Sonuç olarak, arama (ancak ayný parçacýðýnýn üzerinde) farklý bir içerikle birlikte gelir, RPC_E_WRONG_THREAD ile baþarýsýz. MTS ve COM + bileþenleri kullanmak için <a0></a0>, bilgisayarýnýzýn sýnýflarý nesnelerin durum bilgisi olmayan olduðunu þekilde tasarlayýn.