Abrindo Google Maps via Delphi


Aqui vai uma dica de como abrir o Google Maps® via delphi.

Primeiro declaramos na uses a unit ShellAPI.

Em seguida, colocamos um botão e adicionamos o seguinte código:


ShellExecute(0, Nil,
 PChar('http://maps.google.com.br/maps?f=q&source=s_q&hl=pt-BR&geocode=&q='  +
 Edit1.Text + '-SP&jsv=143c&sll=-23.186453,-46.884453&sspn=0.478436,'  +
 '0.545883&g=&ie=UTF8&ct=clnk&cd=1'), Nil, Nil,  0);

Onde edit1.text seria o nome da cidade a ser pesquisada.

Uma boa implementação para não abrir o browser padrão, pode ser usar um TWebBrowser para visualizar a página na própria aplicação. O limite é a sua imaginação!

Abraço e um ótimo fim de semana. o

Anúncios

2 comentários sobre “Abrindo Google Maps via Delphi

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s