[Resolvido] Chamar Mozilla Firefox através através do delphi

[odnav 0]

Fala Galera,

 

Estou tentando terminar meu projeto em Delphi, porém esbarrei em uma questão onde não consegui resposta em parte alguma, então recorro aos sábios colegas. Fiz um manual em HTML para minha aplicação e consigo chamá-lo sem problemas no Internet Explorer usando este código:

 

Primeiramente digito no Uses: ComObj, ShellApi;

declaro as variaveis var IEAPP: variant;

Arquivo, UrlLocal: string;

 

procedure TFMenu.ManualdoUsuarioClick(Sender: TObject);

begin

IEApp := CreateOLEObject('InternetExplorer.Application'); //Com isto tenho que deixar o navegador IE como padrão

IEApp.visible := true;

IEApp.Top := 0;

IEApp.Left := 0;

IEApp.width := screen.width;

IEApp.height := screen.height;

 

Arquivo := 'C:\Sismafe\Manual.html';

UrlLocal := StringReplace(Arquivo,'\','/',[rfReplaceAll]);

UrlLocal := 'file:///' + UrlLocal;

ShellExecute(0,nil,PChar(UrlLocal),nil,nil,SW_SHOW);

 

end;

 

Porém, para tornar o manual mais dinâmico e portavel gostaria de poder abri-lo tb no Mozilla firefox. O problema é que não consigo fazer o delphi startar o mozila de maneira nenhuma, com o mozilla aberto o manual abre, se estiver fechado dá erro. Já modifiquei o código acima porém com o mozilla não abre.

 

SE ALGUEM PUDER ME DAR UMA FORÇA... AGUARDO POSTAGENS, VLW!

[Chrnos 30]

Porque não usa o próprio TWebBrowser, que é um componente do delphi que simula um navegador web para isto?

 

[]'s

[odnav 0]

Porque não usa o próprio TWebBrowser, que é um componente do delphi que simula um navegador web para isto?

 

[]'s

 

O Chrnos, eu já ouvi falar sobre o componente, mas eu queria saber se tem um jeito de startar o Mozilla pelo Delphi, usando algo semelhante ao código que eu mostrei. Mas aproveitando a deixa gostaria de saber se o amigo poderia me explicar se assim como exite a variavel IEApp para o Internet Explorer, se teria algo parecido para o Mozilla Firefox. Desde já, agradeço pela atenção. Vlw.

[Chrnos 30]

Dê uma olhada neste tópico.

 

[]'s

[odnav 0]

Dê uma olhada neste tópico.

 

[]'s

 

O Chrnos, valeu pela ajuda, mas eu já tentei esta solução e tb não deu certo. Ela funcionaria para mim abrir URL e eu estou tentando um HTML que esta na máquina local. Por isso eu preciso de algo parecido com aquele código que eu postei anteriomente, que faça com que o delphi inicie o Mozilla Firefox sem contudo abrir uma página em especial para que assim eu possa rodar o script do manual, que está contido em C:\Sismafe\Manual.html. Mesmo assim, obrigado pela ajuda, porém o problema persiste. Vlw, brigadão.

[Chrnos 30]

Não seria o caso de apenas adaptar o código?

 

ShellExecute(Handle,'Open','firefox.exe','C:\Sismafe\Manual.html','C:\Arquivos de programas\Mozilla Firefox', SW_SHOWNORMAL);

Já tentou assim?

[odnav 0]

Não seria o caso de apenas adaptar o código?

 

ShellExecute(Handle,'Open','firefox.exe','C:\Sismafe\Manual.html','C:\Arquivos de programas\Mozilla Firefox', SW_SHOWNORMAL);

Já tentou assim?

 

O Chrnos, valeu pela ajuda, mas esse aí tb num resolve o problema. O firefox continua sem startar. Com esse código, na hora em que eu compilo a aplicação me aparece aquela tela da cpu com aquele monte de instruções em assembler sempre me mostrando um acoisa diferente. Isso acontece por que a aplicação não consegue startar o firefox. Infelizmente o problema persiste. Brigadão cara.

[Chrnos 30]

Estranho, eu executei um teste aqui no Delphi 5 com essa sintaxe e funciona normalmente...

 

ShellExecute(Handle,'Open','firefox.exe','C:\temp\TESTE.HTML','C:\Arquivos de programas\Mozilla Firefox', SW_SHOWNORMAL);

Lembrando que na lista de uses deve ser acrescentada a Shellapi.

 

Mas, uma pergunta.... o caminho na sua máquina para o firefox é o que está no comando (C:\Arquivos de programas\Mozilla Firefox) ?

 

[]'s

[Waldinho 0]

Olá, odnav.

Tenta isso aqui:

ShellExecute(0, Nil, PChar('pagina_que_voce_quer_abrir'), Nil, Nil, 0);

Inclua na uses ShellAPI.

Com esse código o aplicativo vai abrir a página (ou documento) no browser padrão, seja ele IE, Mozilla, Chrome, etc.

Espero ter ajudado.

[odnav 0]

Amigos Chrnos e Waldinho, gostaria muito de agradecer pela atenção e tenho a maior satisfação de dizer que agora deu certo. Toda a dor de cabeça era por causa do DELPHI. Graças a um BUG que ele deu eu o reinstalei e agora todos os códigos passados pelos colegas retornaram resulatdo positivo. Eu já desconfiava que era problema da ferramenta ou do computador, pois ambos os amigos me postaram respostas parecidas com as já encontradas por mim e só comigo não funcionava. Muito obrigado pessoal. É bom saber que podemos contar com a sabedoria e esperiencia de vcs. Vlw, e um abraço. PROBLEMA RESOLVIDO!!!!