Buscar por:

Pesquisar Mapa da Cidade

Código

(*

você poder pesquisar o mapa onde cliente mora direto do banco de dados puxando pelo nome da cidade

Dentro da unit da aplicação, crie um botão com Caption = 'Pesquisar Mapa', e em seu evento "OnClick" insira o código:

*)

procedure TUnit.Button1Click(Sender: TObject);

begin

  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);

end;

Onde esta escrito " '+Edit1.Text+' " é onde esta sendo exibido a cidade onde o cliente mora, ou você pode substituir pela pesquisa direto da tabela:

procedure TUnit.Button1Click(Sender: TObject);

begin

  ShellExecute(0, Nil,

    PChar('http://maps.google.com.br/maps?f=q&source=s_q&hl=pt-BR&geocode=&q=' +

     ClientesCidade.Value + '-SP&jsv=143c&sll=-23.186453,-46.884453' +

      '&sspn=0.478436,0.545883&g=&ie=UTF8&ct=clnk&cd=1'), Nil, Nil, 0);

end;

(*

O botão vai fazer com que abra o navegador padrão acessando direto no GoogleMaps com a localização da cidade do cliente.

Mas antes de rodar, acrescente ao uses a unit ShellApi.

Detalhe: Caso não more em SP, vc deve mudar para o UF de seu estado onde esta escrito " '+Edit1.Text+'-SP ", logo após o Edit1, e se deixar sem o UF, ele vai fazer uma pesquisa Global.

*)