German Geocoder nicht mehr einsetzbar?

Wolli013

Active Member
Licensed User
Ich habe die ganze Zeit die Geocoder Lib. erfolgreich genutzt.
Die letzte Zeit scheint es aber nicht mehr zu laufen. Die App stürtz komplett ab.
Ich habe aus den Lat und Lon Adressen die Stadt, Straße und Hausnummer ausgelesen, was ich auch wieder brauche.
Gibt es jetzz dafür eine Alternative?

B4X:
Sub Geocoder1_GeocodeDone(Results() As Address, Tag As Object)

Log("Geocoder1 = Fertig")
 
If Results.Length > 0 Then
    
    lblHausnummer.Visible = True
 
    Dim geostpr(5) As String
    geostpr = Regex.Split(""&Chr(34), Results(0)) ' zerteilt den String nach Anführungszeichen!
 
Geoplz = geostpr(1)

geostpr = Regex.Split(",", Geoplz) ' zerteilt den String nochmal
Geostrasse = geostpr(0)
Geoplz = geostpr(1)

lblHausnummer.Text = Geoplz.Trim & ", " & Geostrasse.Trim
Else     
End If
 
End Sub
 

klaus

Expert
Licensed User
Welche Version von Geocoder benutzt Du?
Ich habe Version 2.01.
Die funktioniert bei mir, habe sie gerade noch mal getestet.
Results ist ein Address Object mit:
Stadt = Results(0).Locality
Strasse = Results(0).Thoroughfare
Hausnummer = Results(0).SubThoroughfare
Postleitzahl = Results(0).PostalCode

In meinem Fall, mit meinen Lat / Lon Koordinaten ist AddressLines leer.
 

Wolli013

Active Member
Licensed User
Woran auch immer es liegt mus ich mal schauen.
Im W-Lan hängt es sich fast ständig auf, über Handykarte geht es.
Früher ging es schnell seit den neuen Androids Update nicht mehr.
Hier mal meine Manifest


B4X:
AddManifestText(
<uses-sdk android:minSdkVersion="16" android:targetSdkVersion="29"/>
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")

'AddPermission(android.permission.READ_EXTERNAL_STORAGE) ' Allows an application to read from external storage.
'AddPermission(android.permission.WRITE_EXTERNAL_STORAGE) ' Allows an application to write to external storage.
'End of default text.

SetApplicationAttribute(android:theme, "@style/MyAppTheme")

CreateResource(values, theme.xml,
<resources>
    <style name="MyAppTheme" parent="Theme.AppCompat.Light.NoActionBar">
        <item name="colorPrimary">#FF0064A9</item>
        <item name="colorPrimaryDark">#FF005896</item>
        <item name="colorAccent">#FF0064A9</item>
        <item name="windowNoTitle">true</item>
        <item name="windowActionBar">false</item>
    </style>
    <style name="ToolbarMenu" parent="Base.ThemeOverlay.AppCompat.ActionBar">
        <item name="android:textColorPrimary">#fff</item>
        <item name="android:colorBackground">#FF0064A9</item>
    </style>
</resources>
)

AddManifestText(
<uses-permission
  android:name="android.permission.WRITE_EXTERNAL_STORAGE"
  android:maxSdkVersion="19" />
)

AddApplicationText(
  <provider
  android:name="android.support.v4.content.FileProvider"
  android:authorities="$PACKAGE$.provider"
  android:exported="false"
  android:grantUriPermissions="true">
  <meta-data
  android:name="android.support.FILE_PROVIDER_PATHS"
  android:resource="@xml/provider_paths"/>
  </provider>
)
CreateResource(xml, provider_paths,
   <files-path name="name" path="shared" />
)
 

Wolli013

Active Member
Licensed User
Wenn ich die GPS Daten vorher vergebe geht es schnell ich lasse sie ja suchen und zwar über GPS.

B4X:
Sub GPS_LocationChanged (Location1 As Location)     
 
'Autodatenübernahme-----------------------------------------------------------
    Geocoder1.GetFromLocation(Location1.Latitude, Location1.Longitude, 1, Null)
'Autodatenübernahme-----------------------------------------------------------

End Sub
 

Wolli013

Active Member
Licensed User
Ich teste es drinnen und draußen.
Im W-Lan hängt es sich meist auf und über Handykarte geht es.

B4X:
GPS1.Initialize("GPS") 'GPS starten

 If GPS1.GPSEnabled = False Then
  Else
    GPS1.Start(0, 0) 'Listen to GPS with no filters.
    Geocoder1.Initialize3("Geocoder1", "de", "DE")
  End If
 
Top