Trouver le nom d'un contrôle à partir de son handle ...

Bonjour,

Je cherche à récupérer le nom d'un contrôle à partir de son handle. Bien sûr le contrôle concerné se situe dans une autre application que je veux piloter depuis mon appli (sinon la propriété NAME aurait suffit). J'ai cherché dans les API de Windows mais je ne trouve pas. Il ne s'agit pas de GetWindowText qui renvoie soit le texte soit le caption, moi je cherche le nom donné au contrôle.

J'aussi cherché dans les topics suivants sans succès :
Obtenir le nom d'un bouton d'une application
http://www.delphifr.com/forum/sujet-OBTENIR-NOM-BOUTON-APPLICATION_1128135.aspx
Récupérer tous les handles d'une application choisie dans une liste
http://www.delphifr.com/forum/sujet-RECUPERER-TOUS-HANDLES-APPLICATION-CHOISIE-DANS-LISTE_714127.aspx
DelphiProg SVP : SOS fermer une application déja ouverte
http://www.delphifr.com/forum/sujet-DELPHIPROG-SVP-SOS-FERMER-APPLICATION-DEJA-OUVERTE_284243.aspx 

Pour vous aider à me répondre, je vous livre pourquoi je chercher le nom du contrôle (peut-être avez vous une autre solution)
j'arrive bien à lister les handles de tous les contrôles de l'appli à piloter, ainsi que le texte (ou caption), et la classe ... mais à chaque démarrage les handles changent, plusieurs contrôles sont de la même classe (boutons et textes) et plusieurs également n'ont pas de texte ... voilà, il m'est donc impossible d'être sûr d'avoir le bon handle ... Même l'ordre d'énumération n'est pas forcément le même !
A défaut de récupérer le nom, est-il possible de récupérer un autre élément invariable ? 

Je pense vraiment qu'il doit être possible de récupérer le nom, car dans un programme la propriété "NAME" peut  être utilisée, donc le fichier compilé "arrive bien à la donner :
s1:='Button1';    et    s2:=Button1.Name;
donnent le même résultat mais la compilation est foncièrement différente.
  

Merci d'avance ...   

Jean-Michel

bonsoir,
Pour vous aider à me répondre, je vous livre pourquoi je chercher le nom du contrôle 

Tu nous dis pas ce que tu cherche à faire...

cantador

Ah pardon : je cherche à piloter une application écrite en VB à partir d'une application Delphi.
L'application VB est une application imposée par mon entreprise pour renseigner manuellement une base de données sur le réseau (base à laquelle je n'ai accès que par cette appli VB). Mon application personelle en Delphi permet de générer de nombreuses données beaucoup plus rapidement qu'avec d'autres outils que nous utilisons (listing fichiers excel, papier). Le paradoxe c'est donc que le temps que je gagne à générer et organiser les données, je le perds à tout resaisir dans cette application VB peu ergonomique. Voilà il s'agit donc en fait de saisie assistée. J'ai déjà fait des essais pour accéder à des contrôles et ça marche, le seul problème dès que l'appli VB est redémarrée, ses handles ont changé ... je ne peux pas à chaque fois rechercher à tâtons quel contrôle se cache derrière chaque handle ... il y en a 200 !   
J'ai essayé de voir parmi tous les sujets traitant du pilotage d'une application par une autre, à priori, personne n'a abordé la possibilité d'un contrôle de même type et du même caption ... donc peut-être y a-t-il une autre façon d'identifier à coup sûr un contrôle donné, peut-être l'ID (je n'ai pas bien compris comment ça marche), mais je pensais à récupérer le nom qui est unique. 

Merci

Jean-Michel

En 2008, caribensila avait déjà déblayé le terrain par :
http://www.delphifr.com/codes/PRESSE-PAPIERS-CIE_28960.aspx

et j'ajouterai la méthode FindComponent :

La méthode FindComponent renvoie le composant de la propriété tableau Components dont le nom correspond à la chaîne spécifiée dans le paramètre AName. Cette méthode permet de savoir si un composant donné est possédé par un autre.
Les noms de composants ne sont pas sensibles à la casse.

C'est tout ce que j'ai pour l'instant..

Mais peut-être avais-tu déjà testé tout ça ?

cantador

Salut,

le presse papier et FindComponent ne sont pas de bonnes solutions pour ce problème. Pour pouvoir utiliser le presse papier il aurait fallu que l'application VB aie prévu le coup .... ce qui m'étonnerait.
Et pour FindComponent c'est propre à Delphi (Méthode interne)

moi je ferais tout simplement comme ça :
on a le Handle ... avec ça on peut récupérer la position du contrôle dans la fenêtre (GetWindowRect) et de ce fait on obtient une localisation par coordonnées.

et voilà problème résolu avec un minimum de code et de contraintes

 
@+
Cirec

Ah ben dis donc, vérifier les coordonnées et les avoir dans une table ... j'y avais pensé aussi, mais je me suis dit qu'il y avait une méthode plus ... enfin moins ... je vais donc faire cette méthode (en espérant qu'il n'y a pas deux contrôles absolument identiques : en effet, selon la saisie certains contrôles sont masqués). Je compte blinder cette reconnaissance par le handle parent (certains contrôles sont dans un Tab ou un Panel) ainsi je pense trouver une combinaison unique.
A noter (j'avais déjà essayé) : le GetWindowRect renvoie les coordonnées du contrôle par rapport à l'écran : il faut donc les rendre relatives par rapport au Top / Left de la form principale. Autre souci à règler encore : les contrôles invisibles au départ ont des coordonnées abérrantes (négatives), mais un truc du style :
  bVisible := isWindowVisible(hdl);
  ShowWindow(hdl,SW_SHOW);
  GetWindowRect(hdl,r);
  if not bVisible then ShowWindow(hdl,SW_HIDE);
Pour Cantador, effectivement, le copier-coller est séduisant, malheureusement je n'ai pas la main mise sur l'application VB "réceptrice", je compte donc adresser un à un les 200 contrôles (textes, listes de choix, boutons radio, cases à cocher et même un TDateTimePicker) par l'API SendMessagepour que la saisie  colle au résultat de mon appli Delphi. J'ai essayé avec Components[x].Name  ... mais cette fonction ne semble fonctionner que dans mon programme.
Je suis encore en train d'explorer PropEnumProc, GetProp, EnumProp ... mais pour l'instant ça ne marche que pour une propriété que je crée moi-même ... peut-être que je pourrais passer une procédure à l'appli VB ... en lui demandant de m'énumérer le nom et le handle de tous ses composants ...

Merci à vous deux,
Cirec pour l'instant je ne coche pas réponse acceptée pour susciter encore d'autres éventuelles réponses ... qui sait, peut être que quelqu'un a réussi ?      

Jean-Michel

@jnmchl:
combien y a t-il de tables et de formulaires dans ton application VB ?

cantador

Je rapelle que je ne suis pas l'auteur de cette application VB, je ne connais donc pas exactement sa structure. Mais cette application ne sert que d'interface de saisie et de contrôle de validité qui via le middelware Tuxedo attaque une base Oracle.
Dans le seul formulaire qui m'interesse il y  a 207 contrôles, mais je dois en adresser environ 75 qui contiennent des données non facultatives : des dates, des horaires, des textes, des cases à cocher, bref de tout ... Globalement, j'ai réussi via des SendMessage de les adresser mais c'est par des essais empiriques. C'est dire que de saisir un enregistrement est hyper fastidieux et chronophage d'autant qu'elle n'est vraiment pas ergonomique (avec tout le respect pour l'équipe qui l'a développé : je pense que le cahier de charge a dû être mal instruit). 

Je travaille suivant les conseils de Cirec, vu que c'est une idée que j'avais aussi (je vérifie d'abord l'absence de tout doublon) pour créer une table permettant à chaque fois de récupérer le handle correct. Mais je reste demandeur d'une fonction GetComponentNameFromHandle ...

Jean-Michel

Compte tenu des difficultés, je me demandais s'il n'était pas plus raisonnable d'envisager un développement d'une appli attaquant cette base Oracle d'autant qu'il existe des composants Delphi Oracle Direct qui fonctionnent très bien.
Ce qui permettrait d'éviter toutes ces acrobaties et peut-être au final gagner du temps..

cantador

Salut,

Un idée, comme ça... Je ne sais pas ce que ça vaut, mais je la donne quand même. On ne sait jamais.

« Mon application personelle en Delphi permet de générer de nombreuses données beaucoup plus rapidement »

Donc :

- Créer exactement la même interface que l'application VB dans ton application Delphi.
- Repérer les coordonnées générales de l'interface VB sur l'écran, par rapport à ton interface Delphi.
- De là, remplir l'interface VB par des simulations d'actions souris et clavier sur l'écran au fur et à mesure que ton application remplit son interface...

Une saisie assistée pseudo-mécaniquement, quoi... 

J'espère avoir été clair. 
« Ce qui se conçoit bien s'énonce clairement », mais je ne suis pas sûr d'être au top dans la concevision, sur ce coup.