Pegar um CEP ou EndereÃ§o via Google Maps

kapiaba · October 25, 2011

No site da Junta Comercial, por exemplo, quando vocÃª pesquisa uma empresa, alÃ©m dos registros dela, traz a localizaÃ§Ã£o em um mapa.

Pergunta:

Como faÃ§o para digitar via programaÃ§Ã£o e disparar direto para a Rua e o mapa dela??

Ex: RUA BARATA RIBEIRO - Bela Vista - SÃ£o Paulo.

Obg.

Abs.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

kapiaba · October 25, 2011

No site da Junta Comercial, por exemplo, quando vocÃª pesquisa uma empresa, alÃ©m dos registros dela, traz a localizaÃ§Ã£o em um mapa.

Pergunta:

Como faÃ§o para digitar via programaÃ§Ã£o e disparar direto para a Rua e o mapa dela??

Ex: RUA BARATA RIBEIRO - Bela Vista - SÃ£o Paulo.

Obg.

Abs.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

CTOAS · October 25, 2011

http://code.google.com/intl/pt-BR/apis/maps/index.html

Mas as API's do Google somente podem ser usadas em aplicaÃ§Ãµes Free.

[]'s

VIII Congresso FiveWin - 19/Novembro/2011 - Guarulhos - SP

Theotokos · October 25, 2011

>, <> <>', '<>, <> <>');" onunload="GUnload()]+CRLF

cHtml+=[

]+CRLF

CHTML += [

cHtml+=[

kapiaba · October 26, 2011

>, <> <>', '<>, <> <>');" onunload="GUnload()]+CRLF

cHtml+=[

]+CRLF

CHTML += [

cHtml+=[

Luiz Fernando · October 26, 2011

Ola Kapiaba , somente para complementar de uma olhada no samples GMAPD.PRG...

AbraÃ§os

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

kapiaba · October 26, 2011

citaÃ§Ã£o:
Ola Kapiaba , somente para complementar de uma olhada no samples GMAPD.PRG...

AbraÃ§os

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

id=quote>id=quote>

Eita Hombre Inteligente de la pohha... kkk

TÃº te refieres a esto:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=9183&start=30&hilit=GMAPD

Me pareceu show() de bola.

Obg.

Abs.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

kapiaba · October 26, 2011

Putz friend o Link para baixar nÃ£o estÃ¡ funcionando, voc~e teria por ahi para me enviar??

Obg.

Abs

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Luiz Fernando · October 26, 2011

Kapiaba segue abaixo, mais so para reforÃ§ar este exemplo faz parte do samples do fivewin...

function MAPA()

local oDlg, oActiveX

local cStreet := PadR( "RUA JULIO DE MESQUITA 30", 80 )

local cCity := PadR( "SAO JOSE DO RIO PARDO", 80 )

local cCountry := PadR( "BRAZIL", 80 )

DEFINE DIALOG oDlg RESOURCE "MAPA"

oDlg:cCaption:='EMPRE-SOFT'

oDlg:lHelpIcon:=.f.

REDEFINE ACTIVEX oActiveX ID 100 OF oDlg PROGID "Shell.Explorer"

REDEFINE GET cStreet ID 200 OF oDlg

REDEFINE GET cCity ID 300 OF oDlg

REDEFINE GET cCountry ID 400 OF oDlg

REDEFINE BUTTON ID 310 OF oDlg ACTION Show( cStreet, cCity, cCountry, oActiveX )

REDEFINE BUTTON ID 311 OF oDlg ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED ;

ON INIT Show( cStreet, cCity, cCountry, oActiveX )

return nil

function Show( cStreet, cCity, cCountry, oActiveX )

local cHtml := MemoRead( cPath1+"gmap.html" )

cHtml = StrTran( cHtml, "<>", AllTrim( cStreet ) )

cHtml = StrTran( cHtml, "<>", AllTrim( cCity ) )

cHtml = StrTran( cHtml, "<>", AllTrim( cCountry ) )

MemoWrit( "temp.html", cHtml )

oActiveX:Do( "Navigate2", CurDrive() + ":\" + CurDir() + "\temp.html" )

return nil

id=code>id=code>

http://www.4shared.com/document/45z_8Xou/gmap.html

AbraÃ§os

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

kapiaba · October 26, 2011

Friend, vc. nÃ£o tem um completo com as telas, como no exemplo do forum inter??

abs.

obg.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Luiz Fernando · October 26, 2011

citaÃ§Ã£o:
Friend, vc. nÃ£o tem um completo com as telas, como no exemplo do forum inter??

abs.

obg.

id=quote>id=quote>

Colega aquela imagem do forum internancional, Ã© exatamente o que esta no samples , compila la para vc ver, Ã© exatamente a mesma...

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

kapiaba · October 26, 2011

citaÃ§Ã£o:

citaÃ§Ã£o:
Friend, vc. nÃ£o tem um completo com as telas, como no exemplo do forum inter??

abs.

obg.

id=quote>id=quote>
Colega aquela imagem do forum internancional, Ã© exatamente o que esta no samples , compila la para vc ver, Ã© exatamente a mesma...

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

id=quote>id=quote>

Friend, eu acho que nÃ£o... minha versÃ£o nÃ£o tem este trem ai nÃ£o... abs.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

kapiaba · October 26, 2011

Here is a link where you can download it.

http://www.xharbour.com/xhc/index.asp?page=xhc_download.asp&type=dla&auth=517&show_h=8&show_i=8&show_sub=2

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Luiz Fernando · October 26, 2011

citaÃ§Ã£o:
Here is a link where you can download it.

id=quote>id=quote>

Colega de uma olhada no seu email(kapiaba@brfree.com.br)

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

kapiaba · October 27, 2011

citaÃ§Ã£o:

citaÃ§Ã£o:
Here is a link where you can download it.

id=quote>id=quote>
Colega de uma olhada no seu email(kapiaba@brfree.com.br)

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

id=quote>id=quote>

Colega, este email nÃ£o existe mail... A OI comprou o provedor e tirou deo ar.

Veja meu rodapÃ©, please!!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Theotokos · October 27, 2011

Bom Dia!

Mande para mim tmb! quero testar esta outra opÃ§Ã£o.

obgdo...

rone@rl-informatica.net

Luiz Fernando · October 27, 2011

citaÃ§Ã£o:
Bom Dia!

Mande para mim tmb! quero testar esta outra opÃ§Ã£o.

obgdo...

rone@rl-informatica.net

id=quote>id=quote>

Ola Rone,como dize acima o GMAPD.PRG esta no samples do fivewin, isto deste de 2007, Ã© so compilar la...e o cÃ³digo do mesmo esta na integra tb neste tÃ³pico que coloquei acima...

AbraÃ§os

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

Luiz Fernando · October 28, 2011

Kapiaba este exemplo do GMAPD ele localiza um unico endereÃ§o, aquele que lhe passaram o link para download no forum internacional o WEPMAP2 Ã© interessante pois vc pode marcar mais de um endereÃ§o, mais ao tentar compilar aqui deu erro nas linhas abaixo, vc conseguiu compilar ele ai...

DEFAULT( @cStreet, '' )

DEFAULT( @cCity, '' )

DEFAULT( @cState, '' )

DEFAULT( @cZip, '' )

DEFAULT( @cCountry, '' )

id=code>id=code>

AbraÃ§os

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

kapiaba · October 28, 2011

Poste o erro.log que eu pergunto no forum inter.

obg, abs

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Luiz Fernando · October 28, 2011

citaÃ§Ã£o:
Poste o erro.log que eu pergunto no forum inter.

id=quote>id=quote>

Kapiaba o erro da na hora de compilar...

unresolved external _HB_FUN_DEFAULT refenced from WEBMA.OBJ

Obs: tentei compilar com o 804 e 912

Vlw Obrigado

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

kapiaba · October 28, 2011

WEBMA.OBJ ???

NÃ£o seria WEBMAP.OBJ ??

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Luiz Fernando · October 28, 2011

citaÃ§Ã£o:
WEBMA.OBJ ???

NÃ£o seria WEBMAP.OBJ ??

id=quote>id=quote>

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

kapiaba · October 28, 2011

citaÃ§Ã£o:

citaÃ§Ã£o:
WEBMA.OBJ ???

NÃ£o seria WEBMAP.OBJ ??

id=quote>id=quote>
opa Ã© este mesmo esqueci do P, Ã© a pressa na hora de escrever...

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

id=quote>id=quote>

Ok. perguntei no inter, vamos esperar...

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=9183&start=60

Obg, abs.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

zekasan · October 28, 2011

por acaso vocÃª incluiu o webmap.prg?

FWH 8.08 - xHarbour - xDev - VLib

LuisÃ£o · October 28, 2011

DEFAULT( @cStreet, '' )

DEFAULT( @cCity, '' )

DEFAULT( @cState, '' )

DEFAULT( @cZip, '' )

DEFAULT( @cCountry, '' )

Isso deve ser equivalente a isso

DEFAULT cStreet:= ""

DEFAULT cCity:= ""

DEFAULT cState:= ""

DEFAULT cZip:= ""

DEFAULT cCountry:= ""

Luis Fernando Jr. (LuisÃ£o)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

luis.fernando.majr@gmail.com

juninho_luisao@hotmail.com (sÃ³ msn)

Skype luis.fernando.jr

http://www.luisfernandojr.com

Pegar um CEP ou EndereÃ§o via Google Maps

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation