Batch Geocoding

The sample showcases 10.1 GeocodeServer's new capability of performing a batch Geocoding on local data. To use the sample use the default list of addresses and click in Find Addresses button. You may also clear pre-populated list of addresses and enter new addresses using the Street and Zip input fields.

XAML

<UserControl x:Class="ArcGISWPFSDK.LocalBatchGeocoding"
          xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"  
   xmlns:basics="http://schemas.microsoft.com/wpf/2008/toolkit"
    xmlns:esri="http://schemas.esri.com/arcgis/client/2009">
    <Grid x:Name="LayoutRoot" Background="White">
        <Grid.RowDefinitions>
            <RowDefinition Height="*" />
            <RowDefinition Height="5" />
            <RowDefinition Height="150" />
        </Grid.RowDefinitions>
        <Grid.Resources>
            <esri:PictureMarkerSymbol x:Key="DefaultMarkerSymbol" OffsetX="12" OffsetY="12" Source="/Assets/Images/x-24x24.png" />
        </Grid.Resources>
        <esri:Map x:Name="MyMap" UseAcceleratedDisplay="True" Extent="-122.519985221, 37.836494682 ,-122.302264539 , 37.698485944">
            <esri:ArcGISLocalTiledLayer Path="..\Data\TPKS\SanFrancisco.tpk"/>
            <esri:GraphicsLayer ID="LocationGraphicsLayer" MouseLeftButtonDown="GraphicsLayer_MouseLeftButtonDown">
                <esri:GraphicsLayer.MapTip>
                    <Grid Background="LightYellow" esri:GraphicsLayer.MapTipAutoPosition="True">
                        <StackPanel Orientation="Vertical" Margin="5" >
                            <TextBlock Text="{Binding [Match_addr]}" HorizontalAlignment="Left" />
                            <TextBlock Text="{Binding [X],StringFormat='X : {0}'}" HorizontalAlignment="Left" />
                            <TextBlock Text="{Binding [Y],StringFormat='Y : {0}'}" HorizontalAlignment="Left" />
                        </StackPanel>
                        <Border BorderBrush="Black" BorderThickness="1" />
                    </Grid>
                </esri:GraphicsLayer.MapTip>
            </esri:GraphicsLayer>
        </esri:Map>
        <Grid HorizontalAlignment="Right" VerticalAlignment="Top" Margin="0,15,15,0" >
            <Rectangle Stroke="Gray"  Fill="#77919191" Margin="0,0,0,5" >
                <Rectangle.Effect>
                    <DropShadowEffect/>
                </Rectangle.Effect>
            </Rectangle>
        </Grid>
        <Border Background="#FFEFF1F3" BorderThickness="1" 
                HorizontalAlignment="Right"  VerticalAlignment="Top"
                Padding="10" BorderBrush="Black" Margin="0,15,15,0" >
            <Border.Effect>
                <DropShadowEffect/>
            </Border.Effect>
            <Grid HorizontalAlignment="Left">
                <Grid.RowDefinitions>
                    <RowDefinition/>
                    <RowDefinition/>
                    <RowDefinition/>
                    <RowDefinition/>
                </Grid.RowDefinitions>
                <Grid.ColumnDefinitions>
                    <ColumnDefinition/>
                    <ColumnDefinition/>
                </Grid.ColumnDefinitions>
                <TextBlock x:Name="ResponseTextBlock" Text="Add addresses to the list using fields below and click on the button below to geocode addresses."                           
                           Width="300" TextAlignment="Left"  TextWrapping="Wrap" Margin="0,0,5,5" Grid.Row="0" Grid.ColumnSpan="2" Foreground="black"/>
                <StackPanel Orientation="Horizontal" Grid.Row="1" Grid.Column="0">
                    <TextBlock Text="Street :" VerticalAlignment="Center" Margin="0,5,0,0" Foreground="black"/>
                    <TextBox x:Name="StreetTextBox" Width="150" Margin="2,5,5,0" HorizontalAlignment="Left" MaxLength="60"/>
                </StackPanel>
                <StackPanel Orientation="Horizontal" Grid.Row="1" Grid.Column="1" Margin="2,0,0,0">
                    <TextBlock Text="Zip :" VerticalAlignment="Center" Margin="0,5,0,0" Foreground="Black"/>
                    <TextBox x:Name="ZipTextBox" Margin="2,5,0,0" HorizontalAlignment="Left" MaxLength="5" Width="60"/>
                    <Button x:Name="addtolist" Click="addtolist_Click" Height="25" IsEnabled="False" Margin="2,5,0,0" HorizontalAlignment="Left">
                        <Image Source="/Assets/Images/add.png" ToolTip="Add to list"/>
                    </Button>
                </StackPanel>
                <Border BorderBrush="Black" BorderThickness="1" Grid.Row="2" HorizontalAlignment="Stretch" Grid.ColumnSpan="2" Margin="0,10,0,0">
                    <ListBox x:Name="AddressListbox" HorizontalAlignment="Stretch" Grid.Row="0" Grid.ColumnSpan="2" Margin="5">
                        <ListBox.ItemTemplate>
                            <DataTemplate>
                                <StackPanel Orientation="Horizontal">
                                    <TextBlock Text="{Binding [Street]}"/>
                                    <TextBlock Text="{Binding [Zip], StringFormat=', {0}'}"/>
                                </StackPanel>
                            </DataTemplate>
                        </ListBox.ItemTemplate>
                    </ListBox>
                </Border>
                <Button x:Name="ResetList" Content="Reset" Click="ResetList_Click" IsEnabled="False" Grid.Row="3" Grid.Column="0" Margin="0,5,0,5" Height="25" ToolTip="Reset List"/>
                <Button x:Name="BatchGeocodeButton" Content=" Find Addresses " IsEnabled="False" ToolTip="Find Addresses" Margin="2,5,0,5" Click="BatchGeocodeButton_Click" 
                                Grid.Row="3" Grid.Column="1" Height="25" />
            </Grid>
        </Border>
        <GridSplitter Grid.Row="1" HorizontalAlignment="Stretch" />
        <esri:FeatureDataGrid Grid.Row="2" x:Name="MyDataGrid" 
				Map="{Binding ElementName=MyMap}"/>
    </Grid>
</UserControl>

C#

using System.Windows.Controls;
using ESRI.ArcGIS.Client.Tasks;
using System.Collections.Generic;
using System.Windows;
using ESRI.ArcGIS.Client;
using System.Linq;
using System.Collections.ObjectModel;
using System;
using ESRI.ArcGIS.Client.Local;
using ESRI.ArcGIS.Client.Geometry;
using System.IO;
using ESRI.ArcGIS.Client.Symbols;
using System.Reflection;


namespace ArcGISWPFSDK
{
    
    public partial class LocalBatchGeocoding : UserControl
    {
        Locator _locatorTask;
        ObservableCollection<IDictionary<string, string>> batchaddresses = new ObservableCollection<IDictionary<string, string>>();
        GraphicsLayer geocodedResults;
        LocalGeocodeService _localGeocodeService;

        public LocalBatchGeocoding()
        {
            InitializeComponent();

            LocalGeocodeService.GetServiceAsync(@"..\Data\Locators\SanFrancisco\SanFranciscoLocator.gcpk", "SanFranciscoLocator", (gs) =>
            {
                if (gs.Error != null)
                {
                    MessageBox.Show(gs.Error.Message);
                }
                if (gs.Status == LocalServiceStatus.Running)
                {
                    _localGeocodeService = gs;
                    _locatorTask = new Locator(_localGeocodeService.UrlGeocodeService);
                    _locatorTask.AddressesToLocationsCompleted += _locatorTask_AddressesToLocationsCompleted;
                    _locatorTask.Failed += LocatorTask_Failed;
                    ResetList.IsEnabled = true;
                    BatchGeocodeButton.IsEnabled = true;
                    addtolist.IsEnabled = true;

                }
            });

            geocodedResults = MyMap.Layers["LocationGraphicsLayer"] as GraphicsLayer;

            geocodedResults.Renderer = new SimpleRenderer() 
            {
                Symbol = LayoutRoot.Resources["DefaultMarkerSymbol"] as PictureMarkerSymbol,
            };

            string path = Path.Combine(Path.GetDirectoryName(System.Reflection.Assembly.GetEntryAssembly().Location), @"..\Data\Locators\SanFranciscoStreets.csv");     
            var sr = new StreamReader(File.OpenRead(path));
                    
            sr.ReadLine();
            while (sr.Peek() != -1)
            {
                string line = sr.ReadLine();
                var values = line.Split(',');
                string street = values[64] + " " + values[9];
                string Zip = values[67];
                batchaddresses.Add(new Dictionary<string, string> { { "Street", street }, { "Zip", Zip } });
            }
            AddressListbox.ItemsSource = batchaddresses;
        }

        private void BatchGeocodeButton_Click(object sender, RoutedEventArgs e)
        {
            if (batchaddresses.Count > 0)
            {
                _locatorTask.AddressesToLocationsAsync(batchaddresses.ToList(), MyMap.SpatialReference);
            }
        }

        void _locatorTask_AddressesToLocationsCompleted(object sender, AddressesToLocationsEventArgs e)
        {
            if (e.Result != null && e.Result.AddressCandidates != null && e.Result.AddressCandidates.Count > 0)
            {
                if(geocodedResults.Graphics.Count > 0)
                    geocodedResults.Graphics.Clear();

                List<Graphic> listOfGraphics = new List<Graphic>();

                foreach (AddressCandidate location in e.Result.AddressCandidates)
                {
                    MapPoint geographicPoint = new MapPoint(location.Location.X, location.Location.Y);
                    Graphic graphic = new Graphic() { Geometry = geographicPoint };
                    graphic.Attributes.Add("X", location.Location.X.ToString());
                    graphic.Attributes.Add("Y", location.Location.Y.ToString());
                    graphic.Attributes.Add("Match_addr", location.Attributes["Match_addr"]);
                    graphic.Attributes.Add("Score", location.Attributes["Score"]);
                    listOfGraphics.Add(graphic);
                }
                geocodedResults.Graphics.AddRange(listOfGraphics);
                MyDataGrid.GraphicsLayer = geocodedResults;
            }
        }

        private void LocatorTask_Failed(object sender, TaskFailedEventArgs e)
        {
            MessageBox.Show("Locator service failed: " + e.Error);
        }

        private void addtolist_Click(object sender, RoutedEventArgs e)
        {
            if (string.IsNullOrEmpty(StreetTextBox.Text) || string.IsNullOrEmpty(ZipTextBox.Text))
            {
                MessageBox.Show("Value is required for all inputs");
                return;
            }

            int number;
            bool result = Int32.TryParse(ZipTextBox.Text, out number);

            if (!result)
            {
                MessageBox.Show("Incorrect Zip format");
                return;
            }
            batchaddresses.Add(new Dictionary<string, string> { { "Street", StreetTextBox.Text }, { "Zip", ZipTextBox.Text } });
        }

        private void ResetList_Click(object sender, RoutedEventArgs e)
        {
            batchaddresses.Clear();
            geocodedResults.Graphics.Clear();
        }

        private void GraphicsLayer_MouseLeftButtonDown(object sender, GraphicMouseButtonEventArgs e)
        {
            e.Graphic.Selected = !e.Graphic.Selected;
        }
    }
}

VB.NET

Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client.Tasks
Imports System.Collections.Generic
Imports System.Windows
Imports ESRI.ArcGIS.Client
Imports System.Linq
Imports System.Collections.ObjectModel
Imports ESRI.ArcGIS.Client.Local
Imports ESRI.ArcGIS.Client.Geometry
Imports System.IO

Namespace ArcGISWPFSDK
    Partial Public Class LocalBatchGeocoding
        Inherits UserControl
        Private _locatorTask As Locator
        Private batchaddresses As New ObservableCollection(Of IDictionary(Of String, String))()
        Private geocodedResults As GraphicsLayer
        Private _localGeocodeService As LocalGeocodeService

        Public Sub New()
            InitializeComponent()

            LocalGeocodeService.GetServiceAsync("..\Data\Locators\SanFrancisco\SanFranciscoLocator.gcpk", "SanFranciscoLocator", Function(gs)
                                                                                                                                     If gs.[Error] IsNot Nothing Then
                                                                                                                                         MessageBox.Show(gs.[Error].Message)
                                                                                                                                     End If
                                                                                                                                     If gs.Status = LocalServiceStatus.Running Then
                                                                                                                                         _localGeocodeService = gs
                                                                                                                                         _locatorTask = New Locator(_localGeocodeService.UrlGeocodeService)
                                                                                                                                         AddHandler _locatorTask.AddressesToLocationsCompleted, AddressOf _locatorTask_AddressesToLocationsCompleted
                                                                                                                                         AddHandler _locatorTask.Failed, AddressOf LocatorTask_Failed
                                                                                                                                         ResetList.IsEnabled = True
                                                                                                                                         BatchGeocodeButton.IsEnabled = True

                                                                                                                                         addtolist.IsEnabled = True
                                                                                                                                     End If

                                                                                                                                 End Function)

            geocodedResults = TryCast(MyMap.Layers("LocationGraphicsLayer"), GraphicsLayer)
            Dim sr = New StreamReader(File.OpenRead("..\Data\Locators\SanFranciscoStreets.csv"))

            sr.ReadLine()
            While sr.Peek() <> -1
                Dim line As String = sr.ReadLine()
                Dim values = line.Split(","c)
                Dim street As String = values(64) & " " & values(9)
                Dim Zip As String = values(67)
                batchaddresses.Add(New Dictionary(Of String, String)() From { _
                    {"Street", street}, _
                    {"Zip", Zip} _
                })
            End While

            AddressListbox.ItemsSource = batchaddresses
        End Sub

        Private Sub BatchGeocodeButton_Click(sender As Object, e As RoutedEventArgs)
            If batchaddresses.Count > 0 Then
                _locatorTask.AddressesToLocationsAsync(batchaddresses.ToList(), MyMap.SpatialReference)
            End If
        End Sub

        Private Sub _locatorTask_AddressesToLocationsCompleted(sender As Object, e As AddressesToLocationsEventArgs)
            If e.Result IsNot Nothing AndAlso e.Result.AddressCandidates IsNot Nothing AndAlso e.Result.AddressCandidates.Count > 0 Then
                geocodedResults.Graphics.Clear()
                For Each location As AddressCandidate In e.Result.AddressCandidates
                    Dim geographicPoint As New MapPoint(location.Location.X, location.Location.Y)
                    Dim graphic As New Graphic() With {.Geometry = location.Location, .Symbol = TryCast(LayoutRoot.Resources("DefaultMarkerSymbol"), ESRI.ArcGIS.Client.Symbols.Symbol)}
                    graphic.Attributes.Add("X", location.Location.X.ToString())
                    graphic.Attributes.Add("Y", location.Location.X.ToString())
                    graphic.Attributes.Add("Match_addr", location.Attributes("Match_addr"))
                    graphic.Attributes.Add("Score", location.Attributes("Score"))
                    geocodedResults.Graphics.Add(graphic)
                Next
            End If
        End Sub

        Private Sub LocatorTask_Failed(sender As Object, e As TaskFailedEventArgs)
            MessageBox.Show("Locator service failed: " & Convert.ToString(e.[Error]))
        End Sub

        Private Sub addtolist_Click(sender As Object, e As RoutedEventArgs)
            If String.IsNullOrEmpty(StreetTextBox.Text) OrElse String.IsNullOrEmpty(ZipTextBox.Text) Then
                MessageBox.Show("Value is required for all inputs")
                Return
            End If

            Dim number As Integer
            Dim result As Boolean = Int32.TryParse(ZipTextBox.Text, number)

            If Not result Then
                MessageBox.Show("Incorrect Zip format")
                Return
            End If
            batchaddresses.Add(New Dictionary(Of String, String)() From { _
                {"Street", StreetTextBox.Text}, _
                {"Zip", ZipTextBox.Text} _
            })
        End Sub

        Private Sub ResetList_Click(sender As Object, e As RoutedEventArgs)
            batchaddresses.Clear()
            geocodedResults.Graphics.Clear()
        End Sub

        Private Sub GraphicsLayer_MouseLeftButtonDown(sender As Object, e As GraphicMouseButtonEventArgs)
            e.Graphic.Selected = Not e.Graphic.Selected
        End Sub
    End Class
End Namespace