PROCEDURE glo_rot_distancia(origem,destino)
arquivo is string=gsdirtemp+DateSys()+TimeSys()+".xml"
HTTPAddParameter("GoogleMaps","key","AIzaSyDbSVKYPwB1a-_vPbDzAr6LgAfIj4iW2hc")//CHAVE GOOGLE
HTTPDestination(arquivo)
IF NOT HttpRequest(StringBuild("http://maps.googleapis.com/maps/api/distancematrix/xml?origins=%1&destinations=%2&mode=driving&language=pt-BR&sensor=false",Replace(origem," ","%20"),Replace(destino," ","%20"))) THEN
RESULT(0)
END
sArqxml is string=fLoadText(arquivo)
//fDelete(arquivo)
IF NOT XmlDocument("XML",sArqxml) THEN
RESULT(0)
END
RESULT(XMLRead("XML","/DistanceMatrixResponse/row/element/distance/text")) |