Discussion :

[Xavier]

Comme il y a plus en plus de PC multi-cœurs, je voudrais paralléliser une application afin d’accélérer les calcul.
J’ai une application principale réalisée sous BCB. Dans cette appli, plusieurs DLL seront appelées pour effectuer des différents calculs.
Sous BCB, est-ce qu’il est possible de faire quelque chose dans l’application principale pour que les DLL soient exécutées en parallèle (bien sur dans les PC multi-cœurs).
Merci d’avance

[sat83]

Utilise des threads (classe TThread). Un petit tuto ici.

[Xavier]

Merci beaucoup.
Juste un petit problème: dans les codes ci-dessous, le programme se bloque sur "delete MonThread". Je l'ai enlevé et cela marche (mais, peut-être il y a fuite de mémoire?).

Code :

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

1
2
3
4
5
6
7
void __fastcall  TForm1::FinDeMonThread(TObject *Sender)
{
        EnableWindow(Handle, true);
        Label1->Caption = "Thread terminé";
        delete MonThread;
        MonThread = NULL;
}

[Luc84]

Pour terminer un thread proprement, voici la méthode que j'utilise :
1- dans la méthode Execute() du thread lui-même :

Code :

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

1
2
3
4
5
 
do  {// traitement 
     // suite ...
    }while(Terminated() == false);
// quitter le thread

2 - dans la fiche principale :

Code :

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

1
2
3
4
5
6
7
 
// demander au thread de s'arrêter
MonThread->Terminate();
// attendre l'arrêt du thread
MonThread->WaitFor();
// le thread est arrêté, libérer la mémoire
delete MonThread;

Si tu te contentes d'un "delete MonThread" sans rien faire d'autre, tu vas droit vers un plantage car tu libères la mémoire alors que le code du thread est toujours en train de s'exécuter.

[Xavier]

Merci Luc84,
J'ai encore une question: qu'est-ce qu'on met dans MonThread->Terminate();

[pottiez]

Salut,
tu n'y met rien, c'est une méthode déjà défini par Borland, tu n'as pas besoin de la réécrire, elle est associé a la méthode Terminated() également défini par Borland (l'une met la propriété Terminated à true, et l'autre renvoie l'état de la propriété Terminated)