Leer strings de otra aplicacion

[cesarsoftware]

Hola foreros, me gustaria poder leer las lineas escritas (y poder escribir) de un campo, creo que es richtext de otra aplicacion.
El motivo es que dicha aplicacion guarda los datos en formato binario y me parece que va a ser dificil interpretar esa informacion.
Y parece ser que tienen una aplicacion (que solo funciona en win95) que ya hace eso que ahora me piden a mi (para modernizarlo, jejeje)

Hasta ahora lo que he conseguido es:
1) Localizo las aplicaciones en ejecucion.

Código Delphi [-]
function EnumWinProc(Wnd: HWND; Param: pointer): boolean; stdcall; export;
var
  WinText: array[0..255] of char;
  pID: longword;
begin
  Result := True;
  // Obtenemos el Texto de la Ventana
  GetWindowText(Wnd, WinText, 255);
  if (WinText <> '')
  and (IsWindowVisible(Wnd))
  and (GetWindow(Wnd, gw_Owner) = 0)
  then
  begin
    GetWindowThreadProcessId(Wnd, pID);
    FormMain.Memo1.Lines.Add(IntToStr(pID) + ' ' + WinText);
    FormMain.Memo1.Lines.Add(StringOfChar('-', 80));
    ListWinInfoFromPId(pID, FormMain.Memo1.Lines);  // este es el paso 2
  end;
end;

2) Localizo las ventanas de cada aplicacion.

Código Delphi [-]
procedure ListWinInfoFromPId(PId: DWORD; strings: TStrings);
type
  TWinParam = record
    PId: DWORD;
    S: TStrings;
  end;
  PWinParam = ^TWinParam;
var
  WinParam: TWinParam;

  function EnumWindowsProc(Handle: Thandle; lParam: LPARAM): boolean; stdcall;
  var
    PId: DWORD;
    buffer: array [1..255] of char;
  begin
    Result := true;
    PId := 0;
    GetWindowThreadProcessId(Handle, PId);
    if PWinParam(lParam).PId = PId then
    begin
      PWinParam(lParam).S.Add('hWnd: ' + IntToHex(Handle, 8)+'h');
      GetWindowText(Handle, @buffer, 255);
      PWinParam(lParam).S.Add('Caption: ' + buffer);
      GetClassName(Handle, @buffer, 255);
      PWinParam(lParam).S.Add('Clase: ' + buffer);
      PWinParam(lParam).S.Add('--------------------');
      Result := true;
    end;
  end;

begin
  WinParam.PId:= PId;
  WinParam.S:= strings;
  EnumWindows(@EnumWindowsProc, LPARAM(@WinParam));
end;

3) Localizar los controles de cada ventana, aqui es donde necesito ayuda
Para obtener los controles de nuestra aplicacion uso

Código Delphi [-]
  for i := 0 to (ComponentCount - 1) do
  begin
    if Components[i] is TWinControl then
    begin
      if (Components[i] is TEdit)
      or (Components[i] is TMaskEdit)
      or (Components[i] is TCheckBox) then
      begin
        Memo1.Lines.Add(Components[i].Name);
        TFormMain(Components[i]).OnEnter := nil;
        TFormMain(Components[i]).OnExit := nil;
      end;
    end;
  end;

¿Como podria obtener los controles de cada ventana? he buscado por todas parte y no encuentro la funcion, y se que deberia existir.

El cuarto paso seria crear una thread que vigile dicho control y cuando entren nuevas lineas, las capturo e interpreto.
El quinto paso serie escribir en ese mismo control ciertas lineas que son necesarias.

Alguna ayudita, please.

[[nlsgarcia]]

cesarsoftware,

Revisa este link:

Llamar una aplicación y ejecutar acciones: http://www.clubdelphi.com/foros/showthread.php?t=81589

Espero sea útil

Nelson.

[ecfisa]

Hola sesarsoftware.

Otra opción, agrega un Edit, un ComboBox, tres Buttons dentro de un Panel, debajo un RichEdit y proba este ejemplo:

Código Delphi [-]
unit Unit1;

interface 

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, XPMan, ExtCtrls;

type
  TfrBusca = class(TForm)
    RichEdit1: TRichEdit;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    btnSearchApp: TButton;
    Label2: TLabel;
    ComboBox1: TComboBox;
    btnAppToRE: TButton;
    btnREToApp: TButton;
    procedure btnSearchAppClick(Sender: TObject);
    procedure btnAppToREClick(Sender: TObject);
    procedure btnREToAppClick(Sender: TObject);
  private

  public
    { Public declarations }
  end;

var
  frBusca: TfrBusca;

implementation {$R *.dfm} {$WARNINGS OFF}

type
  TClassNfo = class(TObject)
    Name: string;
    Handle: HWND;
  end;

(* Agregar nombre de clases al ComboBox *)
function CallbackFn(aHandle: HWND; LB: TListBox): LongBool; stdcall;
var
  Buffer: array[0..255] of Char;
  CN: TClassNfo;
begin
  Result := True;
  if GetClassName(aHandle, Buffer, 256) <> 0 then
  begin
    CN := TClassNfo.Create;
    CN.Name   := Buffer;
    CN.Handle := aHandle;
    LB.AddItem(CN.Name, TClassNfo(CN));
  end;
end;

(* Buscar controles en la aplicacion *)
procedure TfrBusca.btnSearchAppClick(Sender: TObject);
var
  H: HWND;
begin
  ComboBox1.Clear;
  H := FindWindow(nil, PChar(Edit1.Text));
  if H <> 0 then
    EnumChildWindows(H, @CallbackFn, LPARAM(ComboBox1));
end;

(* Texto del control de la aplicación al RichEdit *)
procedure TfrBusca.btnAppToREClick(Sender: TObject);
var
  Buffer: array[0..8192] of Char; 
  R     : Integer;
begin
  with ComboBox1 do
  begin
    repeat
      R:= GetClassName(TClassNfo(Items.Objects[ItemIndex]).Handle,
          Buffer, SizeOf(Buffer));
      SendMessage(TClassNfo(Items.Objects[ItemIndex]).Handle,
        WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));
     RichEdit1.Text:= Buffer;
    until (Buffer = Items[ItemIndex])or(R <> 0);
  end;
  if R > 0 then
   RichEdit1.Text:= Buffer;
end;

(* Texto del RichEdit a control de la aplicación *)
procedure TfrBusca.btnREToAppClick(Sender: TObject);
var
  Buffer: array[0..8192] of Char;
  R     : Integer;
begin
  with ComboBox1 do
  begin
    repeat
      R:= GetClassName(TClassNfo(Items.Objects[ItemIndex]).Handle,
          Buffer, SizeOf(Buffer));
      if Buffer = Items[ItemIndex] then
      begin
        StrPCopy(Buffer,RichEdit1.Text);
        SendMessage(TClassNfo(Items.Objects[ItemIndex]).Handle,
          WM_SETTEXT, SizeOf(Buffer), Integer(@Buffer));
      end;
    until (Buffer = Items[ItemIndex])or(R <> 0);
  end;
end;
end.

Si no sabes que clases puede contener la aplicación, quizá te interese comprobar en la función CallbackFn si el control es un Edit Control

Código Delphi [-]
...
  if GetClassName(aHandle, Buffer, 256) <> 0 then
  begin
    if Buffer = 'Edit' then   // <= Aqui
    begin
      CN := TClassNfo.Create;
      CN.Name   := Buffer;
      CN.Handle := aHandle;
      LB.AddItem(CN.Name, TClassNfo(CN))
    end
...

Logicamente es fundamental escribir en el edit textualmente el título de la ventana cuyo handle queremos obtener. También habrá controles de los cuales no podamos recibir o enviar texto alguno.

Saludos.

[cesarsoftware]

Gracias ecfisa, tiene buena pinta, ahora me pongo a probar esta tecnica.

Un saludo.

[cesarsoftware]

Hola ecfisa.
Muy bien para localizar los controles, estaria bien obtener sus nombres ademas del THandle.

Pero...no me va el leer texto con TfrBusca.btnAppToREClick(Sender: TObject);

Código Delphi [-]
    repeat
      R:= GetClassName(TClassNfo(Items.Objects[ItemIndex]).Handle,
          Buffer, SizeOf(Buffer));
      SendMessage(TClassNfo(Items.Objects[ItemIndex]).Handle,
        WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));
     RichEdit1.Text:= Buffer;
    until (Buffer = Items[ItemIndex])or(R <> 0);

R siempre devuelve 0 (cero) y se queda en el repeat; tambien pasa en la funcion TfrBusca.btnREToAppClick(Sender: TObject);

Lo he hecho de otra forma (mas simple) y me mete en un listbox, la aplicacion(proceso), sus formularios y sus respectivos controles
Añadir un listbox y un richedit

Código Delphi [-]
// Obtener todos los formularios y sus controles de un proceso
procedure ListWinInfoFromPId(PId: longword; strings: TStrings);
type
  TWinParam = record
    PId: longword;
    S: TStrings;
  end;
  PWinParam = ^TWinParam;
var
  WinParam: TWinParam;

  // Obtener los controles
  function CallbackFn(handle: Thandle; strings: TStrings): longbool; stdcall;
  var
    buffer: array[0..255] of char;
  begin
    Result := True;
    if GetClassName(handle, buffer, 256) <> 0 then
      // if buffer = 'TComboBox' then
      strings.Add(IntToStr(handle) + ' ' + buffer);
  end;

  // Obtener los formularios
  function EnumWindowsProc(handle: Thandle; lPar: LPARAM): boolean; stdcall;
  var
    PId: longword;
    buffer: array [0..255] of char;
  begin
    Result := True;
    PId := 0;
    // Comprobamos que sean de esa PId, sino se obtiene la lista desordenada
    GetWindowThreadProcessId(handle, PId);
    if PWinParam(lPar).PId = PId then
    begin
      PWinParam(lPar).S.Add('hWnd: ' + IntToHex(handle, 8) + 'h');
      GetWindowText(handle, @buffer, 255);
      PWinParam(lPar).S.Add('Caption: ' + buffer);
      GetClassName(handle, @buffer, 255);
      PWinParam(lPar).S.Add('Clase: ' + buffer);
      // Obtenemos todos los controles del formulario ¡Solo si los ha mostrado!
      EnumChildWindows(handle, @CallbackFn, LPARAM(PWinParam(lPar).S));
      PWinParam(lPar).S.Add(StringOfChar('-', 40));
    end;
  end;

begin
  WinParam.PId := PId;
  WinParam.S := strings;
  // Obtener todos los formularios de un proceso
  EnumWindows(@EnumWindowsProc, LPARAM(@WinParam));
end;

// Obtener todos los procesos activos
function EnumWinProc(handle: Thandle; param: pointer): boolean; stdcall; export;
var
  nombre: array[0..255] of char;
  PId: longword;
begin
  Result := True;
  // Obtenemos el nombre del proceso
  GetWindowText(handle, nombre, 255);
  if (nombre <> '')
  and (IsWindowVisible(handle))
  and (GetWindow(handle, gw_Owner) = 0)
  then
  begin
    GetWindowThreadProcessId(handle, PId);
    FormMain.ListBox1.Items.Add(IntToStr(PId) + ' ' + nombre);
    FormMain.ListBox1.Items.Add(StringOfChar('-', 80));
    // Obtenemos los formularios y los campos del proceso
    ListWinInfoFromPId(PId, FormMain.ListBox1.Items);
  end;
end;

y apara usarlo

Código Delphi [-]
procedure TFormMain.Create(Sender: TObject);
  // Obtener todos los controles de todos los formularios de todos los procesos
  EnumWindows(@EnumWinProc, LongInt(Self));
end;

procedure TFormMain.ListBox1Click(Sender: TObject);
var
  buffer: array[0..8192] of Char;
  p: integer;
  handle: HWND;
  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;
  // r := GetClassName(handle, Buffer, SizeOf(Buffer)); // siempre devuelve 0
  SendMessage(handle, WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));
  RichEdit1.Text := Buffer; // buffer nunca tiene el texto de ningun control
end;

Teniendo el handle del control ¿Como podemos obtener su clase, Tedit, Tcombox, etc, si no me funciona GetClassName? Uso Delphi 2010 y windows 7 64.

¿Se te ocurre algo?

Gracias

Edito: Lo mejor seria obtener el objeto ¿Se puede? asi seria mas facil, se podria usar richedit1.text := Trichedit(TObject).Text

[ecfisa]

Hola cesarsoftware.

Pero...no me va el leer texto con TfrBusca.btnAppToREClick(Sender: TObject);
...
R siempre devuelve 0 (cero) y se queda en el repeat; tambien pasa en la funcion TfrBusca.btnREToAppClick(Sender: TObject);

No me sucede lo mismo, en mi caso funciona bién, pero no estoy usando un S.O. de 64 bits, tal vez sea ese el motivo. Por las dudas te adjunto mi prueba.

Teniendo el handle del control ¿Como podemos obtener su clase, Tedit, Tcombox, etc, si no me funciona GetClassName? Uso Delphi 2010 y windows 7 64.
...
¿Se te ocurre algo?
Edito: Lo mejor seria obtener el objeto ¿Se puede? asi seria mas facil, se podria usar richedit1.text := Trichedit(TObject).Text

Luego voy a revisarlo, te aviso cualquier novedad.

Saludos.

[cesarsoftware]

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

¿Como va lo de obtener el objeto?

[cesarsoftware]

Empezado por nlsgarcia

cesarsoftware,

Revisa este link:


Espero sea útil

Nelson.

Primero Gracias por ayudar.
Ya lo revise, pero ese ejemplo es para cuando se programan las dos aplicaciones, en mi caso una de ellas ya existe (es un CAD) y vaya usted a saber en que lenguaje esta hecha.