ActiveDelphi

gtramonte · Enviada: Dom Nov 17, 2019 5:50 am Assunto: google maps

Ola caros colegas! Estou tentando rodar um comando no qual digito o endereço do cliente e chamo o google maps para mostrar a localização. Porém não está trazendo nada de retorno. Peguei esse comando na internet. alguém pode me ajudar dizendo o que tenho que fazer ou se tem algum exemplo melhor?

ConsultaEndereco := 'http://maps.google.com/maps?q=';
If Cidade.Text <> '' Then
ConsultaEndereco := ConsultaEndereco + Cidade.Text + ',';
If Estado.Text <> '' Then
ConsultaEndereco := ConsultaEndereco + Estado.Text + ',';
If Rua.Text <> '' Then
ConsultaEndereco := ConsultaEndereco + Rua.Text + ',';
If Cep.Text <> '' Then
ConsultaEndereco := ConsultaEndereco + Cep.Text;
Caption := ConsultaEndereco;
WebBrowser1.Navigate(ConsultaEndereco);

natanbh1 · Enviada: Qua Nov 20, 2019 11:15 am Assunto:

Testei seu código e funcionou corretamente.

Apresentou algum erro ou apenas não carregou a página?

Preencheu os Edit's com os dados da busca?
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin

gtramonte · Enviada: Qua Nov 20, 2019 7:20 pm Assunto:

então natan! Não da erro nenhum, apenas não abre a pagina.

natanbh1 · Enviada: Qua Nov 20, 2019 7:54 pm Assunto:

Teste o código abaixo, abrindo o Google Maps pelo navegador padrão do usuário:

Adicione ShellApi na uses do form.

gtramonte · Enviada: Qua Nov 20, 2019 8:55 pm Assunto:

eu executei o comando que você indicou, porem agora da um erro:

Access violation at adress 07F23A4C in module 'BORdbk70.dll'.Write of address OBAA0000.

natanbh1 · Enviada: Qui Nov 21, 2019 11:06 am Assunto:

Creio que este erro tem relação com o código que te passei, mas volte com o código anterior para ver se o problema persiste.

Este erro é bem genérico e pode ser por algum problema na instalação do Delphi ou até uso de máquina virtual.

Tente:

- Desativar máquina virtual se estiver usando, ou;
- Registrar essa dll no windows, ou;
- Reinstalar do Delphi.

Veja alguns links:

http://www.activedelphi.com.br/forum/viewtopic.php?t=69418&sid=590dfba171a1ed13029a24522e801c45

https://www.devmedia.com.br/forum/bordbk70-dll/256509
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin

rodrigoprado · Enviada: Qui Nov 21, 2019 3:04 pm Assunto:

Boa tarde, qual a versão do delphi que esta utilizando?

Caso seja possível use a delphi community Rio 10.3, há algum tempo dependendo da versão do webbrowser, não funcionava algumas coisas, acho que vc tem uma dessas versões.

Em contrapartida ainda no delphi novo, temos o fabuloso TMapView para ambientes firemonkey.

**um exemplo mais raso
http://docwiki.embarcadero.com/RADStudio/Rio/en/Mobile_Tutorial:_Using_a_Map_Component_to_Work_with_Maps_(iOS_and_Android)

http://portal.tdevrocks.com.br/2015/08/14/mapview-utilizando-mapas-no-ios-e-android-com-delphi-ou-c-xe8/
_________________
- Compartilhe seus conhecimentos -

gtramonte · Enviada: Sex Nov 22, 2019 7:37 pm Assunto:

to usando o Delphi 7 com firebird.

gtramonte · Enviada: Sáb Nov 23, 2019 4:47 am Assunto:

quando coloco na ultima linha o meu comando anterior:

WebBrowser1.Navigate(ConsultaEndereco);

ele não da mais pau , depois da dll instalad, porém não abre nada no meu WebBrowser1.

quando uso o comando sugerido:

ShellExecute(Handle, 'open', PChar(ConsultaEndereco), '', '', 1);

ele abre, porém direto no browser do chrome; como faço pra abrir na minha ferramenta WebBrowser1?