thread.sleep(5000) en delphi?

Question

Bonjour

J'ai cree un Thread qui doit realiser une fonction 5 sec apres qu'il soit lance. Si je mets un sleep de la maniere suivante:

procedure TPrintThreadSH2.Execute;
begin
  sleep(5000);
  frmStatsPrinterMain.wbStats.Navigate(frmStatsPrinterMain.StatsDirectory + 'SH2.html?print=yes');
end;

le reste de mon application se bloque. Est il possible de bloquer juste le thread pour une duree precise?

Merci

Loulibier · Answer

Salut Seni,

 A priori tu dois avoir un soucis dans ton Thread, car j'ai tester ton problème sur l'une de mes applications et cela ne bloque pas du tout mon application.

par contre test le terminated, cela marche peut être mieux.


while not Terminated do
begin
sleep(5000);
frmStatsPrinterMain.wbStats.Navigate(frmStatsPrinterMain.StatsDirectory + 'SH2.html?print=yes');
end;


Bonne Prog,

Olivier

cs_seni · Answer

Salut Olivier,

merci d'avoir teste mon script, j'ai opte pour le script suivant :

Function Pause(time : cardinal); 
var t : cardinal; 
begin 
t:=GetTickCount; 
repeat 
Application.ProcessMessages; 
until (GetTickCount-t)>time; 
end; 

Un peu basique mais ca marche bien.
Merci encore :)

Loulibier · Answer

Salut,

  Certain putiste t'expliqueront qu'il faut limiter l'utilisation des ProcessMessages. Mais si cela te conviens  ;) 
  As-tu essayés ce que je t'ai mis comme code ?
  Car chez moi je n'es pas le même phénomène.

Bonne Prog,

Olivier.

Pornman · Answer

De mon Coter ce la meme chose que jutiilse.. Les chose les plus simple sont souvent ceux qui fonctionne le mieu :)



procedure Wait(Millisecondes: cardinal);

var

  Initial: cardinal;

  Final  : cardinal;

begin

  Initial := GetTickCount;

  Final   := Initial + Millisecondes;



  while Initial < Final do

    begin

      Initial := GetTickCount;

      Application.ProcessMessages;

    end;

end;

Loulibier · Answer

Je suis entierement d'accord avec toi "Les choses les plus simple fonctionne le mieu..." mais ta procedure fonctionne du moment que ton utilisateur ne clique pas sur la barre des titres...
Car tant que l'utilisateur clique sur la barre de titre de l'application ton Wait ne rendra pas la main... Cela peux poser des probl&#232;mes dans certains cas.

Bonne Prog, 

Olivier

PS : Lorsqu'une r&#233;ponse vous convient, n'oubliez pas de la valider.

Pornman · Answer

hummm Tu minteresse la peu tu devlopper un peu plus ta pensee ici stp

Loulibier · Answer

Fait un petit prog ou tu utilises ta procedure wait et affiche un message du style ShowMessage('Fin de mon Wait') execute ton programme et clique sur la barre de titre de ton application et tu verras que tant que tu restes cliqu&#233; sur la barre de titre la boite de dialogue n'apparait pas ! car ta procedure ne rend pas la main !

Bonne Prog, 

Olivier

PS : Lorsqu'une r&#233;ponse vous convient, n'oubliez pas de la valider.

Pornman · Answer

Tu dit Vrai mais Comment modifier ma procedure pour kelle rende la main comem tu dit :)

Loulibier · Answer

En fait la seule solution que j'ai trouv&#233; pour l'instant c'est de passer par des threads !

Bonne Prog, 

Olivier

PS : Lorsqu'une r&#233;ponse vous convient, n'oubliez pas de la valider.

Pornman · Answer

Pas trop fou ton idee Je vais essayer et je ten donne des nouvelle

Thread.sleep(5000) en delphi?

10 réponses

Votre réponse

Discussions similaires