Discussion :

[yannfrance]

Bonjour à vous,

Bon, j'ai 1 questions de débutant que je n'arrive pas à resoudre:

Code :

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

1
2
var PseudoList
PseudoList:= SendMessage(o, WM_GETTEXT,0, 0);

o, c'est le handle du composant de mon appli externe...bref

Là, le compilo (delphi6) me dit [Erreur] Unit1.pas(82): Types incompatibles : 'String' et 'Integer'
ça, je n'arrive pas à le résoudre, honte à moi

[Cl@udius]

Bonjour

Je vois déjà une erreur dans l'utilisation de WM_GETTEXT puisque wParam est égal à 0. wParam doit définir le nombre de caractères maximum renvoyés.

Et ensuite en supposant que PseudoList est de type string, cela expliquerait ton erreur de compilation puisque SendMessage renvoie un Integer.

Regarde de plus près l'aide sur WM_GETTEXT, et en faisant une recherche sur le forum tu devrais trouver plusieurs exemples d'utilisation.

@+ Claudius

[zemeilleurofgreg]

De quel type est PseudoList ?
De quel type est la valeur de retour de SendMessage ?

si SendMessage renvoie un integer et que PseudoList est un string, tu peux soit changer le type de PseudoList en integer :

Code :

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

var PseudoList : integer;

soit transtyper

Code :

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

strtoint (sendMessage(....));

[edam]

Code :

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

1
2
3
4
5
6
 
var  s:string;
begin
       setlength(s,200);
       sendmessage(o,wm_gettext,s[1],length(s)-1)
end;

bon dev

[yannfrance]

Bonjour,
Merci pour vos reponses.
J'ai essayer ton code edam , mais delphi me met type incompatible à la compilation.

J'ai essayer de transtyper aussi, mais le résultat n'est pas celui attendu.
Peut-être, çe que je veut faire n'est pas compatible.

Je souhaite récuperer le contenu (du texte) d'un composant ATL d'une application externe puis le rapporter dans une ListBox de mon application delphi.
Le résultat est 0 à chaque fois, je n'ai rien, aucun texte...

[shell13010]

je pense qu'il faut que tu regardes si tu as pas fait d'erreur au niveau de l'handle

[yannfrance]

je pense qu'il faut que tu regardes si tu as pas fait d'erreur au niveau de l'handle

Non, aucune erreur au niveau de l'handle.
Bon, c'est pas grave pour le moment.

En revanche, j'ai une autre petite question, je vous emunere mon problème.

Je récupère le handle d'une fenêtre, à l'interieur, il y'as des composants.
Je veut récuperer les handles un par un pour les inclure dans un tableau.
Le problème, c'est que quand je passe un coup de getWindow(handle, GW_CHILD); Et bien je me tape un handle qui n'est pas visible
Comment faire pour que je récupère QUE les handles visible.

Exemple:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, e, f, g, h, i, j, k, l, m, n, o: integer;
begin
  a:= FindWindow('#32770','Titre de ma fenetre'); //
      Label1.Caption := IntToHex(a, 8);
 
b:= GetWindow(a, GW_CHILD);
      Label2.Caption := IntToHex(b, 8);

Ma variante b récupère un handle non visible, et moi, je souhaiterais que ce soit le child visible dans cette variante.
(Ne me dite pas de faire un findwindowex, je ne peut absolument pas récuperer par la classe, donc oublions cela.)
J'ai télécharger une source qui se sert, je crois de isWindowVisible
Mais, si vous avez des infos à ce sujet, je suis preneur.
Merci beaucoup.

[Cl@udius]

Salut

Un petit exemple simple d'utilisation: une TForm avec un TEdit, une TListBox et un TButton:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  L: Integer;
  S: string;
begin
  // Longueur de la chaine du TEdit
  L := SendMessage(Edit1.Handle, WM_GETTEXTLENGTH, 0, 0);
  // Définir la longueur de la chaine
  SetLength(S, L);
  // Lecture et assignation du text à la chaine
  // Nota: L + 1 pour réserver une place au zéro terminal #0
  SendMessage(Edit1.Handle, WM_GETTEXT, L + 1, LParam(PChar(S)));
  // Ajout du résultat dans la ListBox
  ListBox1.Items.Add(S);
end;

@+ Claudius

[edam]

désoler:

Code :

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

1
2
3
4
5
var  s:string;
begin
       setlength(s,200);
       sendmessage(o,wm_gettext,length(s)-1,@s[1])
end;

bien sûr avec le code clodios, tu récupére la taille du buffer avant de le spécifier à une string

An application sends a WM_GETTEXT message to copy the text that corresponds to a window into a buffer provided by the caller.

WM_GETTEXT
wParam = (WPARAM) cchTextMax; // number of characters to copy
lParam = (LPARAM) lpszText; // address of buffer for text

[Yurck]

Non, aucune erreur au niveau de l'handle.
Bon, c'est pas grave pour le moment.

Exemple:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, e, f, g, h, i, j, k, l, m, n, o: integer;
begin
  a:= FindWindow('#32770','Titre de ma fenetre'); //
      Label1.Caption := IntToHex(a, 8);
  
b:= GetWindow(a, GW_CHILD);
      Label2.Caption := IntToHex(b, 8);

Es tu vraiment si sur qu'il ne s'agit pas d'une erreur de Handle ?

Pascal
THandle = LongWord;

Pourquoi ne pas faire :

Code :

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

1
2
3
4
5
6
7

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, e, f, g, h, i, j, k, l, m, n, o:    THandle;
begin
  a:= FindWindow('#32770','Titre de ma fenetre'); //
  ....

[yannfrance]

Bonjour,

Merci ça fonctionne.

Sinon, pour rechercher un handle enfant visible uniquement, comment dois-je procéder.

Car ce code me donne dans la variable b, un handle non Visible.
Je ne souhaite pas passer par FindWindowEx.
Comme dit plus haut, j'ai vu avec IsWindowVisible, mais je ne vois pas comment l'introduire à ma source.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, e, f, g, h, i, j, k, l, m, n, o: integer;
begin
  a:= FindWindow('#32770','Titre de ma fenetre'); //
      Label1.Caption := IntToHex(a, 8);
 
b:= GetWindow(a, GW_CHILD);
      Label2.Caption := IntToHex(b, 8);

Voila, je souhaiterais obtenir le premier enfant VISIBLE de ma fenêtre.

merci beaucoup.

[yannfrance]

Bonsoir,

C'est bon j'ai trouver.

Merci Cl@udius pour ton code, il fonctionne à merveille.
Cepandant, il me reste une dernière chose à peaufiner.
Je récupère le texte, mais je souhaiterais retirer la derniere lettre lorsque je recupere le texte.
Il me reste plus que celà. le resultat moins une lettre à la fin.

Réedition,

C'est bon, j'ai trouver, j'ai modifier ceci :

Code :

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

SendMessage(Edit1.Handle, WM_GETTEXT, L + 1, LParam(PChar(S)));

en

Code :

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

SendMessage(Edit1.Handle, WM_GETTEXT, L - 1, LParam(PChar(S)));

Merci, sujet résolue.