Discussion :

[Bruno13]

Bonjour à tous,

j'ai fait mon propre Sleep comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
procedure MySleep(x : integer);
var i : integer;
Begin
  for i:=1 to x do
  Begin
    Application.ProcessMessages;
    Sleep(1000);
  end;
End;

C'est une proc que j'appelle assez souvent, mais voilà au bout d'un certain temps j'ai une stack Overflow error ?!

Par contre si je mets uniquement Sleep(1000) sans passer par une proc. je n'ai pas cette erreur.

Croyez vous que mon erreur peut provenir de l'utilisation trop régulière de Appl.ProcessMessage ??

Merci pour vos conseils.

Bruno

[LadyWasky]

Certainement que ton MySleep est appelé depuis un évènement (MouseMouve, Clic, KeyDown, Paint, etc....), dont le redéclenchement est autorisé par ton Application.Processmessage, qui , du coup rappelle ton MySleep, etc... = boucle infinie mon grand, ne cherche plus

[Bruno13]

Salut Wascol,

A priori je ne fais pas d'appel autre part. J'utilise bien proprement mon MySleep. De toute manière le probleme a été résolu d'une tout autre maniere n'ayant rien à voir avec le sleep.

Merci qd pour ta réponse.

Bruno

[ShaiLeTroll]

@Bruno13, jamais waskol n'a incriminé le sleep, mais le processmessages ...

le grand classique, c'est dans un évènement tu fait appelle à un application processmessages, ou alors dans ton évènement tu fait appelle à une méthode, qui provoque l'appel du même évènement, genre onDataChange d'un TDataSource, dans gestionnaire tu modifie la valeur, donc évènement, et dans ce cas la résolution classique est l'affectation à nil du gestionnaire avec un try finally pour le réaffecter ...

Sinon, il faut différencier les évènements en deux catégories, ceux qui sont des messages Windows ou Delphi (OnDataReceive, OnScroll, OnMouseMove, ...) et ceux qui sont appelé dans une méthode par ce que c'est le fonctionnement de l'objet qui veut ça (OnCreate, OnDataChange, ...)