Detectar tipo de componente en aplicación externa

[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.

[BrunoBsso]

Empezado por 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.

Escafandra, el bucle en esa función es solamente para darle tiempo al SO de mostrar bien la ventana dado que todo el proceso es a través de máquinas virtuales.
El handle, por otra parte, lo consigo correctamente y sin problemas porque justo antes de entrar en la función abro la ventana. No entiendo por qué les cuesta tanto creer que funciona perfectamente...

[[maeyanes]]

Hola...

Será que es por que si en ese preciso momento alguna otra ventana se coloca al frente (un popup de alguna otra aplicación), tu método puede recibir el handle de la ventana incorrecta y fallar.


Saludos...

[BrunoBsso]

Empezado por maeyanes

Hola...

Será que es por que si en ese preciso momento alguna otra ventana se coloca al frente (un popup de alguna otra aplicación), tu método puede recibir el handle de la ventana incorrecta y fallar.


Saludos...

Ese caso está contemplado en otra porción de código que detecta los pop-ups y los cierra, así que si aparece un pop-up la aplicación lo va a cerrar y el bucle va a seguir utilizando el handle de la ventana correspondiente. Se puede poner el Handle := GetForegroundWindow; dentro del bucle, pero no quise dar más instrucciones a un bucle que se ejecutará como máximo máximo (por la lentitud de las VM) 3 veces.

Igualmente, más allá de que los pop-ups están contemplados, la plataforma con la que trabaja la aplicación es OnTop y en ese preciso momento no tiene forma de devolver ningún pop-up. Es decir, los únicos pop-ups/raise que tira son en otras circunstancias, como por ejemplo al presionar botones.

[roman]

Empezado por BrunoBsso

No entiendo por qué les cuesta tanto creer que funciona perfectamente...

No es una cuestión de creer o no creer. Todas las vueltas de tu bucle se ejecutan con exactamente el mismo contexto. GetClassName obtendrá siempre el mismo valor, así que no tiene ningún caso estar calculándolo una y otra vez. Quizá lo que tenga algo que ver es el sleep, o simplemente el ligero tiempo que toma entrar al bucle, pero, desde luego, no la llamada reiterada a GetClassName.

Pero, en todo caso, si así te sirve, pues ¿quiénes somos nosotros para contradecirte?

// Saludos

[BrunoBsso]

Empezado por roman

No es una cuestión de creer o no creer. Todas las vueltas de tu bucle se ejecutan con exactamente el mismo contexto. GetClassName obtendrá siempre el mismo valor, así que no tiene ningún caso estar calculándolo una y otra vez. Quizá lo que tenga algo que ver es el sleep, o simplemente el ligero tiempo que toma entrar al bucle, pero, desde luego, no la llamada reiterada a GetClassName.

Pero, en todo caso, si así te sirve, pues ¿quiénes somos nosotros para contradecirte?

// Saludos

Exactamente lo que tiene que ver ahí es el Sleep(250) por el retardo que tienen las VM que uso. GetClassName debería devolver siempre el mismo valor, pero ese bucle es solamente una forma de asegurarse de que ya lo tiene focuseado. Al hacer doble click sobre el componente de texto (en el caso de un usuario interactuando con la plataforma) el componente tarda unos instantes en focusearse, por eso mi aplicación pone ese bucle que en definitiva solamente espera hasta que Buffer sea el nombre del componente que acabo de clickear.

[roman]

Empezado por BrunoBsso

por eso mi aplicación pone ese bucle que en definitiva solamente espera hasta que Buffer sea el nombre del componente que acabo de clickear.

Esto es lo que no es cierto. Tu programa está funcionando debido al sleep. El valor de Buffer es el mismo que obtienes desde que llamaste a GetForegroundWindow. Si, por alguna razón, Buffer no tuviera el valor que esperas, nunca lo obtendrá dentro del ciclo y éste jamás terminará.

Por otro lado, hay algo que no queda claro. Si tú tienes un formulario con un control de edición, GetForegroundWindow y GetFocus no devuelven lo mismo. El primero te devolverá el formulario y el segundo el control de edición.

Seguramente percibes que tu programa funciona bien, y me alegro por ello. Pero cuando algo funciona por las razones equivocadas, habría que poner atención en ello en lugar de obstinarse, pues en algún momento o circunstancia, te puede fallar.

// Saludos

[BrunoBsso]

Empezado por roman

Esto es lo que no es cierto. Tu programa está funcionando debido al sleep. El valor de Buffer es el mismo que obtienes desde que llamaste a GetForegroundWindow. Si, por alguna razón, Buffer no tuviera el valor que esperas, nunca lo obtendrá dentro del ciclo y éste jamás terminará.

Por otro lado, hay algo que no queda claro. Si tú tienes un formulario con un control de edición, GetForegroundWindow y GetFocus no devuelven lo mismo. El primero te devolverá el formulario y el segundo el control de edición.

Seguramente percibes que tu programa funciona bien, y me alegro por ello. Pero cuando algo funciona por las razones equivocadas, habría que poner atención en ello en lugar de obstinarse, pues en algún momento o circunstancia, te puede fallar.

// Saludos

Empecemos por no llamarme obstinado, no hay por qué.
Con el procedimiento WaitUntilFieldFocused intento poner un modo de asegurar que esté seleccionado el campo, nada más. Es muy probable que sea innecesario ese procedimiento, pero lo uso para asegurarme que ningún retraso o lag del SO interfiera con lo que hago.
GetForegroundWindow lo uso para obtener el handle de la ventana como varias veces dije. En ningún momento usé el GetFocus. El handle lo llamo desde ahí solamente para poder pasárselo al GetClassName, pero en todo momento sé cuál es el handle, antes y después del procedimiento.
Entonces, si GetClassName me pide un handle, guardo en una variable el handle de la ventana que abrí yo mismo. Como GetClassName me va a devolver el nombre del campo de texto, antes de llamar al procedimiento hago doble click en ese campo de texto. Teóricamente siempre que llame a WaitUntilFieldFocused voy a estar en ese campo de texto, por lo que teóricamente no es necesario. Pero repito que es pura y exclusivamente para asegurarme.

Remarco, dejá de llamar obstinados a las personas porque no hagan las cosas de la misma manera que vos lo harías. No podemos ser todos tan perfectos como vos.
Tu actitud me hace recordar un topic sobre los users que no aparecen más por el foro, y que la gran mayoría se fueron a otros foros. Tal vez debas rever tu actitud para con las personas.

Hasta acá llegaron mis ganas de usar este foro. Ya me encontré anteriormente con vos y otros users "sabiondos" que se ponen en posición absolutamente pedante y rebajan a los que preguntan. Eso no es un foro.

Suerte a todos.

FIN