Xailer forum

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.

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" )

Muchas gracias Bingen !!

Cuanto tiempo que no hablamos y no nos vemos.
A ver si en un futuro coincidimos.

Ojala que sea pronto, eso querrá decir que esta pesadilla de pandemia habrá pasado y solo será un mal recuerdo.