Mapa Obtém longitude e latitude

Mapa Obtém longitude e latitude


/ Obtém longitude e latitude do endereço
Localization = GglAddressToCoordinates(EDT_Endereco + " " + EDT_numero + " " + EDT_Cidade)
rLatitude = Localization..Latitude
rLongitude = Localization..Longitude
[09:19:05] Julio Cesar Pedroso: solamente hesto
[09:19:29] Julio Cesar Pedroso: te voy a passar um exemplo completo
[09:19:40] Julio Cesar Pedroso: gglParameters is gglMapParameter
//gglMarker is a gglMarker
rLatitude, rLongitude are reals
Localization is gglCoordinate
stipomapa is string = GetTipoMapa()
M1 is gglMarker

// Obtém longitude e latitude do endereço
Localization = GglAddressToCoordinates(EDT_Endereco + " " + EDT_numero + " " + EDT_Cidade)
rLatitude = Localization..Latitude
rLongitude = Localization..Longitude
IF EDT_Latitude = 0
 EDT_Latitude = rLatitude
END
IF EDT_Longitude = 0
 EDT_Longitude = rLongitude
END
STC_Latitude_Longitude = "Latitude: " + EDT_Latitude + " Longitude: " + EDT_Longitude
// Cria um marcador para o endereço
M1..Latitude = EDT_Latitude 
M1..Longitude = EDT_Longitude
M1..Color= 0x0000FF
M1..Size = gglSmall
Add(gglParameters.Marker,M1)
//gglparameters.format = gglJPG
//gglParameters.Language = "fr"
// Mostra o endereço em um controle de Imagem
IMG_MAPA = GglGetStaticMap(rLatitude, rLongitude, Zoom, IMG_MAPA..Width, IMG_MAPA..Height, stipomapa, gglParameters)
IMG_MAPA..Visible = True
IF ErrorOccurred THEN
 Error()
END