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.
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.
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
-
- Mensajes: 100
- Registrado: Vie Abr 10, 2009 11:02 pm
Ejemplo de TWebBrowser
Un Saludo,
Joaquín Martínez
Joaquín Martínez
Re: Ejemplo de TWebBrowser
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" )
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
http://www.bisoft.es
-
- Mensajes: 100
- Registrado: Vie Abr 10, 2009 11:02 pm
Re: Ejemplo de TWebBrowser
Muchas gracias Bingen !!
Cuanto tiempo que no hablamos y no nos vemos.
A ver si en un futuro coincidimos.
Cuanto tiempo que no hablamos y no nos vemos.
A ver si en un futuro coincidimos.
Un Saludo,
Joaquín Martínez
Joaquín Martínez
Re: Ejemplo de TWebBrowser
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
http://www.bisoft.es