Usar Google Chrome ao invés do Internet Explorer

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Avatar do usuário
jjr_rs
Usuário Nível 2
Usuário Nível 2
Mensagens: 72
Registrado em: 18 Mai 2009 18:56
Localização: Porto Alegre
Contato:

Usar Google Chrome ao invés do Internet Explorer

Mensagem por jjr_rs »

Olá amigos !

Retornando a esse tópico para saber se houve alguma novidade/solução encontrada para esse problema.

Estive pensando e, caso não haja solução, terei que chamar o browser (neste caso o Chrome), direto do diretório que se encontra instalado, para navegar no Google Maps.
Criarei uma variável onde cadastrarei o caminho do executável do Chrome para que assim consiga executá-lo.

O que acham disso ?
Bahsis Sistemas de Gestão
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

Usar Google Chrome ao invés do Internet Explorer

Mensagem por Toledo »

Amigo, pensei que você estava usando somente ActiveX, mas se pode usar direto o navegador, então veja esta mensagem:

Google maps

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar do usuário
jjr_rs
Usuário Nível 2
Usuário Nível 2
Mensagens: 72
Registrado em: 18 Mai 2009 18:56
Localização: Porto Alegre
Contato:

Usar Google Chrome ao invés do Internet Explorer

Mensagem por jjr_rs »

Toledo,

Obrigado pela ajuda !

Realmente passei o dia de ontem pensando na melhor maneira de realizar essa tarefa. Pesquisei e aprendi inclusive alguns truques do windows.

Acabei colocando direto no navegador, como você mesmo mostrou no seu exemplo, mas com algumas pequenas diferenças.

No meu caso, fiz conforme abaixo:

Código: Selecionar todos

cEnd := Alltrim( Form_CadCli.Text_endereco.value ) + "," + Alltrim( Form_CadCli.Text_bairro.value ) + "," + Alltrim( Form_CadCli.Text_cidade.value )
cEnd := StrTran( cEnd," ","+" )

cComando := "Start https://www.google.com.br/maps/place/" + cEnd
memowrit( "Browser.bat", cComando )
EXECUTE FILE "Browser.bat" Minimize
Explicando o código:
cEnd => carrega o endereço do cliente onde eu retiro todos os espaços, tanto do início quanto do final. Logo após eu utilizo o StrTran para mudar os espaços internos pelo caracter (+), pois o endereço utilizado pelo Google Maps tem essa característica, caso contrário o browser irá entender que a cada espaço será um novo comando, abrindo assim uma janela nova para cada bloco do endereço.

cComando => Essa é a parte "cretina" do windows ! Você não necessita gravar o endereço completo onde se encontra o aplicativo a ser executado (neste caso o Chrome.exe, que estaria em "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe").

Em pesquisa de dicas do windows, acabei descobrindo (sei que para muitos não é novidade, mas para mim foi...) podemos chamar aplicativos do windows com o comando "Start" no início do comando, no prompt de comando, por exemplo: Start http://www.google.com.br

Com isso ele irá abrir o aplicativo pré-definido para abrir uma página da internet, neste caso o browser definido como padrão no sistema, seja ele o IE, o Chrome, Firefox, etc..., dispensando saber todo o caminho onde ele está instalado.

Após isso, por opção pessoal, optei pelo uso do comando EXECUTE FILE para chamar o comando pronto que eu gravei dentro do arquivo gerado com o nome "Browser.bat".

Bingo ! Funcionou !

Deixo aqui então a solução por mim encontrada para que possa ajudar a todos os colegas !

Abraços a todos e muito obrigado por toda ajuda !
Bahsis Sistemas de Gestão
Claudio Soto
Colaborador
Colaborador
Mensagens: 566
Registrado em: 27 Ago 2012 12:31
Localização: Uruguay
Contato:

Usar Google Chrome ao invés do Internet Explorer

Mensagem por Claudio Soto »

Si no necesitas ActiveX podes abrir una página web directamente con el navegador por defecto con:

Código: Selecionar todos

cURL := "https://www.google.com.br/maps/place/Ipanema,+R%C3%ADo+de+Janeiro+-+Estado+de+R%C3%ADo+de+Janeiro/@-22.9844348,-43.2195135,14z/data=!3m1!4b1!4m2!3m1!1s0x009bd50ffe726191:0xbb0215da9c59a67b"

ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler " + cURL, NIL, 1)
Saludos.
Dr. Claudio Soto
(Uruguay)
http://srvet.blogspot.com
Avatar do usuário
jjr_rs
Usuário Nível 2
Usuário Nível 2
Mensagens: 72
Registrado em: 18 Mai 2009 18:56
Localização: Porto Alegre
Contato:

Usar Google Chrome ao invés do Internet Explorer

Mensagem por jjr_rs »

Olá Claudio Soto !

Testei e funcionou perfeitamente, tanto a minha solução, quanto a sua.

A única questão que acabei notando é que nenhuma das duas opções funcionam no windows XP (sim, ainda tenho clientes com o XP...rsrs).
Sabes me dizer como contornamos esse problema ?
Bahsis Sistemas de Gestão
Responder