Local Server Management

This sample demonstrates how to use the ArcGIS Runtime SDK for WPF to manage the Local Server and how to start and stop Local Services.

XAML

<UserControl x:Class="ArcGISWPFSDK.LocalServerManagement" 
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
    xmlns:esri="http://schemas.esri.com/arcgis/client/2009"
      xmlns:local="clr-namespace:ArcGISWPFSDK">
    <Grid Background="#FFE3E3E3">
        <Grid.Resources>
            <local:getServiceTypeConverter x:Key="converter" />
            <LinearGradientBrush x:Key="PanelGradient" EndPoint="0.5,1" StartPoint="0.5,0">
                <LinearGradientBrush.RelativeTransform>
                    <TransformGroup>
                        <ScaleTransform CenterY="0.5" CenterX="0.5"/>
                        <SkewTransform CenterY="0.5" CenterX="0.5"/>
                        <RotateTransform Angle="176" CenterY="0.5" CenterX="0.5"/>
                        <TranslateTransform/>
                    </TransformGroup>
                </LinearGradientBrush.RelativeTransform>
                <GradientStop Color="#FF145787" Offset="0.16"/>
                <GradientStop Color="#FF3D7FAC" Offset="0.502"/>
                <GradientStop Color="#FF88C5EF" Offset="0.984"/>
            </LinearGradientBrush>
        </Grid.Resources>
        <Grid HorizontalAlignment="Center" MaxWidth="800" MaxHeight="320">
            <Rectangle Fill="{StaticResource PanelGradient}" Stroke="Black" StrokeThickness="1" RadiusX="10" RadiusY="10" Margin="-5,-5,-5,-5">
                <Rectangle.Effect>
                    <DropShadowEffect/>
                </Rectangle.Effect>
            </Rectangle>
            <Grid>
                <Grid.RowDefinitions>
                    <RowDefinition Height="25"/>
                    <RowDefinition Height="25"/>
                    <RowDefinition Height="5"/>
                    <RowDefinition Height="25"/>
                    <RowDefinition Height="10"/>
                    <RowDefinition Height="80"/>
                    <RowDefinition Height="15"/>
                    <RowDefinition Height="10"/>
                    <RowDefinition Height="10"/>
                    <RowDefinition Height="100"/>
                </Grid.RowDefinitions>
                <Grid.ColumnDefinitions>
                    <ColumnDefinition Width="200"/>
                    <ColumnDefinition Width="400"/>
                </Grid.ColumnDefinitions>
                <TextBlock Grid.Row="0" Grid.Column="0" Text="LocalServer Controls" FontWeight="Bold" VerticalAlignment="Center" />
                <Button  x:Name="ButtonStart"  Grid.Row="1" Content="Start Local Server" Margin="0,0,6,0" Width="194" Click="ButtonStart_Click" />
                <Button  x:Name="ButtonStop" Grid.Row="3" Content="Stop Local Server" Margin="0,0,6,0" Width="194" Click="ButtonStop_Click" />
                <TextBlock Grid.Row="0" Grid.Column="1" Text="Local Services Controls" FontWeight="Bold" VerticalAlignment="Center"/>
                <ComboBox x:Name="ServiceComboBox" Grid.Row="1" Grid.Column="1" HorizontalContentAlignment="Left" SelectionChanged="ServiceComboBox_SelectionChanged"/>
                <Button x:Name="StartService" Grid.Row="3" Grid.Column="1" Content="Start Service"  HorizontalAlignment="Left" Width="200" Click="StartService_Click" />
                <Button x:Name="StopService" Grid.Row="3"  Grid.Column="1" Content="Stop Service"  HorizontalAlignment="Right" Width="194" Click="StopService_Click" />
                <ListBox Grid.Row="5" Grid.ColumnSpan="2" >
                    <TextBlock>
            <Run x:Name="LocalServerStatusText" Foreground="Gray" />    
                             <TextBlock x:Name="Caption"  Foreground="Gray" />                      
                                       <Button x:Name="UrlHyperlink" Cursor="Hand"  Click="UrlButton_Click" >
                                        <Button.Template>
                                            <ControlTemplate TargetType="Button">
                                                <TextBlock TextDecorations="Underline">
                                                    <ContentPresenter />
                                                </TextBlock>
                                            </ControlTemplate>
                                        </Button.Template>                                        
                                          <Button.Style>
                                            <Style TargetType="Button">
                                                <Setter Property="Foreground" Value="Blue" />
                                                <Style.Triggers>
                                                    <Trigger Property="IsMouseOver" Value="true">
                                                        <Setter Property="Foreground" Value="Red" />
                                                    </Trigger>
                                                </Style.Triggers>
                                            </Style>
                                        </Button.Style>
                                    </Button> 
                            </TextBlock>
                </ListBox>
                <TextBlock Grid.Row="7" Grid.ColumnSpan="2" Text="Local Services" FontWeight="Bold" VerticalAlignment="Center" />

                <ListBox Grid.Row="9" Grid.ColumnSpan="2" ItemsSource="{Binding Source={x:Static esri:LocalServer.Services}}" VerticalAlignment="Stretch" Height="100">
                    <ListBox.ItemTemplate>
                        <DataTemplate>
                            <StackPanel>
                                <TextBlock>                                       
                           <Run Foreground="Gray" Text="{Binding Path=Name, Converter={StaticResource converter}}"/>       
            <Run Foreground="Gray" Text="{Binding Status, Mode=OneWay}"/>
            <Run Foreground="Gray" Text="... "/>
                                </TextBlock>
                            </StackPanel>
                        </DataTemplate>
                    </ListBox.ItemTemplate>
                </ListBox>

            </Grid>
        </Grid>
    </Grid>
</UserControl>

C#

using System.Windows.Controls;
using ESRI.ArcGIS.Client.Local;
using System.Windows;
using System.ComponentModel;
using System;
using System.Diagnostics;
using System.Windows.Data;
using System.Linq;

namespace ArcGISWPFSDK
{
    class getServiceTypeConverter : IValueConverter
    {
        public object Convert(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
        {
            LocalService service = LocalServer.Services.First(s => s.Name == value.ToString());
            return service.GetType().ToString();
        }

        public object ConvertBack(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
        {
            throw new NotImplementedException();
        }
    }

    public partial class LocalServerManagement : UserControl
    {
        class DemoService
        {
            public DemoService(string name, LocalService service)
            {
                Name = name;
                Service = service;

            }
            public string Name { get; set; }
            public LocalService Service { get; set; }
            public override string ToString()
            {
                return Name;
            }

        }

        public LocalServerManagement()
        {
            InitializeComponent();

            LocalService service = new LocalGeometryService();
            service.PropertyChanged += HandlePropertyChanged;
            ServiceComboBox.Items.Add(new DemoService("Geometry Service", service));

            service = new LocalGeocodeService("..\\Data\\Locators\\SanFrancisco\\" + "SanFranciscoLocator.gcpk");
            service.PropertyChanged += HandlePropertyChanged;
            ServiceComboBox.Items.Add(new DemoService("Geocoding Service ", service));

            service = new LocalMapService(@"..\\Data\\MPKS\\" + "USCitiesStates.mpk");
            service.PropertyChanged += HandlePropertyChanged;
            ServiceComboBox.Items.Add(new DemoService("Map Service", service));

            service = new LocalGeoprocessingService(@"..\\Data\\GPKs\\SimpleBuffer\\" + "SimpleBuffer.gpk", GPServiceType.Execute);
            service.PropertyChanged += HandlePropertyChanged;
            ServiceComboBox.Items.Add(new DemoService("Geoprocessing Execute Service", service));

            service = new LocalGeoprocessingService(@"..\\Data\\GPKs\\SimpleBuffer\\" + "SimpleBuffer.gpk", GPServiceType.SubmitJob);
            service.PropertyChanged += HandlePropertyChanged;
            ServiceComboBox.Items.Add(new DemoService("Geoprocessing SubmitJob Service", service));

            service = new LocalGeoprocessingService(@"..\\Data\\GPKs\\SimpleBuffer\\" + "SimpleBuffer.gpk", GPServiceType.SubmitJobWithMapServerResult);
            service.PropertyChanged += HandlePropertyChanged;
            ServiceComboBox.Items.Add(new DemoService("Geoprocessing SubmitJob with Map Service Result", service));

            ServiceComboBox.SelectedIndex = 0;

            LocalServer.PropertyChanged += (s, e) =>
            {
                UpdateUI();
                if (e.PropertyName == "Status")
                {
                    Output(" Local Server Status: " + LocalServer.Status.ToString() + "...");
                }
                else if (e.PropertyName == "Url")
                {
                    if (LocalServer.Url != null)
                    {
                        Caption.Text = "Local Server Url: ";
                        UrlHyperlink.Content = (LocalServer.Url.ToString());
                    }
                }
            };

        }

        void HandlePropertyChanged(object sender, PropertyChangedEventArgs e)
        {

            UpdateUI();
        }

        private void ButtonStart_Click(object sender, RoutedEventArgs e)
        {
            LocalServerStatusText.Text = null;
            LocalServer.InitializeAsync();
        }

        private void ButtonStop_Click(object sender, RoutedEventArgs e)
        {
            LocalServerStatusText.Text = null;
            UrlHyperlink.Content = null;
            Caption.Text = null;
            LocalServer.ShutdownAsync();
        }

        private void UrlButton_Click(object sender, RoutedEventArgs e)
        {
            string navigateUri = (sender as Button).Content as string;
            Process.Start(new ProcessStartInfo(navigateUri));
            e.Handled = true;

        }

        public void Output(string text)
        {
            LocalServerStatusText.Text += text + Environment.NewLine;
        }

        public void OutputError(Exception e)
        {
            string message = "Error: " + e.Message;
            while (e.InnerException != null)
            {
                message += e.Message + ". " + e.InnerException.Message;
                e = e.InnerException;
            }

        }

        private void UpdateUI()
        {
            ButtonStart.IsEnabled = LocalServer.Status == LocalServerStatus.NotInitialized || LocalServer.Status == LocalServerStatus.InitializeError;
            ButtonStop.IsEnabled = LocalServer.IsRunning;
            var demoService = ServiceComboBox.SelectedItem as DemoService;
            StartService.IsEnabled = demoService != null && LocalServer.IsRunning &&
              (demoService.Service.Status == LocalServiceStatus.None ||
               demoService.Service.Status == LocalServiceStatus.StartError ||
               demoService.Service.Status == LocalServiceStatus.Stopped);
            StopService.IsEnabled = demoService != null && LocalServer.IsRunning &&
              demoService.Service.Status == LocalServiceStatus.Running;
            ServiceComboBox.IsEnabled = LocalServer.IsRunning;

        }

        private void StartService_Click(object sender, RoutedEventArgs e)
        {
            var demoService = ServiceComboBox.SelectedItem as DemoService;
            demoService.Service.StartAsync((service) =>
            {
                if (service.Error != null)
                {
                    MessageBox.Show(service.Error.ToString());
                }
                else
                {
                    if (service is LocalGeometryService)
                    {
                        LocalGeometryService gs = service as LocalGeometryService;

                    }
                    else if (service is LocalGeocodeService)
                    {
                        LocalGeocodeService gs = service as LocalGeocodeService;

                    }
                    else if (service is LocalMapService)
                    {
                        LocalMapService ms = service as LocalMapService;

                    }
                    else if (service is LocalGeoprocessingService)
                    {
                        LocalGeoprocessingService gs = service as LocalGeoprocessingService;

                    }
                }

            });
        }

        private void StopService_Click(object sender, RoutedEventArgs e)
        {
            var demoService = ServiceComboBox.SelectedItem as DemoService;
            demoService.Service.StopAsync();
        }

        private void ServiceComboBox_SelectionChanged(object sender, SelectionChangedEventArgs e)
        {
            UpdateUI();
            string service = ServiceComboBox.SelectedItem as String;
        }

    }
}

VB.NET

Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client.Local
Imports System.Windows
Imports System.ComponentModel
Imports System
Imports System.Diagnostics
Imports System.Windows.Data
Imports System.Linq

Namespace ArcGISWPFSDKVB
    Class getServiceTypeConverter
        Implements IValueConverter

        Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object
            Dim service As LocalService = LocalServer.Services.First(Function(s) s.Name = value.ToString())
            Return service.[GetType]().ToString()
        End Function

        Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object
            Throw New NotImplementedException()
        End Function

        Public Function Convert1(value As Object, targetType As System.Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.Convert

        End Function

        Public Function ConvertBack1(value As Object, targetType As System.Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.ConvertBack

        End Function
    End Class

    Partial Public Class LocalServerManagement
        Inherits UserControl
        Private Class DemoService
            Public Sub New(name__1 As String, service__2 As LocalService)
                Name = name__1

                Service = service__2
            End Sub
            Public Property Name() As String
                Get
                    Return m_Name
                End Get
                Set(value As String)
                    m_Name = value
                End Set
            End Property
            Private m_Name As String
            Public Property Service() As LocalService
                Get
                    Return m_Service
                End Get
                Set(value As LocalService)
                    m_Service = value
                End Set
            End Property
            Private m_Service As LocalService
            Public Overrides Function ToString() As String
                Return Name
            End Function

        End Class

        Public Sub New()
            InitializeComponent()

            Dim service As LocalService = New LocalGeometryService()
            AddHandler service.PropertyChanged, AddressOf HandlePropertyChanged
            ServiceComboBox.Items.Add(New DemoService("Geometry Service", service))

            service = New LocalGeocodeService("..\Data\Locators\SanFrancisco\" & "SanFranciscoLocator.gcpk")
            AddHandler service.PropertyChanged, AddressOf HandlePropertyChanged
            ServiceComboBox.Items.Add(New DemoService("Geocoding Service ", service))

            service = New LocalMapService("..\\Data\\MPKS\\" & "USCitiesStates.mpk")
            AddHandler service.PropertyChanged, AddressOf HandlePropertyChanged
            ServiceComboBox.Items.Add(New DemoService("Map Service", service))

            service = New LocalGeoprocessingService("..\\Data\\GPKs\\SimpleBuffer\\" & "SimpleBuffer.gpk", GPServiceType.Execute)
            AddHandler service.PropertyChanged, AddressOf HandlePropertyChanged
            ServiceComboBox.Items.Add(New DemoService("Geoprocessing Execute Service", service))

            service = New LocalGeoprocessingService("..\\Data\\GPKs\\SimpleBuffer\\" & "SimpleBuffer.gpk", GPServiceType.SubmitJob)
            AddHandler service.PropertyChanged, AddressOf HandlePropertyChanged
            ServiceComboBox.Items.Add(New DemoService("Geoprocessing SubmitJob Service", service))

            service = New LocalGeoprocessingService("..\\Data\\GPKs\\SimpleBuffer\\" & "SimpleBuffer.gpk", GPServiceType.SubmitJobWithMapServerResult)
            AddHandler service.PropertyChanged, AddressOf HandlePropertyChanged
            ServiceComboBox.Items.Add(New DemoService("Geoprocessing SubmitJob with Map Service Result", service))

            ServiceComboBox.SelectedIndex = 0
            AddHandler LocalServer.PropertyChanged, AddressOf propchanged



        End Sub

        Private Sub propchanged(sender As Object, e As PropertyChangedEventArgs)
            UpdateUI()
            If e.PropertyName = "Status" Then
                Output(" Local Server Status: " & LocalServer.Status.ToString() & "...")
            ElseIf e.PropertyName = "Url" Then
                If LocalServer.Url IsNot Nothing Then
                    Caption.Text = "Local Server Url: "
                    UrlHyperlink.Content = (LocalServer.Url.ToString())
                End If
            End If
        End Sub


        Private Sub HandlePropertyChanged(sender As Object, e As PropertyChangedEventArgs)

            UpdateUI()
        End Sub

        Private Sub ButtonStart_Click(sender As Object, e As RoutedEventArgs)
            LocalServerStatusText.Text = Nothing
            LocalServer.InitializeAsync()
        End Sub

        Private Sub ButtonStop_Click(sender As Object, e As RoutedEventArgs)
            LocalServerStatusText.Text = Nothing
            UrlHyperlink.Content = Nothing
            Caption.Text = Nothing
            LocalServer.ShutdownAsync()
        End Sub

        Private Sub UrlButton_Click(sender As Object, e As RoutedEventArgs)
            Dim navigateUri As String = TryCast(TryCast(sender, Button).Content, String)
            Process.Start(New ProcessStartInfo(navigateUri))
            e.Handled = True

        End Sub

        Public Sub Output(text As String)
            LocalServerStatusText.Text += text & Environment.NewLine
        End Sub

        Public Sub OutputError(e As Exception)
            Dim message As String = "Error: " & e.Message
            While e.InnerException IsNot Nothing
                message += e.Message & ". " & e.InnerException.Message
                e = e.InnerException
            End While

        End Sub

        Private Sub UpdateUI()
            ButtonStart.IsEnabled = LocalServer.Status = LocalServerStatus.NotInitialized OrElse LocalServer.Status = LocalServerStatus.InitializeError
            ButtonStop.IsEnabled = LocalServer.IsRunning
            Dim demoService = TryCast(ServiceComboBox.SelectedItem, DemoService)
            StartService.IsEnabled = demoService IsNot Nothing AndAlso LocalServer.IsRunning AndAlso (demoService.Service.Status = LocalServiceStatus.None OrElse demoService.Service.Status = LocalServiceStatus.StartError OrElse demoService.Service.Status = LocalServiceStatus.Stopped)
            StopService.IsEnabled = demoService IsNot Nothing AndAlso LocalServer.IsRunning AndAlso demoService.Service.Status = LocalServiceStatus.Running
            ServiceComboBox.IsEnabled = LocalServer.IsRunning

        End Sub

        Private Sub StartService_Click(sender As Object, e As RoutedEventArgs)
            Dim demoService = TryCast(ServiceComboBox.SelectedItem, DemoService)
            demoService.Service.StartAsync(Function(service)
                                               If service.[Error] IsNot Nothing Then
                                                   MessageBox.Show(service.[Error].ToString())
                                               Else
                                                   If TypeOf service Is LocalGeometryService Then

                                                       Dim gs As LocalGeometryService = TryCast(service, LocalGeometryService)
                                                   ElseIf TypeOf service Is LocalGeocodeService Then

                                                       Dim gs As LocalGeocodeService = TryCast(service, LocalGeocodeService)
                                                   ElseIf TypeOf service Is LocalMapService Then

                                                       Dim ms As LocalMapService = TryCast(service, LocalMapService)
                                                   ElseIf TypeOf service Is LocalGeoprocessingService Then

                                                       Dim gs As LocalGeoprocessingService = TryCast(service, LocalGeoprocessingService)
                                                   End If

                                               End If

                                           End Function)
        End Sub

        Private Sub StopService_Click(sender As Object, e As RoutedEventArgs)
            Dim demoService = TryCast(ServiceComboBox.SelectedItem, DemoService)
            demoService.Service.StopAsync()
        End Sub

        Private Sub ServiceComboBox_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
            UpdateUI()
            Dim service As String = TryCast(ServiceComboBox.SelectedItem, [String])
        End Sub

    End Class
End Namespace