sábado, 6 de agosto de 2011

Abrir pagina web con navegadores (Chrome, Mozilla, Explorer) desde Form - VFP

Saludos. En esta ocasion presentaremos como escribir una direccion web en un control text de un formulario y abrir dicha direccion con los navegadores de Chrome, Mozilla e InternetExplorer.

Vamos a suponer que tenemos un formulario que contiene:

- 1 control Text (Text1) para introducir la direccion de la pagina web.
- 3 botones de comando. Cada boton corresponde a un navegador. Establecemos la propiedad caption de cada uno para hacer referencia:
     ~ Command1.Caption = "Mozilla Firefox"
     ~ Command2.Caption = "Google Chrome"
     ~ Command3.Caption = "Internet Explorer"



Va asi: 

1. En el evento click del Command1 (Navegador Mozilla) escribimos un codigo como este: 

DECLARE INTEGER ShellExecute IN "Shell32.dll" ; 
INTEGER hwnd, ; 
STRING lpVerb, ; 
STRING lpFile, ; 
STRING lpParameters, ; 
STRING lpDirectory, ; 
LONG nShowCmd 

**Abrimos explorador Firefox
=Shellexecute(0,"Open","C:\Program Files (x86)\Mozilla Firefox\firefox.exe",THISFORM.Text1.VALUE,"",0) 


2. En el evento click del Command2 (Navegador Google Chrome) escribimos un codigo como este: 

DECLARE INTEGER ShellExecute IN "Shell32.dll" ; 
INTEGER hwnd, ; 
STRING lpVerb, ; 
STRING lpFile, ; 
STRING lpParameters, ; 
STRING lpDirectory, ; 
LONG nShowCmd 

**Abrimos explorador Chrome
=Shellexecute(0,"Open","C:\Program Files (x86)\Google\Chrome\Application\chrome.exe",THISFORM.Text1.VALUE,"",0) 


3. En el evento click del Command3 (Navegador Internet Explorer) escribimos un codigo como este: 

*Abrimos explorador Explorer
WITH THISFORM
poExplorer = CreateObject("internetexplorer.Application") 
poExplorer.Navigate((THISFORM.Text1.Value), " ")
poExplorer.Visible=.T.
ENDWITH


Guardamos y ejecutamos. :) 


La direccion web debe ser introducida en el control Text1 asi (ejemplo): www.yahoo.com y luego proceder a dar un click sobre el boton que escojamos como navegador para abrir dicha pagina. 

Cabe destacar que en los codigos referentes a Mozilla y Chrome debe copiarse la ubicacion de los ejecutables de cada navegador en el equipo ("firefox.exe" y "chrome.exe"). 


Saludos. Sugerencias y comentarios son siempre bienvenidos para mejorar! 
Un abrazo! Desde Managua, Nicaragua. 
Ravenn! :) 


6 comentarios:

  1. hola podria sabr por que el de gogle y chrome no me funsiona y dice que no exite el =Shellexecute

    ResponderEliminar
  2. Tengo el mismo problema

    ResponderEliminar
  3. Listo, error en sintaxis, gracias

    ResponderEliminar
  4. Hola, Hermano!

    Quería saber si con este código se abre una nueva instancia del navegador seleccionado, o, si el navegador ya está abierto, ¿se abre una nueva pestaña?

    Gracias de antemano.

    ResponderEliminar
    Respuestas
    1. Si funciona pero en Windows Seven, en XP se queda pegado

      Eliminar
  5. Como descargar imagen de la url activa en el navegador

    ResponderEliminar