Discussion :

[BECHE]

Bonjour,
Dans une application, j'ai une procédure qui dure un peu envir (1mn). Hors pendant ce temps, un événement par l'appui sur un bouton n'est pas pris en compte par le programme.
Comment puis-je faire pour ne pas être obligé d'attendre la fin de la procédure pour faire l'impulsion sur le BP
Merci d'avance pour vos conseils

[BuzzLeclaire]

Bonjour,
Dans une application, j'ai une procédure qui dure un peu envir (1mn). Hors pendant ce temps, un événement par l'appui sur un bouton n'est pas pris en compte par le programme.
Comment puis-je faire pour ne pas être obligé d'attendre la fin de la procédure pour faire l'impulsion sur le BP
Merci d'avance pour vos conseils

Le plus simple, tu mets un ProcessMessage dans ton travail qui dure 1 Minute.

Code :

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

Application.ProcessMessage;

[Dr.Who]

je suis curieux de voir la procédure en question...

[Jipété]

je suis curieux de voir la procédure en question...

Ben Dr.Who, t'as cassé ta boule de cristal ?

Pas de panique, c'est à cause de la neige,

[Droïde Système7]

Salut les copains et bananée

Dans une application, j'ai une procédure qui dure un peu envir (1mn). Hors pendant ce temps, un événement par l'appui sur un bouton n'est pas pris en compte par le programme.

Même idée que notre toubib...

Réponse complémentaire : pas possible de threader cette proc ?

@+

[BECHE]

Bonjour,
Merci de vos diverses réponses et commentaires qui m'ont permis d'y voir un peu plus clair.
En fait j'avais rendu inactif mon bouton pendant le déroulement de ma procédure A qui dure plus d'1 mn ceci pour éviter un conflit entre la procédure A et la procédure engendrée par l'événement sur le BP
J'avais donc décider de laisser terminer la procédure A avant de pouvoir agir sur mon BP
Cette procedure A dure tout ce temps car elle active et désactive plusieurs fois une sortie du port paralléle (ouverture saccadée d'une vanne) avec une attente entre chaque commande par une procédure d'attente appelée plusieurs dans la procédure A

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 procedure wait (ms:integer);
 var
 debut,durée:cardinal;
 begin
 debut:=gettickcount;
 durée:=0;
  While durée <= ms do
    begin
    Application.ProcessMessages;
    sleep(100);
    durée:= gettickcount-debut;
    end;
 end;

qui possède bien le "Application.ProcessMessages"
C'est la solution (désactiver mon BP) que j'avais trouvé lors de l'écriture de mon programme.
En réalité, j'ai plutôt besoin de faire un exit d'une procédure mais via une autre procédure. Comment procède t-on ?

[az0101]

Le plus simple, tu mets un ProcessMessage dans ton travail qui dure 1 Minute.

Code :

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

Application.ProcessMessage;

Non le plus simple c'est de mettre 'le travail qui dure une minute' dans un TThread. ( cf la bible sur le sujet: 'le travail qui dure une minute, mieux le comprendre et comment le gérer' aux éditions Springer...)

[edam]

Code :

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

1
2
3
4
5
6
7
8
9
procedure Wait(const MS: LongWord);
var
  E : LongWord;
begin
  E := GetTickCount+MS;
  repeat
     Application.ProcessMessages;
  until GetTickCount >= E;
end;

ou un timer, qui peut être presque précis avec un temp >1s

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Wait(const MS: LongWord);
begin
  Timer.interval:=ms;//avec ms>1s 
  Timer.enable:=True;
end;
Procedure TForm1.OnTimer;
begin
      Timer.Enable:=False;
      FiareQuelquechose; 
end;

[BECHE]

Bonsoir, et merci pour les conseils
Encore 2 petite question.
Existe-t-il une commande pour sortir d'une procédure en cours sous l'action d'un événement extérieur donc une autre procédure ?

[Droïde Système7]

Bonsoir, et merci pour les conseils
Encore 2 petite question.
Existe-t-il une commande pour sortir d'une procédure en cours sous l'action d'un événement extérieur donc une autre procédure ?

En gros, pour faire le plus simple possible, cela se passe par Boolean style :

Code :

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

1
2
3
4
[...]
  // La proc dont tu souhaites "sortir" si...
  if Stop then exit;
[...]

Mais chaque cas est différent, et pas spécialement aussi simple à résoudre.

@+