FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
WX - Google Maps Autocomplete (endereco) - GoogleMapsAutocomplete(endereco)
WX - Google Maps Autocomplete (endereco) - GoogleMapsAutocomplete(endereco)
Débuté par BOLLER, 09 nov. 2018 21:42 - Aucune réponse
Connectez-vous…
BOLLER
#1
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 09 novembre 2018 - 21:42
// 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/
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte