In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Ejemplo de TWebBrowser

Foro de Xailer profesional en español
Responder
buzonjmartial
Mensajes: 100
Registrado: Vie Abr 10, 2009 11:02 pm

Ejemplo de TWebBrowser

Mensaje por buzonjmartial »

Buenas noches,

Eso, que no encuentro un ejemplo de la clase TWebBrowser.

Otra cosa que necesitaría ayuda, sería desde mi aplicación, abrir una página web con el navegador por defecto del cliente.
Un Saludo,
Joaquín Martínez
Avatar de Usuario
bingen
Mensajes: 565
Registrado: Lun Jul 07, 2014 8:17 pm
Ubicación: Bilbao
Contactar:

Re: Ejemplo de TWebBrowser

Mensaje por bingen »

No se si esto te será de ayuda

METHOD BevelCreate( oSender ) CLASS TFldEncuesta
Local lOk:=.T.

CopyFile(Application:cDirectory+"Encuesta.Html", Application:cDirectory+::cEncuesta )
FileStrTran(Application:cDirectory+::cEncuesta,"**aplicacion**",Appdata:cAppName)
FileStrTran(Application:cDirectory+::cEncuesta,"**empresa**",Appdata:cLicEmpresa)
FileStrTran(Application:cDirectory+::cEncuesta,"**usuario**",Appdata:cUserName)

WITH OBJECT ::oWebBrowser:= TWebBrowser():New( ::oBevel )
:nAlign := alCLIENT
:Create()
:Offline:=.F.
:Navigate2( Application:cDirectory+::cEncuesta , 2 )
:NavigateError:={|disppDisp, vURL, vFrame, vStatusCode, lCancel| IF(lCancel=404,LogDebug("La web no existe"),Nil) }
END

ProcessMessages()

RETURN Nil

Para lo segundo que preguntas es fácil
ShellExecute(,, "https://www.google.es" )
BiSoft Desarrollo de software profesional
http://www.bisoft.es
buzonjmartial
Mensajes: 100
Registrado: Vie Abr 10, 2009 11:02 pm

Re: Ejemplo de TWebBrowser

Mensaje por buzonjmartial »

Muchas gracias Bingen !!

Cuanto tiempo que no hablamos y no nos vemos.
A ver si en un futuro coincidimos.
Un Saludo,
Joaquín Martínez
Avatar de Usuario
bingen
Mensajes: 565
Registrado: Lun Jul 07, 2014 8:17 pm
Ubicación: Bilbao
Contactar:

Re: Ejemplo de TWebBrowser

Mensaje por bingen »

Ojala que sea pronto, eso querrá decir que esta pesadilla de pandemia habrá pasado y solo será un mal recuerdo.
BiSoft Desarrollo de software profesional
http://www.bisoft.es
Responder