SLEEP NON BLOQUANT
korgis
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
-
23 août 2003 à 15:21
Delphi - 22 juin 2019 à 14:07
Delphi - 22 juin 2019 à 14:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12719-sleep-non-bloquant
https://codes-sources.commentcamarche.net/source/12719-sleep-non-bloquant
22 juin 2019 à 14:07
Il faut vérifier ce que vous publiez avant de la faire parce que dans le cas contraire c'est ridicule !
20 juin 2007 à 15:40
26 janv. 2007 à 17:04
Quelqu'un une autre soluce pour faire une pause, une attente sans bloquer ? =) merci
17 janv. 2006 à 17:36
Merci
30 oct. 2005 à 23:11
pas grave mais merci ;)
2 juil. 2004 à 16:27
{$IF RTLVersion >= 14} // si delphi6 ou supérieur
...
{$IFEND}
RTLVersion est définie dans System.pas
@+
Manu
27 mars 2004 à 10:36
2 févr. 2004 à 23:29
Je suis sous delphi 6 là... j'ai recopié la fonction de cam91, essayé avec des valeurs allant de 1 à 4 000 000 000 ca ne fait aucune différence ... C'est quoi ce bins ?
Sinon je vais passer à delphi 7... si je résume, je dois passer à quelS codeS (mieux optimisé etc ...) ???
MERCI d'avance !
17 nov. 2003 à 06:48
25 sept. 2003 à 17:00
mov eax,edi
call TApplication.ProcessMessages
{$else}
call [EAX].TApplication.ProcessMessages
{$endif}
moi aussi sous delphi6 ça plantait
reste à voir si ça fonctionne sous 5 ?
bravo encore !
yve
25 août 2003 à 09:21
C'était effectivement bien çà, dommage qu'on puisse pas faire :
{$if ver >= 150}
mov eax,edi
call TApplication.ProcessMessages
{$else}
call [EAX].TApplication.ProcessMessages
{$endif}
25 août 2003 à 00:33
{$IfDef VER150} //pour Delphi 7
mov eax,edi
call TApplication.ProcessMessages
{$Else}
call [EAX].TApplication.ProcessMessages
{$EndIf}
VER80 pour Delphi1
VER90 pour Delphi2
VER100 pour Delphi3
VER120 pour Delphi4
VER130 pour Delphi5
VER140 pour Delphi6
VER150 pour Delphi7
Voila, désolé de t'avoir coupé l'herbe sous les pieds ;-)
24 août 2003 à 16:02
Et merci cam91 pour la version améliorée, c'est effectivement plus propre (et un poil plus rapide, lol) sans les push/pop dans la boucle ! Mais on doit pouvoir utiliser des tests dans le code, non ? Un peu comme les #ifdef en C, çà ferait une seule procédure pour toutes les versions de Delphi... J'ai déjà vu des codes qui en utilisaient, mais je sais plus comment çà marche... Je verrais çà demain au taf, à moins que quelqu'un me coupe l'herbe sous le pied, lol ;-)
23 août 2003 à 23:44
procedure TForm1.Pause2(t:DWORD);
asm
push esi
push edi
mov esi,edx
call GetTickCount
add esi,eax
mov edi,Application
@attente:
push 1
call sleep
mov eax,edi //ou rien (selon version)
call TApplication.ProcessMessages //où call [edi].TApplication.ProcessMessages
call GetTickCount
cmp esi,eax
jae @attente
pop edi
pop esi
end;
Comme tu peux le constater j'ai également optimisé le code qui devient plus court, en effet les 3 call ne modifient pas les registres ebx,esi et edi. Mais on peut toujours faire mieux ;-)
23 août 2003 à 15:21
Me semble remplacer très avantageusement Sleep !
Bravo et merci pour ce code, Nebula :-)