Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
gtramonte Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010 Mensagens: 117
|
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); |
|
Voltar ao Topo |
|
|
natanbh1 Colaborador
Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
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 |
|
Voltar ao Topo |
|
|
gtramonte Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010 Mensagens: 117
|
Enviada: Qua Nov 20, 2019 7:20 pm Assunto: |
|
|
então natan! Não da erro nenhum, apenas não abre a pagina. |
|
Voltar ao Topo |
|
|
natanbh1 Colaborador
Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
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.
Código: | var
ConsultaEndereco: string;
begin
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;
ShellExecute(Handle, 'open', PChar(ConsultaEndereco), '', '', 1);
end; |
_________________ ''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
Voltar ao Topo |
|
|
gtramonte Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010 Mensagens: 117
|
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. |
|
Voltar ao Topo |
|
|
natanbh1 Colaborador
Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
|
Voltar ao Topo |
|
|
rodrigoprado Colaborador
Registrado: Terça-Feira, 24 de Mai de 2005 Mensagens: 1074 Localização: Curitiba/PR
|
|
Voltar ao Topo |
|
|
gtramonte Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010 Mensagens: 117
|
Enviada: Sex Nov 22, 2019 7:37 pm Assunto: |
|
|
to usando o Delphi 7 com firebird. |
|
Voltar ao Topo |
|
|
gtramonte Aprendiz
Registrado: Segunda-Feira, 27 de Setembro de 2010 Mensagens: 117
|
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? |
|
Voltar ao Topo |
|
|
|