Ayuda para: ¿cómo lanzar una página web en c:\?

[fernandomoralesdr]

Hola a todos.
No sé si se comprende bien la pregunta pero la situación es que tengo en el directorio de mi aplicación una carpeta AYUDA y dentro de dicha carpeta un archivo INDEX.HTML. Lo que quiero es lanzar desde un punto del menú de mi aplicación esa página con el navegador que haya predeterminado (explorer, firefox, etc.).
Gracias por adelantado.

[jll-fwh]

Hola fernando:

Tienes dos opciones:

1.- Lanzar la pagina al navegador con:

Code: Select all  Expand view

/*------------------------------------------------------------------------------*/
Function IrWeb( cURL )
/*------------------------------------------------------------------------------*/

    /* comprobamos si tenemos conexion a internet */
    If !IsInternet()
       MsgAlert( "Compruebe la conexión a Internet.", "Atención" )
       Return NIL
    End

   // Funcion modificada para que funcione con Windows 7 y XP
   ShellExecute( , "open", cURL )

Return NIL
 

2.- Lanzar la pagina a una ventana de tu aplicacion con xActive:

Nota: Date cuenta que uso ventanas MDI, si tu no, modifica el DEFINE WINDOWS y en tu caso, pasale como parametro la web a visualizar y listo, yo la tengo asi, porque el programa este es gratuito y al menos quiero que vean mi web de pajaros, SI o SI. jejeje

Code: Select all  Expand view

/*
------------------------------------------------------------------------------
       Funcion: ShowWebUser()
    Parametros: Ninguno
      Devuelve: NIL
   Descripcion: Crea una ventana incrustando la web usando XActive
------------------------------------------------------------------------------
*/
STATIC Function ShowWebUser()

   LOCAL oActiveX, oIcon
   LOCAL cEvents  := ""
   LOCAL nWWidth  := Max( 200, oWndChild:nWidth  -   6 )
   LOCAL nWHeight := Max( 100, oWndChild:nHeight - 100 )

   /* comprobamos si tenemos conexion a internet */
   If !IsInternet()
      MsgAlert( "Compruebe la conexión a Internet.", "Atención" )
      Return NIL
   End

   DEFINE ICON oIcon  RESOURCE "Icon"

   DEFINE WINDOW oWndPClie MDICHILD OF oWndChild;
          FROM 0,0 TO nWHeight, nWWidth PIXEL  ;
          TITLE "Navegador Web" ICON "Icono"

          oActiveX = TActiveX():New( oWndPClie, "Shell.Explorer" )
          oWndPClie:oClient = oActiveX
          oWndPClie:Resize()
          oActiveX:Do( "Navigate2", "http://www.proyectos-meliana.es/agapornis-meliana/" )

   ACTIVATE WINDOW oWndPClie;
            VALID ( .T. )

   DeleteObject( oIcon )
   DeleteObject( oActiveX )

Return NIL

 

Un saludo
JLL