Discussion :

[zitoune92]

Bonjour,

En schématisant voici mon appli:

Une forme avec un bouton
un object Thread.

A chaque appui du bouton on lance le même thread:

Code :

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

1
2
3
4
UnThread:=TMidiThread.Create(True); 
UnThread.FreeOnTerminate:=True;
UnThread.Priority:= tpnormal;
UnThread.Resume;

Dans l'objet thread:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
....
procedure TMidiThread.PlayMidi ;
  pause(1000);
  traitement ;
end;
procedure TMidiThread.Execute;
begin
  Synchronize(PlayMidi) ;
end;
....

la fonction pause a été crée pour éviter le sleep qui est bloquant:

Code :

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

1
2
3
4
5
6
7
8
9
10
function TMidiThread.Pause(ms : integer) : integer;
var
  hbms : integer;
begin
  hbms := GetTickCount + ms;
  repeat
  Application.ProcessMessages;
until GetTickCount >= hbms  ;
result:= 0 ;
end;

Le résultat des courses c'est que si je clique assez rapidement plusieurs fois sur le bouton, je m'aperçois que les threads démarrent correctement mais qu'ils sont interronmpus par le suivant et doivent attendre que ce dernier finisse pour qu'il puisse finir leur traitement. Je ne sais pas si je suis trés clair dans ma prose alors je joins un schéma.
En haut ce que je voudrais obtenir, en bas ce que j'ai. Les barres verticales symbolisent les clicks.

Je précise que je débute avec les threads donc j'imagine qu'il me manquent pas mal de concepts

Merci de vos lumières

[Laurent Dardenne]

Salut,

Je précise que je débute avec les threads donc j'imagine qu'il me manquent pas mal de concepts

Tu peux t'en assurer en consultant ces qq tutoriels
http://delphi.developpez.com/cours/?them=Threads
et
http://mdalbin.developpez.com/tutori...al/semaphores/

[BigBisous]

Attention , tu traites les threads comme de programmes normaux.
Je m'explique, les threads tournent normalement dans leurs propre environnement, le problème c'est que tu utilises Synchronize qui force les threads à être traités par le thread du programme principal.
Lis bien ce que l'on dit sur SYNCHRONIZE dans l'aide.
Pour SYNCHRONISER des threads lors de l'accès à des variables du PGM
principal il faut des CRITICAL SECTIONS.

Je suis à ta disposition si tu veut en savoir plus.

[zitoune92]

le problème c'est que tu utilises Synchronize qui force les threads à être traités par le thread du programme principal.
Je suis à ta disposition si tu veut en savoir plus.

Ces Threads ne peuvent être indépendants du prog principal. C'est lui qui les lance et les arrete.

Mais à bien regarder ce que je veux faire, il me faut dans chaque thread lancer une "interruption" au thread précédent pour qui fasse un traitement de fin de thread.
Les events sont peut être une piste....

[zitoune92]

le second tuto avec les sémaphores a l'air trés intéressant...faut que je me forme...mais bon en attendant, si vous avez des idées pour mon problème, je suis preneur

merci

[rvzip64]

Pour SYNCHRONISER des threads lors de l'accès à des variables du PGM
principal il faut des CRITICAL SECTIONS

Les sections critiques arretent tous les thread d'un processus, ça lui posera le meme probleme.