Tengo estos tres "botones" para lanzar Iexplorer...
METHOD Button1Click( oSender ) CLASS TForm1
WinExec( "C:Archivos de programaInternet ExplorerIEXPLORE.EXE http://www.direccionweb.com", SW_NORMAL, .F. )
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD Button2Click( oSender ) CLASS TForm1
ShellExecute( 0, "open", "http://www.direccionweb.com", 0, 0, SW_SHOWNORMAL )
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD Button3Click( oSender ) CLASS TForm1
local oIE
TRY
oIE := GetActiveObject( "InternetExplorer.Application" )
CATCH
TRY
oIE := CreateObject( "InternetExplorer.Application" )
oIE:Visible := .T.
oIE:Navigate( "http://www.direccionweb.com" )
CATCH
Alert( "ERROR! IExplorer not avialable. [" + Ole2TxtError()+ "]" )
END
END
RETURN Nil
Yo personalmente estoy utilizando en mi aplicación, como método para lanzar Iexplorer el caso que describo en el botón3.
Bien, pues en un cliente que le tengo instalada mi aplicación, con WinXP, el botón3 no hace nada, pero nada de nada.
No lanza error alguno, simplemente no hace nada.
En cambio el botón 1 o 2 se lanza perfectamente...
¿Tengo que cambiar de método para lanzar Ie???
Esto me supone modificar mi aplicación en los métodos que estoy ahora utilizando OLE y cambiarlo por Shellexecute...
¿Que método de trabajo creeis que es mejor???
Por lo que he podido probar, OLE es más rápido qu Winexec() o ShellExecute()
Un Saludo,
Xevi.
--
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Lanzar Ie
Lanzar Ie
Hola Xevi,
> METHOD Button3Click( oSender ) CLASS TForm1
> local oIE
>
> TRY
> oIE := GetActiveObject( "InternetExplorer.Application" )
> CATCH
> TRY
> oIE := CreateObject( "InternetExplorer.Application" )
> oIE:Visible := .T.
> oIE:Navigate( "http://www.direccionweb.com" )
> CATCH
> Alert( "ERROR! IExplorer not avialable. [" + Ole2TxtError()+
> "]" )
> END
> END
>
> RETURN Nil
>
>
>
> Bien, pues en un cliente que le tengo instalada mi aplicación, con
> WinXP, el botón3 no hace nada, pero nada de nada. No lanza error
> alguno, simplemente no hace nada.
¿Pudiera ser que ese cliente tenga ya abierto el IE y por eso después del
GetActiveObject no hace nada? Fíjate que los métodos visible y navigate
están dentro del segundo TRY/CATCH, y solo se entra ahí si hay un fallo
en el primer TRY/CATCH.
Saludos,
José Luis Capel
> METHOD Button3Click( oSender ) CLASS TForm1
> local oIE
>
> TRY
> oIE := GetActiveObject( "InternetExplorer.Application" )
> CATCH
> TRY
> oIE := CreateObject( "InternetExplorer.Application" )
> oIE:Visible := .T.
> oIE:Navigate( "http://www.direccionweb.com" )
> CATCH
> Alert( "ERROR! IExplorer not avialable. [" + Ole2TxtError()+
> "]" )
> END
> END
>
> RETURN Nil
>
>
>
> Bien, pues en un cliente que le tengo instalada mi aplicación, con
> WinXP, el botón3 no hace nada, pero nada de nada. No lanza error
> alguno, simplemente no hace nada.
¿Pudiera ser que ese cliente tenga ya abierto el IE y por eso después del
GetActiveObject no hace nada? Fíjate que los métodos visible y navigate
están dentro del segundo TRY/CATCH, y solo se entra ahí si hay un fallo
en el primer TRY/CATCH.
Saludos,
José Luis Capel