Hola,
Cita:
|
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:
Cita:
|
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.