Detectar tipo de componente en aplicación externa

[BrunoBsso]

Hola foro, qué tal?
Estuve googleando esto y buscando en los foros, pero ni siquiera encontré algo que se asemeje a lo que busco.
Tengo una aplicación que hace una carga automática de datos sobre una plataforma hecha en JavaScript + C#.Net + JSP + no sé qué otro lenguaje, todo en una página web. Yo supongo que está hecha en esos lenguajes y no tengo forma de comprobarlo.
Mi aplicación se basa en clickear algunos botones para abrir formularos, pegar texto con CopyPaste, settear el cursor sobre campos de texto y pegar otro texto, clickear OK, etc.
Todo eso lo hace correctamente, pero el problema está en que se hace a través de máquinas virtuales montadas en servidores con conexión por internet, así que cuando la conexión es un poco lenta tengo el problema de que no sé si cuando hice el proceso de "Posicionar cursor sobre campo de texto > Clickear" se haya hecho correctamente. Hice unos métodos que detectan si se abrió X ventana, si el cursor está posicionado donde debe y otras validaciones más. Pero no encuentro la forma de saber si tengo el "foco de Windows" sobre un campo de texto o no. ¿Se entiende? No tengo forma certera de saber si cuando hice "Posicionar cursor sobre campo DESCRIPTION > Hacer click" efectivamente se hizo el click y el foco está puesto sobre dicho campo de texto.
Mi duda es si habrá alguna forma, por más rebuscada que sea, de verificar que el "foco de Windows" (no sé si se dirá así, por eso las comillas) está posicionado sobre un campo de texto para decirle a mi aplicación "listo amigo, ahora podés escribir". Ojalá alguno tenga una idea loca que me lo solucione.

Cualquier duda sobre mi aplicación que les parezca necesaria para entender mejor me avisan.

Saludos y gracias a cualquiera que se vaya a quemar las neuronas un rato por mí jeje!!!
Y si a ninguno se le ocurre nada bueno, no pasa nada, no se empeora la situación

[[ElDioni]]

Hola, yo no se si entiendo lo que quieres hacer, puede que en este hilo encuentres un poco de luz.

http://www.clubdelphi.com/foros/showthread.php?t=26354

Saludos.

[BrunoBsso]

Empezado por ElDioni

Hola, yo no se si entiendo lo que quieres hacer, puede que en este hilo encuentres un poco de luz.

http://www.clubdelphi.com/foros/showthread.php?t=26354

Saludos.

Gracias ElDioni, pero lo que yo necesito es conocer el tipo de campo en una aplicación externa, y eso es para la aplicación propia.
El tema sería yo tengo mi aplicación A y además está abierta la aplicación B que no es mía.
Yo desde A hago que el cursor se posicione sobre un campo de texto en B, se hace doble click y por teoría el campo B.CampoDeTexto debe quedar seleccionado. La idea sería poder hacer A.IsCampoTexto(B.CampoFocuseado) para asegurarme que la ventana no se movió, que la velocidad de conexión no hizo que se "perdiera" el doble click y que el campo no se haya seleccionado, etc.
Voy a ver si encuentro alguna manera de hacer eso mediante el handle (que lo tengo).

Saludos.

[roman]

¿No te serviria usar GetFocus() para encontrar la ventana con el foco y luego GetClassName para encontrar el nombre de la clase de dicha ventana ?

// Saludos

[BrunoBsso]

Empezado por roman

¿No te serviria usar GetFocus() para encontrar la ventana con el foco y luego GetClassName para encontrar el nombre de la clase de dicha ventana ?

// Saludos

La ventana sé 100% que está focuseada, porque la abro yo programáticamente y además hice un método WaitUntilWindowOpen que me avisa cuando está abierta. Además, tengo el handle de la ventana siempre a mano. ¿Con GetClassName no obtendría solamente el nombre de la clase de la ventana? Yo necesito saber si el componente actual donde esté seteado el foco es un componente de texto o no.
La ventana que se abre tiene un campo tipo TEdit para "Nombre", un campo tipo TMemo para "Descripción", uno tipo TMemo para "Resultados" y tres botones. Yo sé que posiciono el cursor sobre el campo "Descripción" porque al hacer SetCursorPos(X,Y) uso otro método WaitUntilCursorPos(X, Y) para validarlo. Luego de eso simulo un doble click. El asunto es que no tengo un "WaitUntilTextAreaFocused", que eso sería lo que necesito. Al hacer el doble click (el campo ese de texto se activa con doble click) no tengo la certeza de que se hayan efectuado correctamente los 2 clicks, no tengo la certeza de que en esa ventana el foco esta seteado en ese componente.
Creo que no se entiende porque mientras lo escribo me parece que no puedo dejarlo claro jaja

Saludos.

[roman]

Un Edit también es una ventana. De hecho, todo TWinControl es una ventana, y sólo una ventana puede tener el foco. Entonces, si tienes un formulario con un Edit dentro y seleccionas éste, la ventana con el foco es el Edit, no el formulario.

Haz la prueba, poniendo este código en un SpeedButton (para que el clic en el botón no te mueva el foco):

Código Delphi [-]
var
  Buffer: array[Byte] of Char;

begin
  ZeroMemory(@Buffer, SizeOf(Buffer));
  GetClassName(GetFocus(), Buffer, 255);
  ShowMessage(Buffer);
end;

Verás que el nombre de lcase que obtienes es el del control seleccionado.

// Saludos

[BrunoBsso]

Hola. Espero que este mensaje no lo tomen como un mensaje basura. Vengo a avisar solamente que todavía no pude probar la solución de roman porque estoy tapado de trabajo. Solamente eso, así no piensan que solucioné mi problema sin explicar cómo.

Saludos!

[BrunoBsso]

Bueno, les comento que ya solucioné mi problema. Chau.



















Jajaja no me voy a ir así nomás

Lo solucioné con la ayuda de roman haciendo un leve cambio. En vez de utilizar GetFocus() usé una variable THandle y le asigné la ventana con GetForegroundWindow.
Les muestro precisamente cómo quedó y cómo funciona:

Código Delphi [-]
procedure TForm1.WaitUntilFieldFocused(sFieldName: String);
var
  Handle: THandle;
  Buffer: array[Byte] of Char;
begin
  Handle := GetForegroundWindow;
  Buffer := '';
  while (Buffer <> sFieldName) do
  begin
    ZeroMemory(@Buffer, SizeOf(Buffer));
    GetClassName(Handle, Buffer, 255);
    Sleep(250);
  end;
end;

Solamente recibe el nombre (que lo obtuve usando otra mini aplicación con GetClassName(Handle, Buffer, 255) y las mismas variables) y espera hasta que aparece focuseado, que por la lógica de mi aplicación es 100% seguro que va a estar focuseado aunque tarde mucho tiempo.
El procedimiento lee el nombre del TWinControl (agradecimiento enorme a roman por explicarme que todo componente es una ventana ) y lo compara con el nombre que le pedís que encuentre. Si no lo encuentra se pausa 0.0250 segundos y vuelve a mirar. Nada más, muy simple.

Muchas gracias a los que aportaron, a los que lo leyeron y no pudieron responder pero pensaron a ver si se les ocurría algo, a todos.

Si algún moderador pudiera editar el nombre del topic y ponerle al principio "[RESUELTO]" y cerrarlo sería grandioso y que quede como ejemplo

Saludos!!!!!!!!!!!!!!

[roman]

Pero tú código no puede funcionar tal como está. La obtención del Handle debe estar dentro del ciclo.

// Saludos

[BrunoBsso]

Empezado por roman

Pero tú código no puede funcionar tal como está. La obtención del Handle debe estar dentro del ciclo.

// Saludos

El código funciona tal como está. Handle := GetForegroundWindow; me devuelve el handle de una ventana que acabo de abrir. Después de abrir esa ventana hago doble click sobre el componente de texto. En ese momento tengo 100% asegurado que la ventana está abierta, focuseada y ontop, y que hice doble click en el componente de texto. Lo único que resta esperar es que se focusee ese campo de texto.
El handle lo agarro con GetForegroundWindow sí o sí, porque la ventana abierta y activa es la que tiene el componente.
No te preocupes, ya lo probé y funciona como debe.

Saludos.

[[escafandra]]

Concuerdo con roman al advertir que ese código tiene algo que llama la atención. Handle tiene el valor de la ventana que deseas siempre que le de tiempo a estar abierta en ese momento. Pero el código, tal como está me hace pensar que o bien el bucle sobra, o la obtención del Hanle debe realizarse dentro del mismo. Si la función pretende esperar a que el nombre de la clase del Handle obtenido sea el que esperas, entonces tu función debe ser modificada a algo como esto:

Código Delphi [-]
procedure TForm1.WaitUntilFieldFocused(sFieldName: String);
var
  Handle: THandle;
  Buffer: array[Byte] of Char;
begin
  Buffer := '';
  while (Buffer <> sFieldName) do
  begin
    Handle := GetForegroundWindow;
    ZeroMemory(@Buffer, SizeOf(Buffer));
    GetClassName(Handle, Buffer, 255);
    Sleep(250);
  end;
end;

Saludos.