aferra Posted March 8, 2019 Report Share Posted March 8, 2019 Bom dia. Alguém consegui usar a nova forma de utilização do google maps com api key ? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 8, 2019 Report Share Posted March 8, 2019 nova forma ? como é? Quote Link to comment Share on other sites More sharing options...
aferra Posted March 8, 2019 Author Report Share Posted March 8, 2019 Opa. vc tem algo funcionando que veja o trajeto de um ponto ao outro? se sim manda ai. esse é o novo onde tem que colocar a api key, de outra maneira não está indo. https://maps.googleapis.com/maps/api/distancematrix/json?units=imperial&origins=Washington,DC&destinations=New+York+City,NY&key=YOUR_API_KEY kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 8, 2019 Report Share Posted March 8, 2019 Esto? http://www.fivetechsupport.com/forums/viewtopic.php?f=6&t=28033 Quote Link to comment Share on other sites More sharing options...
aferra Posted March 8, 2019 Author Report Share Posted March 8, 2019 Sim, eu tinha visto esses mas não funciona mais. e parece que tem que fazer o cadastro mesmo e ativar a conta com cartão de crédito. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
marcioe Posted March 8, 2019 Report Share Posted March 8, 2019 Sim, eu tinha visto esses mas não funciona mais. e parece que tem que fazer o cadastro mesmo e ativar a conta com cartão de crédito. Olá amigo, seria isso que voce quer Se a resposta for isso T_ENDERECO_CLIENTE := 'RUA DO ENDERECO' T_NUMERO_END_CLIENTE := '0001' && Por Exemplo T_CIDADE_CLIENTE := 'NOME DO MUNICIPIO' && Exemplo São Paulo T_ESTADO_CLIENTE := 'MG' ROTA_GOOGLE_MAPS( (alltrim(upper(T_ENDERECO_CLIENTE))+" "+ALLTRIM(T_NUMERO_END_CLIENTE)+" "+alltrim(upper(T_CIDADE_CLIENTE))+" "+alltrim(upper(T_ESTADO_CLIENTE))) ) function ROTA_GOOGLE_MAPS(v_enderecos) If !IsInternet() MsgInfo('Problemas Com Acesso a Internet !',SISTEMA) return .f. ENDIF &&& Aqui o sistema pega o Endereço da empresa (ou seja da empresa que está usando o sistema) IF SELECT("empresa_mapas") != 0 empresa_mapas->(DbCloseArea()) ENDIF cQuery:='select * from empresa where CODIGO = ' + TRANSFORMA_SQL(M->T_CODI_EMPRESA,'N',06,0) + ' LIMIT 1' use sql cQuery alias "empresa_mapas" new via 'MYSQL' empresa_mapas->( DbGoTop()) *---------------------------------------------------------------------------- msearch := ALLTRIM(v_enderecos) +' / '+; alltrim(empresa_mapas->ENDEMP) +" "+alltrim(empresa_mapas->NUMERO)+","+ alltrim(empresa_mapas->CIDEMP)+' '+alltrim(empresa_mapas->ESTEMP) WebEXE3("https://www.google.com.br/maps/dir/" + MSEARCH) //CARREGA A PAGINA USANDO O CHROME RELEASE msearch return *---------------------------------------------------- Function WebExe3(cLink) // visualiza e navega na pagina *---------------------------------------------------- default cLink:="http://www.google.com" clink:=GetEnv( "ComSpec" )+" /C START "+STRTRAN(cLink," ","+") WAITRUN(cLink, 0 ) RETURN Quote Link to comment Share on other sites More sharing options...
aferra Posted March 9, 2019 Author Report Share Posted March 9, 2019 Ola Marcio, blz? sim assim eu utilizo, a diferença está que uso a ActiveX para mostra na dialog. o que preciso é o retorno do tempo e distancia. e desta maneira não tenho como utilizar pois preciso acumular, em certos momentos, varias entregas. se alguém estiver utilizando dessa maneira e puder compartilhar, agradeço. Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted March 11, 2019 Report Share Posted March 11, 2019 Ola Marcio, blz? sim assim eu utilizo, a diferença está que uso a ActiveX para mostra na dialog. o que preciso é o retorno do tempo e distancia. e desta maneira não tenho como utilizar pois preciso acumular, em certos momentos, varias entregas. se alguém estiver utilizando dessa maneira e puder compartilhar, agradeço. Aferra, quanto a chave, vc faz cadastro com email do gmail e obtém uma chave, só há cobrança a partir de um certo número de de acesso. Quanto a pegar valores de uma API do Google para gravar em banco ou processamento em xharbour, eu criava um arquivo txt com Api Google em seguida eu fazia a leitura xHarbour (alimentando uma variável) e eliminava o arquivo txt. Segue linhas de implementação em javascript para criar arquivo txt, com resultados da API do Google e recuperá-las no (x)Harbour. No caso aponto resultado do Google. var oFSO = new ActiveXObject("Scripting.FileSystemObject"); var txt = oFSO.CreateTextFile("'+cFILE+'", true); txt.WriteLine(aponto); txt.Close(); aferra 1 Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted March 11, 2019 Report Share Posted March 11, 2019 https://drive.google.com/open?id=1KGQA9M1wN5xH2Uj55Nik_xU9sCPql7WL Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 11, 2019 Report Share Posted March 11, 2019 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=36591&p=218336#p218270 aferra 1 Quote Link to comment Share on other sites More sharing options...
aferra Posted March 11, 2019 Author Report Share Posted March 11, 2019 essa dica irei me aprofundar, ela funciona mas lenta. depois o Navarro mandou de outra forma mas precisa encontrar a lib para funcionar. Obrigado Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.