Discussion :

[skywaukers]

Bonjour,

je ne suis pas certain d'être dans la bonne rubrique, mais vu que mon problème concerne une application écrite avec le Framework Firemonkey, je le mets ici.

Voilà, j'ai une application écrite en Firemonkey dans laquelle parfois j'obtiens une violation d'accès. Le message apparaît de façon aléatoire et je n'arrive pas à déterminer une corrélation (il peut aussi être fréquent, comme il peu se passer plusieurs jours sans qu'il n'apparaisse).
Il apparaît sur un OnTimer, je ne sais pas lequel pourrait être concerné et mes différents debug n'ont rien donné. De plus, chose étrange, la pile d'appel ne mentionne aucune provenance d'une procédure propre à mon application :



En déboguant j'ai pu voir que le message apparaît sur cette instruction de l'unité FMX.Forms.Border.Win :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TWinWindowBorderEx.MouseLeaveCheckHandler(Sender: TObject);
var
  CursorPixel: TPoint;
begin
  GetCursorPos(&CursorPixel);
  if WindowFromPoint(CursorPixel) <> Wnd then <-- cette ligne
  begin
    FMouseLeaveTimer.Enabled := False;
    MouseLeave;
  end;
end;

or cette méthode est une méthode provenant d'une dll (unit WinApi.Windows) :

Code :

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

function WindowFromPoint; external user32 name 'WindowFromPoint';

Et LE gros problème c'est que l'application boucle infiniment sur ce message... Je suis donc obligé de tuer l'application et la relancer, ce qui est plutôt gênant.

Quelqu'un aurait rencontré ce genre de problème ou aurait une piste à me donner ? Parce que là je sèche un peu.

Merci pour votre attention

@++
Dany

P.S. : précision : je travaille avec Delphi 11.3

[ShaiLeTroll]

Est-ce GetCursorPos renvoie TRUE ?
Si FALSE, il ne faut pas appeler WindowFromPoint

Le lien entre MouseLeaveCheckHandler et un TTimer c'est TWinWindowBorderEx, cela n'existait pas en D10 (uniquement TWindowBorderWin) et en D11 c'est déjà en DEPRECATED

Tu n'aurais pas un Free/Destroy dans une méthode de la TForm concerné ?
En VCL c'est périlleux, on utilise Release pour cela (utilise la File de Message)
En FMX, Release c'est obsolète en plus d'être plutôt lié à la gestion des références

[skywaukers]

Merci pour ta réponse.

C'est ce que j'ai pensé aussi une histoire de free. De mémoire je ne saurai dire si le message arrive systématiquement sur la même form, mais il arrive au moins souvent sur la même. je n'utilise pas de free pour la quitter mais un TThread.ForceQueue( nil, DisposeOf );

Je regarderai la valeur de GetCursorPos la prochaine fois (ce sera peut-être dans plusieurs jours), mais le problème c'est que c'est une unit de Delphi, j'aimerai éviter d'en modifier de trop. J'en ai déjà modifiée une (après l'avoir copiée bien sûr) à cause de la gestion des raccourcis claviers qui ne marchent plus depuis la 11.2 et dont l'utilisateur ne peut absolument pas se passer. Et du coup ça oblige à ajouter l'unité modifiée dans le projet et à faire gaffe lors des changements de version... donc c'est pas vraiment top.

Encore merci.

@++
Dany

[SergioMaster]

Bonjour,
Le aléatoire est le mot gênant, tu peux reproduire ce comportement avec un programme simplifié ? Si oui alors un signalement sur le portail qualité s'impose, Si non alors il y a un problème dans ton application

J'en ai déjà modifiée une (après l'avoir copiée bien sûr) à cause de la gestion des raccourcis claviers qui ne marchent plus depuis la 11.2 et dont l'utilisateur ne peut absolument pas se passer.

Signalée sur le Portail Qualité ?

[skywaukers]

Bonjour,

Bonjour,
Le aléatoire est le mot gênant, tu peux reproduire ce comportement avec un programme simplifié ? Si oui alors un signalement sur le portail qualité s'impose, Si non alors il y a un problème dans ton application

Malheureusement non je ne le reproduit pas ailleurs et je pense que c'est un problème dans mon application. mon problème étant qu'il ne se produit pas toujours (je ne dis pas aléatoirement ) en faisant pourtant toujours les mêmes actions. Je n'ai pas trouvé à ce jour de moyen pour le reproduire "à la demande" c'est bien tout mon problème et pourquoi je demande de l'aide pour avoir des pistes auxquelles je n'aurait pas pensé (et il y en a très certainement) .

Signalée sur le Portail Qualité ?

ça l'était déjà lorsque j'avais fais des recherches à ce sujet donc non je ne l'ai pas fait de mon côté. Et je n'ai pas vérifié si c'était réglé maintenant sur la v12, mais j'espère que oui.

Merci pour ta réponse.

@++
Dany

[SergioMaster]

ça l'était déjà lorsque j'avais fait des recherches à ce sujet

Oui, mais je ne l'ai vu que pour les cibles ayant comme logo une pomme