Page 1 of 2
ACCEDER AL NAVEGADOR
Posted: Tue Dec 29, 2020 6:45 pm
by 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!!
Re: ACCEDER AL NAVEGADOR
Posted: Tue Dec 29, 2020 7:19 pm
by Carlos Britos
wapi_shellexecute( 0, "Open", "
www.hmgforum.com", , , 10 )
Re: ACCEDER AL NAVEGADOR
Posted: Tue Dec 29, 2020 7:45 pm
by SALINETAS24
Hola Carlos, no me funciona, no hace nada de nada. Muchas gracias por contestar.
Un saludo
Re: ACCEDER AL NAVEGADOR
Posted: Tue Dec 29, 2020 8:18 pm
by 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/",,, )
Re: ACCEDER AL NAVEGADOR
Posted: Tue Dec 29, 2020 8:42 pm
by 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.
Re: ACCEDER AL NAVEGADOR
Posted: Tue Dec 29, 2020 11:46 pm
by 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
Re: ACCEDER AL NAVEGADOR
Posted: Thu Dec 31, 2020 12:18 am
by JALMAG
Puedes utilizar:
_Execute( _HMG_MainHandle, "open", cnombreHTML )
Para ello deberás incluir FileIO.ch
Re: ACCEDER AL NAVEGADOR
Posted: Thu Dec 31, 2020 7:57 am
by SALINETAS24
JALMAG wrote: ↑Thu Dec 31, 2020 12:18 am
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.
Re: ACCEDER AL NAVEGADOR
Posted: Thu Dec 31, 2020 9:47 am
by Carlos Britos
SALINETAS24 wrote: ↑Tue Dec 29, 2020 7:45 pm
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
Re: ACCEDER AL NAVEGADOR
Posted: Thu Dec 31, 2020 10:48 am
by SALINETAS24
Carlos Britos wrote: ↑Thu Dec 31, 2020 9:47 am
SALINETAS24 wrote: ↑Tue Dec 29, 2020 7:45 pm
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.