AIDE Google Maps et temps de parcours

Tu as un tres bon exemple sur un exemple pcsoft wdautocomplete ( lst 115)

pour info j'ai fait des modif perso sur leur focntion de completage d'adresse.

ma procedure :

Code (Windev):

PROCÉDURE GglAdressePropositions( LOCAL sAdresse est une chaîne, LOCAL eTypePropositions est une PlaceType = TousLesTypes,limitationrechervche est un booléen=Vrai,distancerecherche est entier=100000 ) : tableau associatif de chaînes

// Documentation de l'API Place Autocomplete
// [URL='https://developers.google.com/places/web-service/autocomplete']Place Autocomplete  |  Places API        |  Google Developers [/URL]

// Envoie
// > adresse saisie
// > clé API
// > langue FR et résultats limités à la France
// > type de résultats
tabprops2 est tableau associatif  de chaînes
oRep est une httpRéponse
parametre_recherche_optionel est une chaîne
SI limitationrechervche=Vrai ET distancerecherche>0 ALORS
    parametre_recherche_optionel="&location=48.853463,2.348774&radius="+distancerecherche+"&strictbounds"
FIN

oRep = HTTPEnvoie( PLACES_URL_API + "?input="+

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

( sAdresse )+"&key="+

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

( PLACES_CLE_API )+"&language=fr&components=country:fr" +parametre_recherche_optionel+ ( [ "&type=" ] + eTypePropositions..Valeur ) )

SI oRep..CodeEtat = 200 ALORS
 
    // Analyse le résultat
    vPrédictions est un Variant =

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

( oRep..Contenu )
 
    // On a des résultats
    SI vPrédictions.status = "OK" ALORS
 
        // Conserve les "prédictions"
        POUR TOUT vPrédiction DE vPrédictions.predictions
            vPrédiction.description=

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(vPrédiction.description,", France","")
            tabprops2[ vPrédiction.description]=vPrédiction.place_id
        FIN
 
        // Pas de résultat
    SINON SI vPrédictions.status = "ZERO_RESULTS" ALORS
 
        // RAZ
        tabprops2=[]
    SINON
 
        // Déclenche une erreur
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

( 2, "Une erreur est survenue : " + vPrédictions.status + [ RC ] + ( vPrédictions.error_message..Existe ? ( "" + vPrédictions.error_message ) SINON "" ) )
    FIN
SINON
   

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

( 3, "Le service n'a pas pu être contacté." + [ RC ] +

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

)
FIN

RENVOYER tabprops2

CAS EXCEPTION:
tabprops2.

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

()

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

( 1, "Une erreur fatale est survenue : " +

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

)
RENVOYER tabprops2
 

avec bien sur PLACES_URL_API = "

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

"

 

apres c'est les api place que j'ai utiliser toi ca sera les api route il me semble
mais fonctionne exactement pareil;