manipular web usando edgebrowser

[asoto92]

Hola a todos, necesito manipular una sitio web, introduciendo el Usuario y Password, el navegador que uso es el EdgeBrowser, estoy trabajando con Delphi 10.4 Community, mi browser es funcional, ya puedo ver la pagina Web, pero no se como introducir el Usuario y el Password en la web. Es la primera vez que trabajo con este browser (EdgeBrowser), ojala tengan una idea de como introducir los datos.

De antemano muchas gracias por su ayuda.

[dec]

Hola a todos,

Una posibilidad podría ser utilizar el método "ExecuteScript" de los objetos "TEdgeBrowser". Por ejemplo, en el evento "BrowserNavigationCompleted" podrías hacer uso del método en cuestión de una forma similar a la siguiente:

Código Delphi [-]
  EdgeBrowser.ExecuteScript('document.getElementById("name").value = "Pepe";');
  EdgeBrowser.ExecuteScript('document.getElementById("email").value = "pepe@gmail.com";');
  EdgeBrowser.ExecuteScript('document.getElementById("submit").click();');

[asoto92]

Hola Dec, gracias por tu pronta respuesta, deme oportunidad de hacer algunas pruebas con lo que me proporcionaste y te comento a la brevedad lo que me resulte.

Hasta pronto.

[asoto92]

Disculpa la tardanza, estoy intentando probar tu codigo de ejemplo, pero creo que me faltan cosas, por lo que entiendo cada linea de codigo que me indicaste es una especie de script que se ejecuta en el procedimiento:

Código Delphi [-]
procedure TfrmMain.EdgeBrowserExecuteScript(Sender: TCustomEdgeBrowser; AResult: HResult;
  const AResultObjectAsJson: string);

Ahora estoy poniendo el comando que me indicaste en:

Código Delphi [-]
   procedure TfrmMain.EdgeBrowserNavigationCompleted(Sender: TCustomEdgeBrowser; IsSuccess: Boolean;
     WebErrorStatus: TOleEnum);
   begin
      EdgeBrowser.ExecuteScript('document.getElementById("USUARIO").value = "pepe@gmail.com";');
   end;

Y al ejecutarse aparece: (anexe imagen) pero lo que aparece es:

The script has completed:
Result = $0
ResultObject = null

No se interpretarlo, pero entiendo que al parecer corrio bien el Script, pero en mi pagina no alimento el espacio para el usuario, no se que mas este faltando?

Saludos.

[dec]

Hola a todos,

El método que indicas "EdgeBrowserExecuteScript" es un evento, que, en realidad puedes usar o no, dependiendo de tus necesidades. Esto lo digo poque, el mensaje / alerta que te aparece, no tiene porqué aparecerte, si no lo necesitas.

Por otro lado, el método "EdgeBrowser.ExecuteScript" se llama en "EdgeBrowserNavigationCompleted" porque, en ese momento, en principio, es cuando podemos acceder a los diferentes elementos HTML que existan en la página en cuestión.

El método "EdgeBrowser.ExecuteScript" requiere de un parámetro de tipo "string" y esta "cadena" debe indicar el código Javascript que queremos que se ejecute en el contexto de la página cargada en el navegador.

El método "document.getElementById" es por tanto código Javascript, y, en este caso, buscará un elemento a partir de su ID. De modo que el siguiente código:

document.getElementById("USUARIO").value = 'Pepe';

... viene a significar "Busca el elemento con ID = "USUARIO", y, cambia su propiedad "value" con "Pepe". Si este código no funciona, en principio, es porque no existe ningún elemento con ID = "USUARIO", o, dicho elemento, no tiene ninguna propiedad "value".

Es decir, en la página en cuestión, debería haber un elemento como el siguiente, para que el código Javascript anterior funcionase como se espera que lo haga:

<input id="USUARIO" />

Por tanto, deberás echar un vistazo al código fuente de la página, y, ver qué elemento alberga el usuario, cuál es su ID, o, si no tiene ID, cuál es su atributo "name", en definitiva, para saber qué código Javascript es necesario utilizar para hacer lo que quieres.

[asoto92]

Me ayudo mucho tu guia, no sabes como te lo agradezo, ya pude afectar el sitio web con el dato del Usuario y Password.

Muchismas Gracias