Discussion :

[Jayceblaster]

Bonjour.

Voila je vous explique mon problème...

J'ai un programme (vcl) qui me permet lors d'un clic sur un bouton d'exécuter une suite d'opération (pilotage d'un port série notamment...).Mais le problème c'est que j'ai un autre bouton qui me permet d'effectuer un arret d'urgence et je voudrais que l'événement de celui-ci soit prioritaire sur les autre. Aujourd'hui quand je clique sur ce bouton le logiciel continu le pilotage de la RS232 et ca peut etre dangereux dans certains cas .

Dois je donc m'orienter vers la mise au moint de thread? La solution est t'elle d'utiliser le multithreading?
je connais rien de cette méthode (ca me semble costaux ). dois créer un thread pour mon code associé au bouton d'arret d'urgence et un thread pour le reste de mon programme?

Enfin aider moi car la je rame ... je ne comprend rien au multithreading

merci d'avance

[tourlourou]

et si le bouton d'arrêt d'urgence envoyait un message qui serait traité par la procédure message idoine grâce à des ProcessMessages réguliers dans le code ?

[Jayceblaster]

et si le bouton d'arrêt d'urgence envoyait un message qui serait traité par la procédure message idoine grâce à des ProcessMessages réguliers dans le code ?

Ola est en clair ?
non alors la c'est du chinois pour moi les processMessage j'ai jamais utiliser ais explique moi peut etre que ca peut convenir si ca permet de gerer des interruption...

[tourlourou]

on peut définir des messages à partir de WM_USER selon une syntaxe que je n'ai pas sous la main...
tu définis une procédure qui traitera le message
tu rends la main à l'appli de temps en temps pour traiter les messages dans les traitements longs

mais dans une même fiche, il suffit d'un booléen global :

style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
const WM_MONMESSAGE = WM_USER+211;
procedure (TForm1.)STOP(var Message: TMessageRecordType); message WM_MONMESSAGE;
procedure TForm1.bnSTOPClick(Sender: TObject);
begin
 ArretDemande:= True; // var globale
 SendMessage(self.Handle, WM_MONMESSAGE, ...); // inutile en fait,sauf entre applis
end; 
procedure longue;
begin
 for i:=1 to MaxInt do begin
  if i=100*trunc(i/100) then Application.ProcessMessages; // rend la main pour les messages (dont STOP.Click)
  if ArretDemande then ...//
  ShowMessage(IntToStr(i));
 end;
end;

[TicTacToe]

Peut être que cela suffit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure F.ButtonTraitementClick(...)
begin
  while ( SuiteOperation = True ) and ( ButtonStop.Tag = 0 )  do
    begin
    // tes opérations sur rs232
    Application.ProcessMessages; // traitement des messages avant tours suivant
    end;
  ButtonStop.Tag := 0;
end;
 
procedure F.ButtonStop( ... )
begin
  ButtonStop.Tag := 1;
end;

[Jayceblaster]

slt TicTacToe j'ai dejà le "Application.ProcessMessages;" mais ca suffit pas car les opérations sur la RS232 dure longtemps et en plus de cela je pilote des instrument de mesure (alimentations, osciloscope....) et lorsque je lance un test (puisqu'il s'agit d'un logiciel de test) cela peut duré longtemps et je dois pouvoir a tout moment activer mon bouton d'arret sans retard meme de 2 secondes... (sinon attention les dégats )...c'est pourquoi j'ai pensé au multithreading mais ca m'a l'air compliqué... (car dans le principe il me suffirait de créer un thread qui comprend les acces au appareils de mesure et à la RS232 laissant alors les autres fonctionalité du logiciel disponibles)