ACCEDER AL NAVEGADOR

[SALINETAS24]

Hola a todos,
Estoy creando un botón que accede al navegador de internet. He visto varias opciones pero ninguna se ajusta a lo que yo quiero.
Lo que quiero es cargar una página en el navegador que el usuario tenga por defecto en su S.O.

He visto

Code: Select all

Demo.Activex_1.Object:Navigate("http://www.hmgforum.com/")

la cual me presenta en una ventana predefina la página, pero no el navegador.

Tambien he visto OLE.

Code: Select all

STATIC PROCEDURE IEXPLORER()

	LOCAL oIE

	oIE := CreateObject( "InternetExplorer.Application" )

	oIE:Visible := .T.

	oIE:Navigate( "http://www.hmgforum.com/" )

RETURN

Pero en este caso se abre el IE, de manera obligatoria. ¿y si el cliente utiliza el mozilla.., u otro..?

También he probado con la funciónb __RUN con el comando EXECUTE FILE, aqui no funciona.

Code: Select all

*-----------------------------------------------------------------------------*
Procedure ExecTest3()
*-----------------------------------------------------------------------------*
  __RUN("http://www.hmgforum.com")
  EXECUTE FILE "http://www.hmgforum.com/search.php?keywords=EXECUTE+FILE+WWW" 


Return Nil

La cuestión es...
¿HAY ALGUNA FORMA DE QUE INDICANDO LA PAGINA (Por ejemplo "http://www.hmgforum.com"), se cargue en la aplicación que el cliente utiliza para navegar por Internet..., sea la que sea..?

Muchas gracias por vuestra atención, y vamos con una ronda virtual de cervecita bien fresquita..., esta la pago yo!!

[Carlos Britos]

wapi_shellexecute( 0, "Open", "www.hmgforum.com", , , 10 )

[SALINETAS24]

wapi_shellexecute( 0, "Open", "www.hmgforum.com", , , 10 )

Hola Carlos, no me funciona, no hace nada de nada. Muchas gracias por contestar.
Un saludo

[andyglezl]

Pero en este caso se abre el IE, de manera obligatoria. ¿y si el cliente utiliza el mozilla.., u otro..?

Cada Explorador tiene una opción para activarlo como predeterminado.


Ejecuta el Explorador predeterminado...
SHELLEXECUTE( 0, "open" , "https://www.siat.sat.gob.mx/PTSC/",,, )

Ejecuta con IExplore...
SHELLEXECUTE( 0, "open" , "IExplore.exe", "https://www.siat.sat.gob.mx/PTSC/",,, )

Ejecuta con Chrome...
SHELLEXECUTE( 0, "open" , "chrome.exe", "https://www.siat.sat.gob.mx/PTSC/",,, )

[SALINETAS24]

Hola Andrés muchas gracias por contestar.
Imagino que sera por culpa de mi XP, pero no me funciona ninguna opción.
Espero que como este año me he portado bien los reyes me traigan un Ordenador de los de verdad....
Muy agradecido por vuestras respuestas.

[SALINETAS24]

Hola, he encontrado esto en el foro

viewtopic.php?f=5&t=3994&p=37406&hilit= ... ion#p37406

pero también me da error.

ERROR WINOLE/1007 :RUN(DOS ERROR)
CALLED FROM TOLEAUTO:RUN(0)
CALLED FROM RUNDEFAULT(35)
......etc, etc

Sl2

[JALMAG]

Puedes utilizar:

_Execute( _HMG_MainHandle, "open", cnombreHTML )

Para ello deberás incluir FileIO.ch

[SALINETAS24]

Puedes utilizar:

_Execute( _HMG_MainHandle, "open", cnombreHTML )

Para ello deberás incluir FileIO.ch

Hola Jalmag, tampoco me funciona. me dice que no reconoce la variable "_HMG_MAINHANDLE" y al principio del fichero puse los includes indicados.

#include "hmg.ch"
#include "_dbf.ch"
#include "dbstruct.ch"
#include "ficheIO.ch"

Estoy usando XP con HMG3.4.

Muchas gracias por contestar.

[Carlos Britos]

wapi_shellexecute( 0, "Open", "www.hmgforum.com", , , 10 )

Hola Carlos, no me funciona, no hace nada de nada. Muchas gracias por contestar.
Un saludo

No uses el "http://"
RetVal := wapi_shellexecute( 0, "Open", "www.hmgforum.com", , , 10 )
y chequea el valor de retorno, ok = 42



Don`t use "http://"
RetVal := wapi_shellexecute( 0, "Open", "www.hmgforum.com", , , 10 )
check the return value, ok = 42

[SALINETAS24]

wapi_shellexecute( 0, "Open", "www.hmgforum.com", , , 10 )

Hola Carlos, no me funciona, no hace nada de nada. Muchas gracias por contestar.
Un saludo

No uses el "http://"
RetVal := wapi_shellexecute( 0, "Open", "www.hmgforum.com", , , 10 )
y chequea el valor de retorno, ok = 42



Don`t use "http://"
RetVal := wapi_shellexecute( 0, "Open", "www.hmgforum.com", , , 10 )
check the return value, ok = 42

Hola Carlos, copio literalmente y no hace nada. El valor de retorno es = 2
Imagino que sera cuestión de mi XP.
Un Saludo.