Como chamar o Mozila Firefox

[rossine]

Olá ,

Para chamar de dentro de meu aplicativo o internet explorer, eu chamo:

Código: Selecionar todos

oOle:=win_OleCreateObject("InternetExplorer.Application")

E para o Mozilla, qual seria o formato ?

Obrigado,

[gilbertosilverio]

Ola,

O Firefox não consegui fazer funcionar, mais o chrome uso assim:

Código: Selecionar todos

         IF xSEFAZ = [S]
            xCHAVE := 'https://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx'
         ELSEIF xSEFAZ = [G]
            xCHAVE := "http://nfe.sefaz.go.gov.br/nfeweb/jsp/CConsultaCompletaNFEJSF.jsf"
         ELSE
            xCHAVE := 'http://www.nfe.fazenda.gov.br/PORTAL/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8='
         ENDIF
         cCOMANDO := "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url "+xCHAVE
         hwg_WAITRUN(cComando)  // USANDO HWGUI

[Kapiaba]

https://pctoledo.org/forum/viewto ... 631#p85694

[gilbertosilverio]

Kapiaba,

Ja tentei usar da forma que voce postou, mais somente abre o Firefox, não direcionando para a pagina desejada.

Acho que falta alguma coisa para poder abrir a pagina, igual ao chrome, que necessario incluir o -url.

Voce consegue usando esta rotina abrir uma determinada pagina pelo Firefox?

[rossine]

Olá,

Primeiramente obrigado por responderem mas eu gostaria de executar via objeto OLE para eu poder setar as variáveis como está abaixo:

Código: Selecionar todos

             oOle:=win_OleCreateObject("???mozilla.firefox.???.Application")
             oOle:width:=675
             oOle:height:=520
             oOle:Visible:=.t. // Displays the Browser
             oOle:ToolBar:=.f. // Disables the toolbar
             oOle:StatusBar:=.f. // Disables status bar
             oOle:MenuBar:=.f. // Disables the menu bar
             oOle:Navigate(cFile) // Open the Webpage

Poderia ser para o chrome também.

Obrigado,

[Kapiaba]

Rossine, teste e assim, e diga o que retorna:

Código: Selecionar todos

obj:=CreateObject("Scripting.FileSystemObject")
cversion:=obj:GetFileVersion("FULL-PATH-EXE-DLL-FILE")

Não tenho firefox para testar.

[Kapiaba]

Rossine, veja se tens comandos equivalentes na sua linguagem:

Código: Selecionar todos

cInter:= "Firefox"

ShellExecute( GetActiveWindow(), 'Open',cInter,"google.com.br",,2)

Abs

[wmanesco]

Se não conseguiu ainda da uma lida neste aqui: http://www.iol.ie/~locka/mozilla/control.htm

Não sei se é possível implementar, mas parece que é o que precisa

[rossine]

Olá pessoal,

Agradeço a todos pelas dicas.

Vou estudar aqui a melhor maneira para implementar isto e caso eu obtenha sucesso, eu posto a solução pra vocês.

Obrigado,

[JoséQuintas]

Além da forma já indicada, também tem o tradicional por RUN, e activex.

Só indicar o "trem" que vai ser usado o aplicativo padrão.
Pode ser html, pdf, endereço de internet, etc.
Ia postar exemplo de fonte, mas o fórum esta bloqueando.