Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-04-2022
asoto92 asoto92 is offline
Miembro
 
Registrado: feb 2008
Posts: 13
Poder: 0
asoto92 Va por buen camino
Problema con evento NavigationCompleted de EdgeBrowse

Buenas noches a todos, voy a tratar de ser lo mas preciso, realize un navegador con EdgeBrowse en Delphi 10.4 Community.
Despliega la pagina que deseo, hasta aqui ok.
Mediante codigo asigno el usuario a la pagina, hasta aqui ok, muestro codigo:

Código Delphi [-]
     cadUsuario   := 'document.getElementById("i0116").value = "' + sUsuario + '";';
     cadPassword  := 'document.getElementById("i0118").value = "' + sPassword + '";';
     cadBotAceptar := 'document.getElementById("idSIButton9").click();';

     EdgeBrowser.ExecuteScript(
        ' while (1 == 1)  {' + #13#10 +
        '    var v = document.getElementById("i0116"); ' + #13#10 +
        '    if (v !== null){ ' + #13#10 +
                cadUsuario  + #13#10 +
        '       sleep(5000); ' + #13#10 +
                cadBotAcptar  + #13#10 +
        '       break; ' + #13#10 +
        '    } ' + #13#10 +
        '    else { ' + #13#10 +
        '       break; ' + #13#10 +
        '    } ' + #13#10 +
        ' }'
        );

Al ejecutar el cadBotAceptar que es el que hace el click en el boton de Aceptar, el sitio muestra el mensaje de que "Introdusca un usuario Valido etc etc. (este es el Error).

Es como si aun no cargara completamente la pagina y el click al boton de Aceptar se diera antes de introducir el Usuario. De echo me he dado cuenta que aun no ha desplegado completamente la pagina, segun yo. Y se me hace extraño por que el codigo mostrado anteriormente lo ubico en el Evento NavigationCompleted :

procedure TfrmMain.EdgeBrowserNavigationCompleted(Sender: TCustomEdgeBrowser; IsSuccess: Boolean;
WebErrorStatus: TOleEnum);

El evento antes mencionado se supone que se ejecuta cuando la pagina Web se termino de desplegar, bueno asi lo entendi.


Si yo ejecuto el proceso de forma manual, escribo el usuario, hago click en el boton de aceptar, me despliega la pantalla para que capture el Password, todo bien.

Todo esto es por que la empresa no desea que los usuarios tecleen el Usuario y el Password, si no que lo haga el programa de forma automatica y les de acceso al sitio web.

De antemano muchisimas gracias.

Última edición por dec fecha: 22-04-2022 a las 13:06:22. Razón: Poner etiquetas DELPHI
Responder Con Cita
  #2  
Antiguo 22-04-2022
Garada Garada is offline
Miembro
 
Registrado: jul 2004
Posts: 66
Poder: 20
Garada Va por buen camino
Depende del código de la web.
Muchas controlan si un campo es correcto al modificarlo no justo antes de enviar.

Tienes que forzar el evento con javascript después de asignarles el valor, por ejemplo:

Código:
ev = d.createEvent("Events");
ev.initEvent("input", true, true);

ee = e.getElementById("i0116");
ee.value = "aaaaaa";
ee.dispatchEvent(ev);

ee = e.getElementById("i0118");
ee.value = "ppppp";
ee.dispatchEvent(ev);
El evento "input" es el mas usado pero si miras el elemento en las utilidades de desarrollador del navegador puedes ver los eventos asignados al campo.
Imágenes Adjuntas
Tipo de Archivo: jpg Sin título.jpg (39,5 KB, 4 visitas)
Responder Con Cita
  #3  
Antiguo 26-04-2022
asoto92 asoto92 is offline
Miembro
 
Registrado: feb 2008
Posts: 13
Poder: 0
asoto92 Va por buen camino
Problema con evento NavigationCompleted de EdgeBrowse

Te agradezco mucho tu ayuda, me sirvio ya logre que el programa diera el Usuario y Password de forma Automatica sin intervencion del Usuario.

Disculpa la tardanza en la respuesta, pero es que estaba codificando y me emocione.

Muchisimas gracias.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema con evento resize Kiranov Varios 1 02-03-2015 23:32:45
Problema con evento oncloseup snowlis Varios 7 25-04-2007 01:42:37
Problema con Delete en el evento OnKeyDown Durbed Varios 5 12-01-2007 15:54:29
Problema con evento AfterEdit de una grilla cybergerman OOP 0 14-07-2006 18:10:13
Problema con evento onNewRecord novaten Conexión con bases de datos 5 14-04-2005 23:07:04


La franja horaria es GMT +2. Ahora son las 03:46:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi