Spanish Desapareció el mapa de google [Solucionado]

ebqlabs

Active Member
Licensed User
Hola, estaba probando una aplicación de un ejemplo de mapa de google
Funcionaba perfecto, pero a retomar el proyecto el mapa de google desaparecio

A alguien mas le paso este problema ?

B4X:
#Region  Project Attributes
    #ApplicationLabel: mapa google
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

#Region  Project Attributes
    #ApplicationLabel: mapa google
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
    #AdditionalRes: C:\Android\extras\google\google_play_services\libproject\google-play-services_lib\res, com.google.android.gms
 
#End Region

Sub Process_Globals

End Sub

Sub Globals
   Dim mFragment As MapFragment
   Dim gmap As GoogleMap
   Dim MapPanel As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
   MapPanel.Initialize("")
   Activity.AddView(MapPanel, 0, 0, 100%x, 100%y)
   If mFragment.IsGooglePlayServicesAvailable = False Then
      ToastMessageShow("Google Play services not available.", True)
   Else
      mFragment.Initialize("Map", MapPanel)
   End If
End Sub
Sub Map_Ready
   Log("map ready")
   gmap = mFragment.GetMap
   If gmap.IsInitialized = False Then
      ToastMessageShow("Error initializing map.", True)
   Else
      gmap.AddMarker(36, 15, "Hello!!!")
      Dim cp As CameraPosition
      cp.Initialize(36, 15, gmap.CameraPosition.Zoom)
      gmap.AnimateCamera(cp)
   End If
End Sub

Este era el ejemplo donde me mostraba el mapa, pero ahora por X motivo ya no aparece el mapa de google.

le dejo una imagen de prueba

vrbrf7.png
 
Last edited:

JordiCP

Expert
Licensed User
Longtime User
¿Se llega a disparar el evento "Map_Ready"?

Lo otro es mirar conectividad y permisos de ubicación en tu dispositivo, a ver si han cambiado respecto a la última vez
 

ebqlabs

Active Member
Licensed User
¿Se llega a disparar el evento "Map_Ready"?

Lo otro es mirar conectividad y permisos de ubicación en tu dispositivo, a ver si han cambiado respecto a la última vez

En el map ready, al llamarlo me tira el mensaje

Google Play services not available.


Google Play servicios no disponibles . a que se deberá. Que tendría que solucionar, ya que este ejemplo funcionaba anteriormente
 

JordiCP

Expert
Licensed User
Longtime User
Qué raro...

Te diría que pruebes con otro dispositivo para descartar, si tienes alguno a mano

Si no, sólo se me ocurre que haya cambiado por error alguna cosa del manifest, o que hayan cambiado las versiones de las librerias gms respecto a as que tenías.
 

ebqlabs

Active Member
Licensed User
Qué raro...

Te diría que pruebes con otro dispositivo para descartar, si tienes alguno a mano

Si no, sólo se me ocurre que haya cambiado por error alguna cosa del manifest, o que hayan cambiado las versiones de las librerias gms respecto a as que tenías.


Si, quizás como he creado otros proyectos algo paso. Bueno volví a repetir los paso de crear clave y todo. Ahora funciona, gracias

Lo que si nunca me ha salido son los botones: zoom (+) (-) y el de ubicación. Tendré que poner otra linea de código ?

Gracias
 

JordiCP

Expert
Licensed User
Longtime User
Prueba a añadir estas lineas después del "else", con los valores deseados

B4X:
Sub Map_Ready
  gmap = mFragment.GetMap
   If gmap.IsInitialized = False Then
      ToastMessageShow("Error initializing map.", True)
   Else
      gmap.MyLocationEnabled=True  
      gmap.GetUiSettings.ZoomControlsEnabled=False 
      gmap.GetUiSettings.MyLocationButtonEnabled=True   
      '...  
  End If
'...
End Sub
 

ebqlabs

Active Member
Licensed User
Prueba a añadir estas lineas después del "else", con los valores deseados

B4X:
Sub Map_Ready
  gmap = mFragment.GetMap
   If gmap.IsInitialized = False Then
      ToastMessageShow("Error initializing map.", True)
   Else
      gmap.MyLocationEnabled=True
      gmap.GetUiSettings.ZoomControlsEnabled=False
      gmap.GetUiSettings.MyLocationButtonEnabled=True 
      '...
  End If
'...
End Sub

Ok, gracias. Todo bien pero hay que ahora me deja metido...
Al actualizar la apk me sale que el paqueta ya esta instalado. Borro la apk, vuelvo instalarla y no aparece el mapa.

Al parecer cada vez que actualice la apk tendré que cambiar la clave de la api ?
 

ebqlabs

Active Member
Licensed User
Ya lo solucione. Cada vez que abra el proyecto, tengo que volver a cargar la clave

Tools ----> Private Sing Key ---> y cargar el archivo creado (keystore)

Saludos..
 
Top