Discussion :

[gord's]

lorsque je fais tourner mon appli à travers VNC, j'ai aléatoirement un accessViolation sur ClientToScreen.

Quelqu'un a deja eu ce genre de pb ?
Faut-il prendre des précautions particulières pour etre compatible VNC ? (ou autre outil de prise de main d'ailleurs)

merci

[Pierre Castelain]

Tiens, c'est bizarre. Tu utilise quelle version de VCN?
As-tu essayé de faire une petite appli de test pour vérifier si le problème vient bien de là?

[Nono40]

Etrange, nous utilisons LapLink et PCAnyWhere sans problèmes de ce genre depuis... Windows 3.11 et Delphi 1. Quel est donc celui que tu utilises ? As-tu le même problème sur tous les postes ?

[gord's]

VNC 3.3.6, WinNT sp6, D5

en fait, le probleme n'est pas systématique, mais il n'apparait que quand je lance depuis VNC (environ 1 fois sur 4), jamais quand je lance l'appli en local.

[Nono40]

Nous avons eu de temps en temps des problèmes assez bizarres avec les VNC, la plupart ont été résolus en réduisant les accélération matérielles graphiques ( Bureau->proproiétés->Paramètres->avancées->Peformances mettre le curseur vers "aucune" ).

[gord's]

merci Nono, je vais essayer ça.

Je passe en résolu, je ferai un nouveau thread si nécessaire

[Bennyouioui]

Salut Gord's

Dommage que je n'ai point vu ton message à temps !
Et oui, j'ai eu le même problème l'an dernier et comme ça m'a pris du temps avec un collègue de comprendre ce qui se passait, voici nos conclusions :

L'exception est reproductible mais pas systématique avec D5 et une version particulière de VNC (sais plus laquelle !)
En tout cas, VNC provoque l'erreur qui n'est pas contrôlée par D5 mais qu'il l'est par D6 et D7.

Corrolaire : pas de compatibilité, il faut compiler avec D6 ou D7

On a vu que l'exception de notre soft venait de ScreenToClient. On a ensuite remonté jusqu'a FindDragTarget, puis FindVCLWindow, et enfin FindControl.

Or dans le code Delphi, l'implémentation de FindControl change suivant les versions.
Et seul D5 (et VNC !) permettent de claquer l'exception.

Quand on regarde le code de FindControl et notamment les commentaires, on voit qu'il y a eut du changement...
J'ai posé la question directement au support mais pas de réponse...


Voici le code de FindControl en D5 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
{ Find a TWinControl given a window handle }
function FindControl(Handle: HWnd): TWinControl;
begin
  Result := nil;
  if (Handle <> 0) then
  begin
      Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom)))
  end;
end;

Code de FindControl en D6 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
{ Find a TWinControl given a window handle }
{ The global atom table is trashed when the user logs off.  The extra test
  below protects UI interactive services after the user logs off.  }
function FindControl(Handle: HWnd): TWinControl;
begin
  Result := nil;
  if (Handle <> 0) then
  begin
    if GlobalFindAtom(PChar(ControlAtomString)) = ControlAtom then
      Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom)))
    else
      Result := ObjectFromHWnd(Handle);
  end;
end;

Code de FindControl en D7 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
{ Find a TWinControl given a window handle }
{ The global atom table is trashed when the user logs off.  The extra test
  below protects UI interactive services after the user logs off.  
  Added additional tests to enure that Handle is at least within the same 
  process since otherwise a bogus result can occur due to problems with 
  GlobalFindAtom in Windows.  }
function FindControl(Handle: HWnd): TWinControl;
var
  OwningProcess: DWORD;
begin
  Result := nil;
  if (Handle <> 0) and (GetWindowThreadProcessID(Handle, OwningProcess) <> 0) and
     (OwningProcess = GetCurrentProcessId) then
  begin
    if GlobalFindAtom(PChar(ControlAtomString)) = ControlAtom then
      Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom)))
    else
      Result := ObjectFromHWnd(Handle);
  end;
end;

Voilà, j'espère que ça aura éclairé ta lenterne ! (mieux vaut tard que jamais)

[gord's]

merci Bennyouioui !!!
En fait, on n'en a plus besoin, mais ça fait toujours plaisir de comprendre, nous nous étions arraché les cheveux la dessus !