A voir également:
- Delphi sleep
- Delphi thread sleep - Meilleures réponses
- Sleep delphi - Meilleures réponses
- Un sleep qui fige l'instruction précédente ✓ - Forum - Delphi / Pascal
- Insérer plusieurs sleep dans une même procédure... ✓ - Forum - Delphi / Pascal
- Problème de Thread ✓ - Forum - Delphi / Pascal
- Wait, timer, sleep d'environ 10 nano-secondes - Forum - Delphi / Pascal
- Delphi / Pascal : Sleep non bloquant - CodeS SourceS - Guide
10 réponses
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.
Bonne Prog,
Olivier
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
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 :)
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 :)
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.
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.
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;
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;
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èmes dans certains cas.
Bonne Prog,
Olivier
PS : Lorsqu'une réponse vous convient, n'oubliez pas de la valider.
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èmes dans certains cas.
Bonne Prog,
Olivier
PS : Lorsqu'une réponse vous convient, n'oubliez pas de la valider.
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é 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éponse vous convient, n'oubliez pas de la valider.
Bonne Prog,
Olivier
PS : Lorsqu'une réponse vous convient, n'oubliez pas de la valider.