Problème avec les Threads et la fonction Creaobject

Question

Bonjour &#224; tous,



Voila, j'ai un gros probl&#232;me avec les Thread sous VB 6.

Plus pr&#233;cis&#233;ment, c'est la fonction CreateObject dans la fonction de mon thread qui pose probl&#232;me.

Je m'explique :

Mon but et de cr&#233;er un thread qui va instancier une dll via CreateObject (et son ProgID)

Au final, j'aimerais que mon programme puisse lancer plusieurs threads et instancier chacun une dll diff&#233;rente



Le code ci-dessous fonctionne dans l'environnement de VB. Mais une fois
l'exe compil&#233;, &#231;a plante &#224; l'ex&#233;cution sur la fonction CreateObject



Pour l'utiliser, il suffit de cr&#233;er un projet et d'y ins&#233;rer un
formulaire (avec un bouton cmdStartThread et cmdQuit) , un module et un
module de classe



Merci d'avance pour votre aide.



''''''''''''' Code du formulaire



Option Explicit



'API Declarations

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long



Private Sub cmdStartThread_Click()

    Set TabThread = New clsThreading

    

    TabThread.CreateNewThread AddressOf LaunchFunctionFromDll, 0, True



    cmdStartThread.Enabled = False

End Sub



Private Sub cmdQuit_Click()

    Unload Me

End Sub



Private Sub Form_Unload(Cancel As Integer)

    Set TabThread = Nothing

End Sub



''''''''''''' Fin Code du formulaire



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



''''''''''''' Code du module



Option Explicit



'API Declarations

Private Declare Function CoInitialize Lib "ole32.dll" (pvReserved As Long) As Long

Private Declare Sub CoUninitialize Lib "ole32.dll" ()



Public TabThread As clsThreading



Public Sub LaunchFunctionFromDll()

    Dim plugins As Object



On Error GoTo Erreur



    Call CoInitialize(ByVal 0&)



    Set plugins = CreateObject("ADODB.Command")     ' Ligne qui pose PROBLEME ! ! !



    Set plugins = Nothing



    Call CoUninitialize



    Exit Sub

Erreur:

    MsgBox Err.Description, vbCritical, "Erreur n&#176; : " & Err.Number

End Sub



''''''''''''' Fin Code du module



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



''''''''''''' Code du module de class



Private Declare Function CreateThread Lib "kernel32" (ByVal
lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal
lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As
Long, lpThreadID As Long) As Long

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long



Private mThreadHandle As Long

Private mThreadID As Long

Private mCreated As Boolean



Public Function CreateNewThread(ByVal cFunction As Long, Optional ByVal
cPriority As Long 0, Optional ByVal cEnabled As Boolean True)

    'Creates a new Thread

    Dim mHandle As Long

    Dim lpThreadID As Long

    

    ' regarde si d&#233;j&#224; cr&#233;e

    If mCreated = True Then Exit Function

    

    mHandle = CreateThread(ByVal 0&, ByVal 0&, cFunction, ByVal 0&, ByVal 0&, lpThreadID)



    If mHandle = 0 Then ' Echec cr&#233;ation

    Else

        mThreadHandle = mHandle

        mThreadID = lpThreadID

        mCreated = True

    End If

End Function



Public Function TerminateCurrentThread()

    On Error Resume Next

    

    Call TerminateThread(mThreadHandle, ByVal 0&)

    mCreated = False

End Function



Private Sub Class_Terminate()

    Call TerminateCurrentThread

End Sub



''''''''''''' Fin Code du module de class

cs_casy · Answer

Un conseil, laisse tomber les threads avec VB6, il n'est pas prevu pour
faire du multithreading et ne sait pas le g&#233;rer (du tout, contrairement
&#224; VB5 qui lui ne sais pas le g&#233;rer correctement).



Le multithreading en VB6 c'est plantage assur&#233;



Le seul moyen (d&#233;tourn&#233;) de faire un semblant de multithreading c'est de cr&#233;er des ocx.



Eventuellement d&#233;porter le code et la gestion multithreading dans une dll &#233;crite en C.



<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

skirby · Answer

Salut casy,



Merci pour ta r&#233;ponse. Au moins elle a le m&#233;rite d'&#234;tre clair et elle
confirme ce que j'ai d&#233;j&#224; lu dans diff&#233;rent article sur le Net.



A+

frank150 · Answer

C'est bizarre pcq jsuis en vb6 et jpeux faire tourner 1 thread en background (soit 2 threads total en comptant celui du prog principale) et sa plante pas du tout!! Je pense que le probl&#232;me vient du fait que tu n'a pas compiler ton exe en P-Code (dans les options du projet -> Compile -> Compiler en mode P-Code).

Bonne chance!

Frank150

Problème avec les Threads et la fonction Creaobject

3 réponses

Discussions similaires