German Geocoder nicht mehr einsetzbar?

[Wolli013]

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?

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

 

[emexes]

'''Not quite what you're looking for, but closely related:

Es ist nicht genau das, wonach Sie suchen, aber es hängt eng zusammen:

https://www.b4x.com/android/forum/threads/country-codes-phones-codes.108292/#post-676928

 

[emexes]

'''This post and the next one - just do a http read, job done

Dies und den nächsten Beitrag - einfach http lesen und fertig

https://www.b4x.com/android/forum/t...-navigation-on-google-map.108193/#post-676409

 

[klaus]

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]

@klaus Version 2.01

Manchmal geht es nach langem warten und manchmal hängt es sich auf.

 

[klaus]

Bei mir reagiert es schnell.

 

[Wolli013]

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

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" />
)

 

[klaus]

Versuche mal mein Testprogramm.

 

[Wolli013]

Danke werde ich nachher mal testen

 

[Wolli013]

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

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

End Sub

 

[Wolli013]

Also, im W-Lan hängt es sich auf aber über die Handkarte geht es, warum auch immer.

 

[klaus]

Bist Du sicher dass es nicht das GPS das hängen bleibt.
Testest Du es im Innern oder draussen?

 

[Wolli013]

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

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