ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: calcul de distance entre 2 points gps   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

lun. 06 août 2018, 17h06
Mike Gagnon
Canada Canada

atoutfox.public.association

Re: calcul de distance entre 2 points gps

Mais ceci fonctionne toujours.
? GetDistanceOnly('Quebec,Quebec','Montreal,Quebec')
Procedure GetDistanceOnly(tcFrom,tcTo)
  *_Screen.MousePointer = MOUSE_HOURGLASS
  *+++++++++  *** Changed 2015/02/20 new way of getting getting distance coordinates, more accurate ++++++++++++++++++++
  sQuery = "http://dev.virtualearth.net/REST/V1/Routes/Driving?o=xml&wp.0=[tcFrom]&wp.1=[tcTo]&distanceUnit=mi&avoid=minimizeTolls&optimize=distance&key=AioySnPWc9XTkxuHepelADYwDt_5gGnlHDC638UJq8tCdpLOmXAbJrnJ4bQILFro"
  sQuery = Strtran(sQuery,'[tcFrom]',tcFrom)
  sQuery = Strtran(sQuery,'[tcTo]',tcTo)
  *sQuery = Strtran(sQuery,'[BING_MAP_KEY]','AioySnPWc9XTkxuHepelADYwDt_5gGnlHDC638UJq8tCdpLOmXAbJrnJ4bQILFro')
  xhrRequest= Createobject("Msxml2.ServerXMLHTTP")
  xhrRequest.Open ("GET", sQuery, .F.)
  xhrRequest.Send()
  oXML=Createobject('msxml.domdocument')
  oXML.LoadXML(xhrRequest.ResponseText)
  m.ixnDistance= oXML.selectSingleNode("/Response/ResourceSets/ResourceSet/Resources/Route/TravelDistance").XML
  lnResponse=Strextract(m.ixnDistance,">","</TravelDistance>")
  Return lnResponse
Endproc


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019168
19 099 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0