Xojo Conferences
MBSSep2018MunichDE
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/MacFrameworks/CoreLocation/Locate Address
Function:
Required plugins for this example: MBS MacBase Plugin, MBS MacFrameworks Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacFrameworks/CoreLocation/Locate Address
This example is the version from Tue, 15th Dec 2014.
Project "Locate Address.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control Addresse Inherits TextField
ControlInstance Addresse Inherits TextField
End Control
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action() run End EventHandler
End Control
EventHandler Sub Open() geoCoder = new CLGeocoderMBS End EventHandler
Sub Run() List.DeleteAllRows dim g as new MyCLGeocodeCompletionHandlerMBS geoCoder.geocodeAddressString Addresse.Text, g // reference it by itself, so object stays in memory g.selfRef = g Exception n as NilObjectException MsgBox "Failed?" End Sub
Property geoCoder As CLGeocoderMBS
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
Class MyCLGeocodeCompletionHandlerMBS Inherits CLGeocodeCompletionHandlerMBS
EventHandler Sub Completed(geocoder as CLGeocoderMBS, placemarks() as CLPlacemarkMBS, error as NSErrorMBS, tag as variant) dim l as listbox = window1.List l.DeleteAllRows if error<>nil then l.AddRow "Error", error.LocalizedDescription end if l.AddRow "Count of placemarks", str(UBound(placemarks)+1) for each p as CLPlacemarkMBS in placemarks l.AddRow "name", p.name l.AddRow "locality", p.locality l.AddRow "subLocality", p.subLocality l.AddRow "thoroughfare", p.thoroughfare l.AddRow "subThoroughfare", p.subThoroughfare l.AddRow "administrativeArea", p.administrativeArea l.AddRow "subAdministrativeArea", p.subAdministrativeArea l.AddRow "postalCode", p.postalCode l.AddRow "country", p.country dim ad as Dictionary = p.addressDictionary for each key as Variant in ad.keys dim value as Variant = ad.Value(key) if value.IsArray then // convert array of variants with strings to string array for join dim v() as Variant = value dim s() as string for each k as Variant in v s.Append k.StringValue next value = Join(s, ", ") end if l.AddRow "Address "+key, value next l.AddRow "areasOfInterest", join(p.areasOfInterest, ", ") l.AddRow "ocean", p.ocean l.AddRow "inlandWater", p.inlandWater l.AddRow "ISOcountryCode", p.ISOcountryCode dim r as CLRegionMBS = p.region if r<>nil then l.AddRow "region latitude", str(r.latitude) l.AddRow "region longitude", str(r.longitude) l.AddRow "region radius", str(r.radius) end if dim cl as CLLocationMBS = p.location l.AddRow "Location Latitude", str(cl.Latitude) l.AddRow "Location Longitude", str(cl.Longitude) next Finally // clearnup selfRef = nil End EventHandler
Property selfRef As MyCLGeocodeCompletionHandlerMBS
End Class
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS MacFrameworks Plugin.





Links
MBS Xojo Plugins