German Geocoder nicht mehr einsetzbar?

Discussion in 'German Forum' started by Wolli013, Aug 3, 2019.

  1. Wolli013

    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?

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

    Log("Geocoder1 = Fertig")
     
    If Results.Length > 0 Then
        
        lblHausnummer.Visible = 
    True
     
        
    Dim geostpr(5As 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
     
  2. emexes

    emexes Well-Known Member Licensed User

    Last edited: Aug 3, 2019
  3. emexes

    emexes Well-Known Member Licensed User

    Last edited: Aug 3, 2019
    Wolli013 likes this.
  4. klaus

    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 likes this.
  5. Wolli013

    Wolli013 Active Member Licensed User

    @klaus Version 2.01

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

    klaus Expert Licensed User

    Bei mir reagiert es schnell.
     
  7. Wolli013

    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


    Code:
    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" />
    )
     
  8. klaus

    klaus Expert Licensed User

    Versuche mal mein Testprogramm.
     

    Attached Files:

    Wolli013 likes this.
  9. Wolli013

    Wolli013 Active Member Licensed User

    Danke werde ich nachher mal testen
     
  10. Wolli013

    Wolli013 Active Member Licensed User

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

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

    End Sub
     
  11. Wolli013

    Wolli013 Active Member Licensed User

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

    klaus Expert Licensed User

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

    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.

    Code:
    GPS1.Initialize("GPS"'GPS starten

     
    If GPS1.GPSEnabled = False Then
      
    Else
        GPS1.Start(
    00'Listen to GPS with no filters.
        Geocoder1.Initialize3("Geocoder1""de""DE")
      
    End If
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice