|
Started by adrianoboller, Nov., 18 2014 1:41 PM - 1 reply |
| |
| | | |
|
| |
Registered member 3,657 messages Popularité : +175 (223 votes) |
|
Posted on November, 18 2014 - 1:41 PM |
Procedure WS_LeituraXml()
IF GloDebugSN = "S" THEN Info("LeituraXml") END
Rua, Numero, Bairro01, Bairro02, Cidade, Estado, Pais, CEP, Latitude, Longitude is string = ""
HTTPRequest("http://maps.google.com/maps/api/geocode/xml?address=Rua+Professora+Antonia+Reginato+Vianna,+337+Curitiba,+PR&sensor=true")
XMLResultado is string = WS_Android_IOS_HTTPGetResult()
XmlDoc is XMLDocument
XmlDoc = XMLOpen(XMLResultado, fromString)
IF (XmlDoc.GeocodeResponse.status) = "OK" THEN
FOR EACH address_component OF XmlDoc.GeocodeResponse.result on address_component
IF CEP = ""
IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "street_number") Numero = address_component.long_name END IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "route") Rua = address_component.long_name END IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "neighborhood") Bairro01 = address_component.long_name ELSE IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "sublocality") Bairro02 = address_component.long_name END IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "locality") Cidade = address_component.long_name ELSE IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "administrative_area_level_2") Cidade = address_component.long_name END IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "administrative_area_level_1") Estado = address_component.long_name END IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "country") Pais = address_component.long_name END IF (address_component.long_name <> "" AND address_component.short_name <> "" AND address_component.type = "postal_code") CEP = address_component.long_name END
END
FOR EACH geometry OF XmlDoc.GeocodeResponse.result on geometry IF (geometry.location.lat <> "") Latitude = geometry.location.lat END END
FOR EACH geometry OF XmlDoc.GeocodeResponse.result on geometry IF (geometry.location.lng <> "") Longitude = geometry.location.lng END END
END
END
Info(Latitude,Longitude) |
| |
| |
| | | |
|
| | |
| |
Registered member 3,657 messages Popularité : +175 (223 votes) |
|
Posted on December, 09 2017 - 12:21 AM |
IF InAndroidMode() = True THEN FOR nCont = 1 TO sTotal StringToDate(sData = XMLExtractString(XML_Retorno,"Data",nCont)) sDescricao = XMLExtractString(XML_Retorno,"Descricao",nCont) sIdFotos = XMLExtractString(XML_Retorno,"idGaleriaFotos",nCont) LooperAddLine(LOOP_Fotos,sData,sDescricao,sIdFotos) 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/ |
| |
| |
| | | |
|
| | | | |
| | |
|