How to: Implement a Custom Geocode Provider
- 4 minutes to read
This example demonstrates how to create a custom geocode provider.
To do this, design a class inheriting the InformationDataProviderBase class and the IMouseClickRequestSender interface, and implement the CreateData and RequestByPoint methods in the class. Then, design a class inheriting the IInformationData interface and override its IInformationData.OnDataResponse event. Implement the CalculateAddress method to provide custom geocode logic.
Imports DevExpress.Xpf.Map
Imports System
Imports System.Windows
Namespace CustomGeocodeProvider
''' <summary>
''' Interaction logic for MainWindow.xaml
''' </summary>
Partial Public Class MainWindow
Inherits Window
Public Sub New()
InitializeComponent()
informationLayer.DataProvider = New GeocodeDataProvider()
End Sub
End Class
Public Class GeocodeDataProvider
Inherits InformationDataProviderBase
Implements IMouseClickRequestSender
Public Sub New()
Me.ProcessMouseEvents = True
End Sub
Protected Shadows ReadOnly Property Data() As GeocodeData
Get
Return CType(MyBase.Data, GeocodeData)
End Get
End Property
Public Sub RequestByPoint(ByVal geoPoint As GeoPoint, ByVal screenPoint As Point) Implements IMouseClickRequestSender.RequestByPoint
Data.CalculateAddress(geoPoint)
End Sub
Protected Overrides Function CreateData() As IInformationData
Return New GeocodeData()
End Function
Protected Overrides Function CreateObject() As MapDependencyObject
Return New GeocodeDataProvider()
End Function
Public Overrides ReadOnly Property IsBusy() As Boolean
Get
Throw New NotImplementedException()
End Get
End Property
Public Overrides Sub Cancel()
Throw New NotImplementedException()
End Sub
End Class
Public Class GeocodeData
Implements IInformationData
Private address_Renamed As New LocationInformation()
Public Property Address() As LocationInformation
Get
Return address_Renamed
End Get
Set(ByVal value As LocationInformation)
address_Renamed = value
End Set
End Property
Public Event OnDataResponse As EventHandler(Of RequestCompletedEventArgs) Implements IInformationData.OnDataResponse
Private Function CreateEventArgs() As RequestCompletedEventArgs
Dim item As MapItem = New MapPushpin() With {.Location = address_Renamed.Location, .Information = address_Renamed.Address.FormattedAddress}
Return New RequestCompletedEventArgs(New MapItem() {item}, Nothing, False, Nothing)
End Function
Protected Sub RaiseChanged()
RaiseEvent OnDataResponse(Me, CreateEventArgs())
End Sub
Public Sub CalculateAddress(ByVal geoPoint As GeoPoint)
'Implement your custom geocode logic here
Dim info As New LocationInformation()
info.Address = New Address("Address from your service here " & Environment.NewLine & "Coordinates: " & geoPoint.ToString())
info.Location = New GeoPoint(geoPoint.Latitude, geoPoint.Longitude)
Address = info
'
RaiseChanged()
End Sub
End Class
Public Class Address
Inherits AddressBase
Public Sub New(ByVal address As String)
Me.FormattedAddress = address
End Sub
Protected Overrides Function CreateObject() As MapDependencyObject
Throw New NotImplementedException()
End Function
End Class
End Namespace