Google Maps - <<<

[Marcos Guedes]

Relembrando a primeira mensagem :

Realize suas consultas por localidades utilizando o recursos do Google Maps:

Como utilizar:

Código:

CLEAR

LOCAL nomecursor AS STRING
m.nomecursor = m.googleMaps("Morro do Careca")

IF USED(m.nomecursor) THEN
   SELECT(m.nomecursor)
   GO TOP
   BROWSE
   USE IN SELECT(m.nomecursor)
ENDIF

A função:

Código:

FUNCTION googleMaps AS STRING
   *!* Autor: Marcos Guedes
   *!* Fonte: http://forum.programacaobrasil.com/visual-foxpro-f4/google-maps-t384.htm
   LPARAMETERS localidade AS STRING, nomecursor AS STRING
   *!*
   LOCAL url AS STRING
   LOCAL parametros AS STRING
   LOCAL loxmlhttp AS OBJECT
   LOCAL strtemp2 AS STRING
   LOCAL cnome AS STRING
   LOCAL endereco AS STRING
   LOCAL cep AS STRING
   LOCAL ddd AS STRING
   LOCAL telefone AS STRING
   LOCAL conttemp AS INTEGER
   *!*
   IF (VARTYPE(m.localidade)!="C") THEN
      m.localidade = ""
   ENDIF
   IF (VARTYPE(m.nomecursor)!="C") OR EMPTY(m.nomecursor) THEN
      m.nomecursor = SYS(2015)
   ENDIF
   *!*
   m.url = "http://maps.google.com.br/maps?f=q&source=s_q&output=js&hl=pt-BR&geocode=&q=" + m.localidade + "&btnG=Pesquisar+no+Mapa&vps=1&jsv=182b&sll=-14.179186%2C-50.449219&sspn=33.483081%2C131.660156&abauth=fa677140%3AOYVhMvJnYkyS63VFfp1D9geCJUo&absince=21"
   m.parametros = ""
   *!*
   m.loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")
   *!* Consulta a localidade a partir do site do Google Maps (http://maps.google.com/maps)
   m.loxmlhttp.OPEN("POST",m.url,.F.)
   m.loxmlhttp.setrequestheader("content-type", "application/x-www-form-urlencoded")
   m.loxmlhttp.SEND(m.parametros)
   m.lcresponse = loxmlhttp.responsetext
   m.loxmlhttp = .NULL.
   *!* Cursor que guardará as informações encontradas
   CREATE CURSOR (m.nomecursor) (cnome c(50), endereco c(100), cep c(20), ddd c(2), telefone c(10))
   *!*
   m.conttemp = 1
   m.cnome = STREXTRACT(m.lcresponse, [,name:"],[",],m.conttemp)
   DO WHILE !EMPTY(m.cnome)
      *!* Endereço completo
      m.strtemp2 = ALLTRIM(STRTRAN(STREXTRACT(m.lcresponse, [addressLines:["],'"],',m.conttemp),["], ""))
      *!* Extrai o CEP do endereço completo
      m.cep = STRTRAN( GETWORDNUM(m.strtemp2,GETWORDCOUNT(m.strtemp2,","),",") ,"-", "")
      *!* Extrai o endereço, sem o CEP
      m.endereco = ALLTRIM(STRTRAN( LEFT(m.strtemp2, LEN(m.strtemp2)-LEN(m.cep)) , ",", "", ;
         IIF(OCCURS(",",m.strtemp2)<=0,1,OCCURS(",",m.strtemp2))))
      *!* Telefone completo      
      m.strtemp2 = STREXTRACT(m.lcresponse, [phones:[{number:"(0xx)],'"}],',m.conttemp)      
      *!* Extrai o DDD do telefone completo
      ddd = GETWORDNUM(m.strtemp2, 1)
      *!* Extrai o telefone, sem o DDD
      m.telefone = GETWORDNUM(m.strtemp2, 2)
      *!* Insere os dados no cursor
      INSERT INTO (m.nomecursor) (cnome, endereco, cep, ddd, telefone) ;
         VALUES (m.cnome, m.endereco, ALLTRIM(m.cep), m.ddd, m.telefone)
      *!*
      m.conttemp = m.conttemp + 1
      *!* Próximo local encontrado
      m.cnome = STREXTRACT(m.lcresponse, [,name:"],[",],m.conttemp)
   ENDDO
   *!* Retorna o nome do cursor contendo as possíveis informações
   RETURN m.nomecursor
ENDFUNC

Espero que seja útil aos colegas!


Nota: Havendo alguma falha, ou algo que possa ser melhorado, favor comunicar!

[Rosana]

Boa noite colegas !
É possível pegar o resultado das distância em kms entre dois endereços ?
Obrigada !

[Marcos Guedes]

Rosana, este é o próximo passo que tentarei filtrar com a API do Google.
Assim que obtiver resultados, posto neste tópico.

[Rosana]

Marcos, como sou iniciante em programação vfp é ainda difícil alguns processos. Obrigada pela atenção !

[Vianna]

bem legal
TKS

[barry]

Marco blz? amigo eu não consegui abrir. Quando mostra o browse o que devo fazer para ir ao link? quando clico ESC ele fecha o browse e nada mostra


Agradecido

[barry]

OI Marcos precisa responder mais não amigo a segunda rotina postada era p que eu estava precisando

um abraço.

Breve mandarei para cá o projeto do bina todo funcionando com todos os detalhes placas fax compativeis e tudo mais

Atenciosamente

[Marcos Guedes]

OI Marcos precisa responder mais não amigo a segunda rotina postada era p que eu estava precisando

um abraço.

Breve mandarei para cá o projeto do bina todo funcionando com todos os detalhes placas fax compativeis e tudo mais

Atenciosamente

Ok, barry!
Qualquer dúvida, é só postar.

Quanto ao projeto da Binda, certamente será muito útil.

[Marcos Guedes]

Pessoal, movi as mensagens do sobre Bina para o tópico referente à mesma:
[Você precisa estar registrado e conectado para ver este link.]

[hugo]

so te lembrando disto marcos!

valeu

[Marcos Guedes]

Não esqueci!


Apenas estou sem tempo...


Mas para quem gosta de estudar código e dar continuidade, esta é a base.

[hugo]

dei o toque ai pra casar com o topico la do google maps pra vb juntamente
com o link de utilitario de conversao de codigo vb para vfp

captou ne?

[Marcos Guedes]

captado!

[coconaithy]

Marcos, ref. ao exemplo do dia 06/11 as 18:25.
achei muito bkana e vi que terei uma utilizade.

uma duvida estou numa rede privada onde alguns usuarios tem acesso a internet e outro não, teria como antes de fazer a consulta solicitar usurio e senha do proxy? ou usuario e senha de logon de rede?

[alceu11]

PARA pegar o nome da maquina e o usuario logado
Ctrl+F2 , abra a tela de command. e digite , e veja o resultado

Código:


 ? SYS(0)
**So tera ke pegar a senha e gravar tudo em uma tabela.
**
*****Olha 1 exemplo de codigo para gravar em uma tabela logado
set safety off
create table logado(maquina c(30),usuario c(20), senha c(20))
WRETOR=SYS(0)

INSERT INTO LOGADO (MAQUINA) VALUES(GETWORDNUM(WRetor, 1, "#"))
REPLACE LOGADO.USUARIO WITH GETWORDNUM(WRetor, 2, "#")
BROWSE LAST
***so uma forma vc podera incrementar mais isto



Se for pegar o Ip da maquina
codigo

Código:



oSocket = CreateObject("MSWinsock.Winsock")
? oSocket.LocalIP



veja o link de mais um exemplo com video.

[Você precisa estar registrado e conectado para ver este link.]

[alceu11]

Como chegar,rota , e distancia, entre 2 Ceps, da mesma cidade, segue um exemplo

****

Código:


DECLARE INTEGER SetForegroundWindow IN user32.dll INTEGER
origem="02727-000"
destino="02728-090"
oIE = CREATEOBJECT("Internetexplorer.application")
oIE.navigate("http://maps.google.com.br/maps?hl=pt-BR&cp=29&gs_id=5&xhr=t&q=from:+"+origem+"+to:+"+destino)
oIE.Visible = .T.
=SetForegroundWindow(oIE.HWND)


depois so adaptar com a resposta dada em 06/11 as 18,25hs da pag.2 deste topico