Xailer & OZ Software

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.
--

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