Ejecutar Firefox con direccion via Delphi

[eudy.net]

Hola que tal,

Planteo mi problema:
Estoy desarrollando una aplicación en delphi en la cual deseo abrir una página web en especifico, intenté con el WebBrowser que trae incluido delphi, pero resulta que la página al parecer tiene una función o tecnología que Delphi no admite y cada vez que la abro con el WebBrowser de Delphi me da error y Delphi se friza por completo.

Quisiera hacer lo siguiente:
Quisiera ejecutar mediante un boton a un navegador ajeno a Delphi (MOZILLA FIREFOX) y que al abrirse éste, abra la pagina que deseo (osea, que se abra Firefox con la pagina a la que deseo accesar, sin necesidad de tener que tipear el url). Si alguien pudiera ayudarme se lo agradecería en el alma

GRACIAS ANTICIPADAS,

Se despide,

eudy.net

[dec]

Hola,

Estoy desarrollando una aplicación en delphi en la cual deseo abrir una página web en especifico, intenté con el WebBrowser que trae incluido delphi, pero resulta que la página al parecer tiene una función o tecnología que Delphi no admite y cada vez que la abro con el WebBrowser de Delphi me da error y Delphi se friza por completo.

¿Seguro que es un error de Delphi? En realidad el "TWebBrowser" hace uso de un "ActiveX" (si no me equivoco) sobre el que Delphi acaso no tenga el control suficiente. Pero, en todo caso, ¿seguro que no hay forma de evitar el error? En todo caso,... y puesto que luego dices:

Quisiera ejecutar mediante un boton a un navegador ajeno a Delphi (MOZILLA FIREFOX) y que al abrirse éste, abra la pagina que deseo (osea, que se abra Firefox con la pagina a la que deseo accesar, sin necesidad de tener que tipear el url). Si alguien pudiera ayudarme se lo agradecería en el alma

Esto resulta más o menos sencillo, siempre que se cuente con Firefox instalado, claro. Ten en cuenta que puede no estar instalado Firefox. Fíjate en el siguiente código:

Código Delphi [-]
uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.clubdelphi.com/',
   nil, nil, SW_NORMAL);
end;

"Eso" abrirá el navegador predeterminado (por el usuario) en el sistema y le indicará a este que abra a su vez la URL del ClubDelphi. Y, esto otro:

Código Delphi [-]
uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'firefox.exe',
   'http://www.clubdelphi.com/', nil, SW_NORMAL);
end;

Abriría el navegador Firefox (si estuviera instalado) incluso si es otro navegador el predeterminado en el sistema.

De todas formas... quizás convendría "pasar" en "ShellExecute()" la ruta completa al navegador Firefox, no sólo el nombre de su ejecutable (acaso funcione también sin la extensión EXE) porque, es más fiable usando la ruta completa.

Y, en todo caso, comprobar la existencia de Firefox y/o estar al tanto del resultado de la función "ShellExecute()" por si se produjera algún error.

[eudy.net]

Dec Muchiiiiisimas gracias,
Lo de la pagina que no acepta el WebBrowser de Delphi te la dejo aqui:
"http://jce.do/web/CEDULAS/PADRON/tabid/62/Default.aspx"
Luego Pulsas el boton Consulte el Padron Electoral

Si es que estoy usando mal el WebBrowser de Delphi, favor avisamelo

Gracias de Nuevo

[dec]

Hola,

Personalmente, no me aparece ningún error. Seguramente sea porque no usamos las mismas versiones, no de Delphi, sino de Internet Explorer. Aquí tengo instalado Internet Explorer 7, y, como digo, todo va bien.

Otrosí, esto puede complicarse un poco. Ignoro si hay alguna configuración en Internet Explorer que, simplemente, no muestre cierto tipo de errores que puedan producirse, por ejemplo, en el JavaScript de una página, o en su hoja de estilo.

Si es así... ignoro ahora también si el "TWebBrowser" asume la configuración existente en Internet Explorer y nada más. Tal vez podrías probar a usar el evento "OnNavigateError"... Acaso el componente Embedded Webbrowser ofrece ayuda en el tratamiento de errores que no ofrezca "TWebBrowser"...

En todo caso el error (que sea) lo más seguro es que no esté en Delphi, sino en el código de la página web que muestras en el "TWebBrowser". Por ahí puedes investigar a ver cómo se tratan los errores, si pueden evitarse las "alertas" en caso de que existan, etc., etc.

[wofox]

Leí y usé tu código, como estoy empezando no entiendo parte de el. Me explicas porfavor por que pusiste un '0', un nil y un SW_NORMAL ? Gracias.

[jachguate]

Eso, amigo mío, te lo explicará el Sr Ayuda de delphi, al alcance de la técla F1.

Si demostrás que lo has leido... y que luego de esforzarte no has comprendido, no dudo que haya mas de se presete a explicarlo.

Hasta luego.