GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
WX - Google Maps Autocomplete (endereco) - GoogleMapsAutocomplete(endereco)
WX - Google Maps Autocomplete (endereco) - GoogleMapsAutocomplete(endereco)
Iniciado por BOLLER, nov., 09 2018 9:42 PM - Sem resposta
Conecte-se…
BOLLER
#1
Membro registado
3.657 mensagems
Popularité : +175 (223 votes)
Publicado em novembro, 09 2018 - 9:42 PM
// Summary: <specify the procedure action>
// Syntax:
//GoogleMapsAutocomplete (<endereco>)
//
// Parameters:
//
endereco: <specify the role of endereco>
// Return Value:
//
None
//
// For instance:
// Indicate an example.
//
//
xmljson: <specify the role of xmljson>
//
XmlJson: <specify the role of XmlJson>
//
opcao: <specify the role of opcao>
//
geocode: <specify the role of geocode>
Procedure
GoogleMapsAutocomplete
(
endereco
)
//https://developers.google.com/maps/documentation/javascript/examples/places-autocomplete
//https://developers.google.com/maps/documentation/javascript/places-autocomplete
//https://developers.google.com/maps/documentation/javascript/reference/places-widget#SearchBoxOptions
//exemplo
//https://maps.googleapis.com/maps/api/place/autocomplete/xml?input=clavio&language=pt-BR&key=AIzaSyDbSVKYPwB1a-_vPbDzAr6LgAfIj4iW2hc
Url
is string
Url
=
"https://maps.googleapis.com/maps/api/place/autocomplete/json?input="
ApiKey
is string
=
"&key=AIzaSyDbSVKYPwB1a-_vPbDzAr6LgAfIj4iW2hc"
// api do Boller
Establishment
is string
=
"&types=establishment"
TypeEstablisment
is string
=
"&type=restaurant"
Fields
is string
=
"&fields=opening_hours"
PerimetroMetros
is string
=
"&locationbias=circle:2000"
s
Language
is string
=
"&language=pt-BR"
//https://developers.google.com/maps/faq#languagesupport
//Language Code
Language
Language Code
Language
//ar
Arabic
lt
Lithuanian
//be
Belarusian
lv
Latvian
//bg
Bulgarian
mk
Macedonian
//bn
Bengali
ml
Malayalam
//ca
Catalan
mr
Marathi
//cs
Czech
my
Burmese
//da
Danish
nl
Dutch
//de
German
no
Norwegian
//el
Greek
pa
Punjabi
//en
English
pl
Polish
//en-Au
English (Australian)
//en-GB
English (Great Britain)
//pt
Portuguese
//pt-BR
Portuguese (Brazil)
//pt-PT
Portuguese (Portugal)
//es
Spanish
//eu
Basque
ro
Romanian
//fa
Farsi
ru
Russian
//fi
Finnish
sk
Slovak
//fil
Filipino
sl
Slovenian
//fr
French
sq
Albanian
//gl
Galician
sr
Serbian
//gu
Gujarati
sv
Swedish
//hi
Hindi
ta
Tamil
//hr
Croatian
te
Telugu
//hu
Hungarian
th
Thai
//id
Indonesian
tl
Tagalog
//it
Italian
tr
Turkish
//iw
Hebrew
uk
Ukrainian
//ja
Japanese
uz
Uzbek
//kk
Kazakh
vi
Vietnamese
//kn
Kannada
zh-CN
Chinese (Simlified)
//ko
Korean
zh-TW
Chinese (Traditional)
//ky
Kyrgyz
//Torre Eifel
//https://www.google.com/maps/@?api=1&map_action=pano&viewpoint=48.857832,2.295226&heading=-45&pitch=38&fov=80
IF
Length
(
endereco
) >
3
THEN
//
if opcao = 1 //All
//
Url = Url + endereco + sLanguage + ApiKey //ok
//
else if opcao = 2 //Establishment
//
Url = Url + endereco + sLanguage + Establishment + ApiKey
//
ELSE IF opcao = 3 //Address
//
Url = Url + endereco + sLanguage + Establishment + TypeEstablisment + Fields + ApiKey
//
ELSE IF opcao = 4 //Geocode
//
Url = Url + endereco + sLanguage + geocode + ApiKey
//
ELSE IF opcao = 5 //Strict Bounds - viewport atual
//
Url = Url + endereco + sLanguage + PerimetroMetros + ApiKey
//
else
//
Url = Url + endereco + sLanguage + ApiKey
//
END
// endereco = URLEncode(endereco)
Url
=
Url
+
endereco
+
s
Language
+
ApiKey
HTTPRequest
(
Url
)
buf
Resultado
is
Buffer
=
HTTPGetResult
(
)
IF
PositionOccurrence
(
buf
Resultado
,
"<!DOCTYPE html>"
,
firstRank
,
FromBeginning
) =
0
THEN
v
Resultado
is
Variant
=
JSONToVariant
(
buf
Resultado
)
LooperDeleteAll
(
LOOP_Enderecos
)
//limpa o combo
//leitura do resultado do httpgetresult e alimenta a combo os os resultados
x
is int
umavez
is int
enderecoLocalizado
is string
LOOP
(
20
)
x
+
=
1
Trace
(
v
Resultado.predictions
[x]
.
description
..
Value
)
enderecoLocalizado
=
v
Resultado.predictions
[x]
.
description
..
Value
IF
Length
(
enderecoLocalizado
) >
3
THEN
IF
umavez
=
0
THEN
umavez
=
1
E
DT_Busca
=
enderecoLocalizado
END
LooperAdd
(
LOOP_Enderecos
,
enderecoLocalizado
)
ELSE
BREAK
END
END
LOOP_Enderecos
..
Visible
=
True
LooperDisplay
(
LOOP_Enderecos
,
taCurrentFirst
)
END
END
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto