UN SIMPLE PROGRAMME MULTI-THREAD

Commentaire de SATANdemon le 06/01/2003 07:54:40

Pouurait tu m'expliquer ce qu'est un thread ??
moi et l'anglais on fait 5 si tu voit ce que je veut dire ;)

mais sinon je pense que ca pourra me servir un de ces jour :)

Commentaire de lumesh le 07/07/2003 17:04:25

Salut,

voila je suis en train de faire une appli de client FTP
et dedans g un systeme de recherche recursif.  qui est assez lourd
donc je voulais le mettre ds un thread mais je c pas men servir donc g pris ta src mais
le truc c ke je dois passer un param a la fonction a mettre en thread, donc saurait comment je px faire STP ?

MErci par avance pour ta réponse :)

Commentaire de ZedMaTrix le 27/08/2005 02:03:46

C'est super ce code !!

Mais plus d'explications sur la création de thread please !

Commentaire de reacen le 09/08/2008 09:09:28

Et On quoi cette source t'a sauver la vie ? x')

Sinon simple source et parfaite ! 10/10!!

Tien, je peu aller juska combien de fois avec ca :

For i = 1 To 50
SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&
next i


C'est fesable x') ?

Commentaire de hkari le 09/11/2008 11:27:16

je suis débutante dans la programmation des threads en C++builder6.
je cherche la fonction qui me permet de mettre en attente des threads (la fonction wait en java). je cherche sa correspondance en C++builder6.

merci de votre aide

Commentaire de Duke49 le 10/03/2009 01:53:58

J'ai fait une bourde dans l'exemple...

Dim perList() As New Collection
...
While nbThread > 0
  SHCreateThread AddressOf FN_CFWT(perList), ByVal 0&, CTF_INSIST, ByVal 0&
  nbThread = nbThread - 1
Wend


Je suis obligé de rendre mon perList déclaré en public ?

Commentaire de Philippe734 le 01/05/2010 16:06:39

Bonne source mais elle n'est pas complète. Il manque les explications permettant de réduire les risques de crash. L'usage du multithreading est certes déconseillé et souvent instable dans vb6 mais pas impossible. L'usage de cette méthode, qui repose sur l'api SHCreateThread est correcte de nos jours. En revanche, l'autre méthode reposant sur l'api CreateThread est obsolète. J'utilise cette méthode, avec l'api SHCreateThread régulièrement. Pour réduire les risques de crash, il faut ajouter des variables boolean à plusieurs endroits et désactiver les autres évènement d'un programme le temps d'exécuter la thread. C'est à dire, lors de l'exécution du thread, placer les variables avant et après afin de déterminer son statut à tout moment. Il faut également empêcher l'exécution de la thread en l'encadrant pour une condition. Avec cette méthode, il ne faut surtout pas que la sub qui lance la thread soit terminée avant la thread. Il faut attendre et mettre une boucle d'attente doevents juste après comme ci-dessous. Puis, toujours pour réduire les risques de crash, une petite boucle pour attendre quelques secondes est une bonne idée. Voici comment faire en reprenant le code de cette source :

Dans un autre module, appelons-le modGestionThreading, mettre trois property avec ses variables locales pour gérer le statut des threads

'----------------------------------------------

'dans les déclarations du module modGestionThreading :
Private m_bFinThread As Boolean
Private m_bThreadEnCours As Boolean

'dans le code du module modGestionThreading :
Public Property Get FinThread() As Boolean
    FinThread = m_bFinThread
End Property

Public Property Let FinThread(ByVal bFinThread As Boolean)
    m_bFinThread = bFinThread
End Property

Public Property Get ThreadEnCours() As Boolean
    ThreadEnCours = m_bThreadEnCours
End Property

Public Property Let ThreadEnCours(ByVal bThreadEnCours As Boolean)
    m_bThreadEnCours = bThreadEnCours
End Property

'---------------------------------------

'dans le code de l'exemple de la source :
Sub Main()

  If ThreadEnCours = False Then

      'on signale qu'il y a une thread en cours
      ThreadEnCours = True

      'initialise l'indicateur de fin de thread
      FinThread = False

      'crée la thread
      SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&

      'attend que la thread soit terminée
      Do Until FinThread = True
          DoEvents
      Loop

      'attend un peu que les threads soit bien terminées
      Dim DebutTimer As Long
      DebutTimer = Timer
      Do Until (Timer - DebutTimer) >= 2 'secondes
          DoEvents
      Loop

      'signale la fin de l'exécution des threads
      ThreadEnCours = False
  End If
End sub

'-----------------------------

'dans le code de la thread de la source, on ajoute la variable signalant la fin d'une thread : FinThread
Sub ShowMsgBox()
  nb_t = nb_t + 1
  MsgBox("Mstgbox exécuté depuis la thread n°" & nb_t, vbInformation)

  FinThread = True
    
End Sub

Et dans le reste du programme, afin de réduire les risques de crash, il faut désactiver tout les évènements tant que la thread n'est pas terminée. Pour simplifier, le programme ne doit rien faire d'autre que la boucle Do Until FinThread = True: DoEvents: Loop
Si on veux exécuter plusieurs threads en meme temps comme dans l'exemple, alors faut modifier le test de la variable FinThread en conséquence évidemment.
En résumé, c'est contraignant, mais ca fonctionne sans crash dans vb6 sp6 et c'est reproductible. De plus, il faut compiler le programme en P-code car il réduit les risques d'instabilités. Enfin, dans la ligne "créer la thread", il faut optimiser son code afin qu'il ne s'agit que d'une sub et pas d'une function.

Commentaire de Philippe734 le 01/05/2010 17:51:41

Fonctionne aussi sous vista et seven en suivant mes conseils

Commentaire de forestlaw le 25/05/2010 22:32:09

Bonjour Philippe74,

tout d'abord merci pour votre travail à ce sujet. Il y a par contre quelques zones d'ombre que je souhaiterai éclaircir avec vous.

Je vous expose ma problématique : j'ai un base Access effectuant des traitements assez lourds. Je souhaiterai offrir à l'utilisateur la possibilité d'effectuer certains travaux en tache de fond. Par ex, je sais qu'il utilise cette base pour faire des contrôles de cohérence. Ceux-ci sont en 4 étapes. Je souhaiterai donc, pendant qu'il contrôle l'étape 1, lancer l'étape 2 en tache de fond puis l'étape 3, etc ... Le but étant qu'il ne soit quasiment jamais bloqué. Le hic est que vous dites dans votre exemple ci-dessus qu'il faut mettre les autres événements en stand by le temps que le thread finisse son travail. Je retombe donc sur le meme problème qu'avant donc non ?

Merci d'avance pour votre réponse !!!

Patrice