web browser

[Arturo]

Buenas,
se me plantea el problema de tener que validarme automáticamente en una
página web de un gestor documental.
Utilizo la clase webbrowser que se adjunta en los ejemplos de xailer que por
lo que veo llama a su vez al "Shell.Explorer.2" de windows pero no consigo
identificar y cargar las propiedades "user" y "password".
En VB6 (que utiliza un ocx propio "SHDocVwCtl.WebBrowser" ) funciona de la
siguiente manera :
WebBrowser1.Document.Forms(1).username.Value = "PEPE"
WebBrowser1.Document.Forms(1).password.Value = "123456"
Alguien sabe como poder pasa estos valores al control de xailer .
Muchas gracias.

[jlalin]

Arturo,
si estás utilizando TWebBrowser, puedes cargar la web así­:
WITH OBJECT ::oOcx := TWebBrowser():New( Self )
:nAlign := alCLIENT
:NavigateError := "WebNavigateError"
:Create()
:Navigate( "http://..."
WHILE :busy //Esperar a que cargue
ProcessMessages()
END
END
Y luego con esto rellenas los campos:
oField := ::oOcx:Document:GetElementByID( "username" )
oField:Value := "PEPE"
oField := ::oOcx:Document:GetElementByID( "password" )
oField:Value := "123456"
También puedes enviar el click automáticamente con:
::oOCX:Document:Forms[0]:Submit()
while ::oOCX:Busy
ProcessMessages()
end
Saludos,
José Lalí­n

[Arturo]

Muchas gracias de nuevo José....
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:4e16c900$[email=2@svctag-j7w3v3j....]2@svctag-j7w3v3j....[/email]
Arturo,
si estás utilizando TWebBrowser, puedes cargar la web así:
WITH OBJECT ::oOcx := TWebBrowser():New( Self )
:nAlign := alCLIENT
:NavigateError := "WebNavigateError"
:Create()
:Navigate( "http://..."
WHILE :busy //Esperar a que cargue
ProcessMessages()
END
END
Y luego con esto rellenas los campos:
oField := ::oOcx:Document:GetElementByID( "username" )
oField:Value := "PEPE"
oField := ::oOcx:Document:GetElementByID( "password" )
oField:Value := "123456"
También puedes enviar el click automáticamente con:
::oOCX:Document:Forms[0]:Submit()
while ::oOCX:Busy
ProcessMessages()
end
Saludos,
José Lalín

[jlalin]

Arturo,
un placer
Saludos,
José Lalí­n