Discussion :

[zejo63]

Bonjour ,

J'appelle une procedure qui est dans une DLL avec des paramètres.
Quelque fois VB reste bloquer dans la procedure.
J'aimerai donc creer un thread avec l'appelle de la procedure et attendre qu'il ai fini. Et si par exemple au bout de 30 sec il n'a pas fini je kill le thread et je passe a la suite.

J'ai vu sur le forum la fonction CreateThread mais pas beaucoup de doc.
Est ce que quelqu'un peux m'aider .
Merci

[medkarim]

http://www.freevbcode.com/ShowCode.Asp?ID=1287
http://msdn.microsoft.com/fr-fr/library/bb727323.aspx

Bonne lecture

[DarkVader]

Bonjour,
Surprenant le florilège de code publiés sur la msdn utilisant un wrapper .net à l'intention de VB6 depuis quelques temps !
La direction sort de nouveaux artifices ?
Les développeurs VB ont été oubliés durant plusieurs années et d'un coup, articles, mises à jour de sécurité etc. sont mis en ligne !
Le passage forcé à .net n'aurait-il pas atteint les objectifs désirés ?

Pour en revenir à nos moutons,
1/ la littérature sur le sujet est assez constante concernant les threads sous vb6 :
il est préférable de compiler en mode P-Code.
2/ t'es-tu intéressé à la solution Exe-ActiveX ?
=> la doc sur les Exe-ActiveX

[zejo63]

Ok merci j'ai fait ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
            lngTHandle = CreateThread(0, 0, AddressOf ThreadDecode, 0, 0, lngTId)
 
            If lngTHandle <> 0 Then
                lngRet = WaitForSingleObject(lngTHandle, 50000)
                CloseHandle lngTHandle
                e = TerminateThread(lngTHandle, 0)
            Else
                EcritLog "   -> Le ficher " & fic_bin & " en ERREUR ", 2
                GoTo fin_Calcul_CP
            End If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public Function ThreadDecode() As Long
On Error Resume Next
    Sleep 1
    thread_code_retour = MODULE_DECODE(thread_fic_bin, thread_fic_asc, thread_num_ser, thread_tb_cpt_int(0))
End Function

Le probleme c'est que au bout de 50 sec je coupe le thread si trop long et la ca plante dans ma fonction ThreadDecode au niveau de l'appel de ma fonction MODULE_DECODE qui est dans une dll

Quelqu'un a une idée

[zejo63]

La fonction WaitForSingleObject attend elle une réponse ou doit je faire un boucle