Pesquisa de endereços utilizando WebBrowser do Delphi

Olá galerinha, neste artigo irei mostrar uma maneira prática e simples que é efetuar busca de endereços a partir de uma aplicação Delphi. A vantagem dessa abordagem é que a página será aberta dentro da sua aplicação no Delphi, sem a necessidade de acessar o Navegador Padrão do Sistema Operacional.

Criando um navegador

Abra o Delphi e crie uma nova aplicação, adicione no formulário os seguintes componentes: TWebBrowser, "2"TButoon, "6" TEdit's.

Renomei os Tedits com seus respectivos novos que irá ser utilizado na aplicação.

Para esse exemplo usaremos: Cidade, Estado, Rua, Cep, Latitude e Longitude.

No primiero TButton pesquisar pelos campos: Cidade, Estado, Rua, Cep. 

No Onclick do TButoon inseriam a código a seguir:

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;

   WebBrowser1.Navigate(ConsultaEndereco);

Já no Segundo TButton pesquisar pelos campos: Latitude e Longitude.

No Onclick do TButoon inseriam a código a seguir:

Var ConsultaEndereco : string;

begin

   ConsultaEndereco := 'http://maps.google.com/maps?q=';

   If Latitude.Text <> '' Then

      ConsultaEndereco := ''+ConsultaEndereco + Latitude.Text +',';

   If Longitude.Text <> '' Then

      ConsultaEndereco := ''+ConsultaEndereco + Longitude.Text ;

   Caption := ConsultaEndereco;

   WebBrowser1.Navigate(ConsultaEndereco);

Segui abaixo demostrativo: