Integer et string.

Version imprimable

15/03/2009, 16h42
yannfrance

Integer et string.
Bonjour à vous,

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

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 :oops:
15/03/2009, 17h10
Cl@udius

Bonjour

Je vois déjà une erreur dans l'utilisation de WM_GETTEXT puisque wParam est égal à 0. :aie: 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
16/03/2009, 12h17
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:

var PseudoList : integer;

soit transtyper

Code:

strtoint (sendMessage(....));

Code:

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:aie:

16/03/2009, 16h03
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...:aie:
16/03/2009, 16h09
shell13010

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

Citation:

Envoyé par shell13010

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

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 :aie:
Comment faire pour que je récupère QUE les handles visible.

Exemple:
Code:

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.

Salut

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

Code:

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

17/03/2009, 10h55
edam
désoler:oops::
Code:

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 :aie:

Citation:

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

Citation:
Envoyé par yannfrance
Non, aucune erreur au niveau de l'handle.
Bon, c'est pas grave pour le moment.

Exemple:
Code:

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:

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'); // ....

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:

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.

18/03/2009, 19h55
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:

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

en

Code:

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

Merci, sujet résolue.