Batch Geocoding Online

The sample showcases 10.1 GeocodeServer's new capability of performing a batch Geocoding. 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.BatchGeocoding"
   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" WrapAround="True" Extent="-15000000,2000000,-7000000,8000000">
            <esri:ArcGISTiledMapServiceLayer ID="StreetMapLayer" 
                    Url="http://services.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer" />
            <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" Margin="2,5,0,0" HorizontalAlignment="Left">
                        <Image Source="/Assets/Images/add.png"/>
                    </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" Grid.Row="3" Grid.Column="0" Margin="0,5,0,5" Height="25"/>
                <Button x:Name="BatchGeocodeButton" Content=" 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;

namespace ArcGISWPFSDK
{
 
    public partial class BatchGeocoding : UserControl
    {

        Locator _locatorTask;
        ObservableCollection<IDictionary<string, string>> batchaddresses = new ObservableCollection<IDictionary<string, string>>();
        GraphicsLayer geocodedResults;
        public BatchGeocoding()
        {
            InitializeComponent();

            _locatorTask = new Locator("http://serverapps101.esri.com/arcgis/rest/services/USA_Geocode/GeocodeServer");
            _locatorTask.AddressesToLocationsCompleted += _locatorTask_AddressesToLocationsCompleted;
            _locatorTask.Failed += LocatorTask_Failed;

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


            //List of addresses to geocode
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "4409 Redwood Dr" }, { "Zip", "92501" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "3758 Cedar St" }, { "Zip", "92501" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "3486 Orange St" }, { "Zip", "92501" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "2999 4th St" }, { "Zip", "92507" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "3685 10th St" }, { "Zip", "92501" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "4462 Main St" }, { "Zip", "92501" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "3964 Ramona Dr" }, { "Zip", "92506" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "2965 13th St" }, { "Zip", "92507" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "2245 11th St" }, { "Zip", "92507" } });
            batchaddresses.Add(new Dictionary<string, string> { { "Street", "3887 Park Ave" }, { "Zip", "92507" } });

            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)
                {
                    Graphic graphic = new Graphic() { Geometry = location.Location, Symbol = LayoutRoot.Resources["DefaultMarkerSymbol"] as ESRI.ArcGIS.Client.Symbols.Symbol, };
                    graphic.Attributes.Add("X", location.Attributes["X"]);
                    graphic.Attributes.Add("Y", location.Attributes["Y"]);
                    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 System

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

        Public Sub New()
            InitializeComponent()

            _locatorTask = New Locator("http://serverapps101.esri.com/arcgis/rest/services/USA_Geocode/GeocodeServer")
            AddHandler _locatorTask.AddressesToLocationsCompleted, AddressOf _locatorTask_AddressesToLocationsCompleted
            AddHandler _locatorTask.Failed, AddressOf LocatorTask_Failed

            geocodedResults = TryCast(MyMap.Layers("LocationGraphicsLayer"), GraphicsLayer)


            'List of addresses to geocode
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "4409 Redwood Dr"}, {"Zip", "92501"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "3758 Cedar St"}, {"Zip", "92501"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "3486 Orange St"}, {"Zip", "92501"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "2999 4th St"}, {"Zip", "92507"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "3685 10th St"}, {"Zip", "92501"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "4462 Main St"}, {"Zip", "92501"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "3964 Ramona Dr"}, {"Zip", "92506"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "2965 13th St"}, {"Zip", "92507"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "2245 11th St"}, {"Zip", "92507"}})
            batchaddresses.Add(New Dictionary(Of String, String) From {{"Street", "3887 Park Ave"}, {"Zip", "92507"}})

            AddressListbox.ItemsSource = batchaddresses
        End Sub

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

        Private Sub _locatorTask_AddressesToLocationsCompleted(ByVal sender As Object, ByVal 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 graphic As New Graphic() With {.Geometry = location.Location, .Symbol = TryCast(LayoutRoot.Resources("DefaultMarkerSymbol"), ESRI.ArcGIS.Client.Symbols.Symbol)}
                    graphic.Attributes.Add("X", location.Attributes("X"))
                    graphic.Attributes.Add("Y", location.Attributes("Y"))
                    graphic.Attributes.Add("Match_addr", location.Attributes("Match_addr"))
                    graphic.Attributes.Add("Score", location.Attributes("Score"))
                    geocodedResults.Graphics.Add(graphic)
                Next location
            End If

        End Sub

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

        Private Sub addtolist_Click(ByVal sender As Object, ByVal 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(ByVal sender As Object, ByVal e As RoutedEventArgs)
            batchaddresses.Clear()
            geocodedResults.Graphics.Clear()
        End Sub

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

    End Class
End Namespace