FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Componentes de una web
Que tal Comunidad. Lo que necesitaria que me ayuden es en este problema:
Necesito obtener informacion de los componentes de una web que se carga en un WebBrowser para luego hacer por ejemplo clicks en botones de la web sin necesidad de mover el mouse (ejemplo con SetCursorPos). Es decir que se apreten botones de una web cargada en un webbrowser teniendo el form minimizado. Muchas gracias . Última edición por kdemia fecha: 03-08-2010 a las 02:26:34. |
#2
|
||||
|
||||
Creo que tilizando las Indy puedes "interactuar" con la página web. Realiza una búsqueda en los foros, es un tema que ya se ha tratado.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Hola, mira yo eso lo hago de esta manera, a ver si te sirve:
1º: Cargas la pagina. Código:
WebBrowser1.Navigate('http://www.xxx.com'); Código:
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); var currentBrowser: IWebBrowser; topBrowser: IWebBrowser; Doc: IHTMLDocument3; Inputs: IHTMLElementCollection; UID, LGN: IHTMLElement; begin currentBrowser := pDisp as IWebBrowser; topBrowser := (ASender as TWebBrowser).DefaultInterface; if currentBrowser = topBrowser then begin ///vamos a colocar un usuario y una contraseña y darle al boton de entrar ////buscamos usuario////// Doc := WebBrowser1.Document as IHTMLDocument3; Inputs := Doc.getElementsByName('username');//username cambialo por el nombre del input de donde va el usuario UID := Inputs.item(0, '') as IHTMLElement; if UID <> nil then //si lo encuentra le escribimos el usuario (UID as IHTMLInputElement).value := 'pepitoperez'; if UID = nil then ShowMessage('No se encuentra uername');// si no lo encuentra... ///////la contraseña es igual//////////////////// Inputs := Doc.getElementsByName('password'); UID := Inputs.item(0, '') as IHTMLElement; if UID <> nil then (UID as IHTMLInputElement).value := '123456'; if UID = nil then ShowMessage('No se encuentra password'); ///////click al boton y entramos (submit)////////// Inputs := Doc.getElementsByName('signIn');//signIn cambialo por el nombre que tiene el boton LGN := Inputs.item(0, '') as IHTMLElement; if LGN <> nil then//si le encuentra le damos click y entramos. (LGN as IHTMLInputElement).form.submit; |
#4
|
||||
|
||||
Muy buen ejemplo titomigue; Añadir sólo que hay que poner el MSHTML en el uses.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
|||
|
|||
Muchas gracias a los dos por el tiempo y las respuestas, lo probare y les comentare
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Obtener información del cpu | ManuelPerez | Varios | 8 | 05-03-2008 03:19:52 |
Obtener informacion de una pagina web | angelp4492 | Varios | 6 | 03-03-2008 00:49:10 |
Obtener informacion de una WorkStation | SOAD_ | API de Windows | 0 | 04-09-2007 01:31:38 |
Intercambiar información entre bases de datos por Internet ¿TCP o FTP? | Ariel Pérez | Internet | 2 | 15-09-2006 08:28:35 |
Cómo subir información a una bd en internet automáticamente | osvrom | Internet | 4 | 20-03-2004 00:21:57 |
|