Leer strings de otra aplicacion

[ecfisa]

Empezado por cesarsoftware

Ooohhhh
He descargado y ejecutado tu aplicacion y ocurre lo mismo, R devuelve 0,eniff!!

¿Como va lo de obtener el objeto?

En eso estoy, en eso estoy ...

Pero hay un pequeño problema, no precisamente los nombres obtenidos se enmarcarán dentro de las definiciones de Delphi (Tedit, Tcombox, TMemo, etc) es por eso que te comenté lo de verificar si era un Edit Control.

Por ejemplo al obtener desde Mozilla Firefox (situado en este hilo), se tienen las clases MozillaWindowClass, GeckoPluginWindows y GeckoFPSandBoxChildWindow sobre las cuales yo .


Con el Bloc de notas



Saludos.

[cesarsoftware]

Gracias por seguir el tema.

La funcion
SendMessage(handle, WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));
No me rellena el buffer con el "texto" que tenga el control. (visto que si es un Tedit como el de notepad, entonces devuelve su texto, genial.)

pero si uso
SendMessage(handle, WM_SETFOCUS, SizeOf(Buffer), Integer(@Buffer));
(ya, ya se que aqui el buffer pinta poco, no se donde buscar los parametros para WM_SETFOCUS)
Da el foco perfectamente a cada control

Creo que sera un tema de delphi 2010 mas que de S.O., tengo que probar tu aplicacion en un xp

[cesarsoftware]

Un momento.....

Esto si funciona, con TBitBtn, con Edit, con ComboBox, con StatusBar...

Código Delphi [-]
  buffer := 'hola';
  SendMessage(handle, WM_SETTEXT, SizeOf(Buffer), Integer(@Buffer));

Pregunto, ¿Seguro que estan bien los parametros WParam y LParam para la funcion SendMessage con GETTEXT?
Porque entiendo que guindos coge un area de memoria sabiendo en LParam Integer(@Buffer) y su tamaño en WParam SizeOf(buffer)
SendMessage(handle, WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));

Voy a probar con PostMessage

[cesarsoftware]

Nada, con postmessage, tampoco.

Que poquito falta....

[[nlsgarcia]]

cesarsoftware,

Empezado por cesarsoftware

Creo que sera un tema de delphi 2010 mas que de S.O., tengo que probar tu aplicacion en un xp

Probe la aplicación de ecfisa en Windows 7 Professional x32, Windows 7 Professional x64 y Windows XP Professional x32 (Los últimos dos en Máquinas Virtuales) con las aplicaciones de Notepad y Calculator y funciono correctamente.

Nota: La aplicación la compile con Delphi 7 antes de probarla.

Espero sea útil

Nelson.

[cesarsoftware]

SOLUCIONADO.

Como no el problema lo tenia Delphi 2010, vamos digo yo, porque a mi no me funciona el codigo de eficsa, recordar que GetClassName me devuelve 0. ¿Usais Delphi 2010?

Es necesario y obligatorio preguntar cuanto va a ocupar el texto a leer y pedir que lea justo ese tamaño

Código Delphi [-]
procedure TFormMain.ListBox1Click(Sender: TObject);
var
  buffer: array[0..8192] of char;
  p: word;
  t: longint;
  handle: THandle;
  s: string;
begin
  s := ListBox1.Items[ListBox1.ItemIndex];
  p := Pos(' ' , s);
  s := Copy(s, 1, p - 1);
  handle := StrToIntDef(s, 0);
  if handle = 0 then
    Exit;
  // Obtener el tamaño del texto del control
  t := SendMessage(handle, WM_GETTEXTLENGTH, 0, 0);
  // Leer el texto del control
  SendMessage(handle, WM_GETTEXT, t + 1, Integer(@buffer));
  {
    si ponemos SizeOf(Buffer) o una constante distinta de t + 1 no funciona
    SendMessage(handle, WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));
  } 
end;

Espero que os sirva.
Gracias a todos
PD: podemos seguir hasta obtener el objeto y asi hacer con el lo que nos plazca ¿no?

[ecfisa]

Empezado por cesarsoftware

SOLUCIONADO.

Como no el problema lo tenia Delphi 2010, vamos digo yo, porque a mi no me funciona el codigo de eficsa, recordar que GetClassName me devuelve 0. ¿Usais Delphi 2010?

Es necesario y obligatorio preguntar cuanto va a ocupar el texto a leer y pedir que lea justo ese tamaño

Código Delphi [-]
procedure TFormMain.ListBox1Click(Sender: TObject);
var
  buffer: array[0..8192] of char;
  p: word;
  t: longint;
  handle: THandle;
  s: string;
begin
  s := ListBox1.Items[ListBox1.ItemIndex];
  p := Pos(' ' , s);
  s := Copy(s, 1, p - 1);
  handle := StrToIntDef(s, 0);
  if handle = 0 then
    Exit;
  // Obtener el tamaño del texto del control
  t := SendMessage(handle, WM_GETTEXTLENGTH, 0, 0);
  // Leer el texto del control
  SendMessage(handle, WM_GETTEXT, t + 1, Integer(@buffer));
  {
    si ponemos SizeOf(Buffer) o una constante distinta de t + 1 no funciona
    SendMessage(handle, WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));
  } 
end;

Hola cesarsoftware.

Primeramente me alegro de que hayas encontrado la solución al tamaño (lo tendré en cuenta cuando pueda usar otra versión de delphi).

Pero no entiendo por que estas obteniendo el handle del objeto a partir del texto del item del ComboBox/ListBox. El handle de cada objeto fué previamente guardado en el componente; entonces basta con:

Código Delphi [-]
procedure TfrBusca.ComboBox1Click(Sender: TObject);
var
  t: Longint;
  Buffer: array[0..8192] of char;
begin
  with ComboBox1 do
  begin
    t := SendMessage(TClassNfo(Items.Objects[ItemIndex]).Handle,
          WM_GETTEXTLENGTH, 0, 0);       // Obtener tamaño (para Delphi 2010)
    SendMessage(TClassNfo(Items.Objects[ItemIndex]).Handle,
      WM_GETTEXT,t+1, Integer(@buffer)); // obtener texto del objeto
    RichEdit1.Text:= Buffer;             // almacenar texto en RichEdit
  end;
end;

Saludos.