Need help with address locator

DonFreeman — Mon, 05 Apr 2010 14:13:34 GMT

Hi there, I could use some help getting my address locator to work with my silverlight page. It seems to work OK with a straight /NET page but I'm missing something in the transfer to silverlight. Here's my code. You can tell by the comments some of the things I have tried. (Morton - The REST endpoint is now working.)

 Private Sub FindAddressButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
  
  Dim locatorTask As New Locator("http://maps.pagnet.org/arcgis/rest/services/PAGAddressLocator/GeocodeServer")

        AddHandler locatorTask.AddressToLocationsCompleted, AddressOf LocatorTask_AddressToLocationsCompleted
        AddHandler locatorTask.Failed, AddressOf LocatorTask_Failed
        Dim addressParams As New AddressToLocationsParameters()
        Dim addressDictionary As Dictionary(Of String, String) = addressParams.Address

  If (Not String.IsNullOrEmpty(Address.Text)) Then
   addressDictionary.Add("Street", Address.Text)
  End If
  'If (Not String.IsNullOrEmpty(City.Text)) Then
  ' addressDictionary.Add("City", City.Text)
  'End If
  'If (Not String.IsNullOrEmpty(State.Text)) Then
  '    addressDictionary.Add("State", State.Text)
  'End If
  'If (Not String.IsNullOrEmpty(Zip.Text)) Then
  '    addressDictionary.Add("Zip", Zip.Text)
  'End If

  locatorTask.AddressToLocationsAsync(addressParams)
 End Sub

    Private Sub LocatorTask_AddressToLocationsCompleted(ByVal sender As Object, ByVal args As ESRI.ArcGIS.Client.Tasks.AddressToLocationsEventArgs)
        Dim returnedCandidates As List(Of AddressCandidate) = args.Results

        Dim graphicsLayer As GraphicsLayer = TryCast(MyMap.Layers("MyGraphicsLayer"), GraphicsLayer)
        graphicsLayer.ClearGraphics()

        Dim _candidateList = New List(Of AddressCandidate)()
        Dim candidateListBox As New ListBox()

        For Each candidate As AddressCandidate In returnedCandidates
   If candidate.Score >= 95 Then
    _candidateList.Add(candidate)
    candidateListBox.Items.Add(candidate.Address)

    Dim graphic As New Graphic() With {.Symbol = DefaultMarkerSymbol, .Geometry = candidate.Location}

'    graphic.Attributes.Add("street", candidate.Address)
    graphic.Attributes.Add("Address", candidate.Address)

    'Dim latlon As String = String.Format("{0}, {1}", candidate.Location.X, candidate.Location.Y)
    'graphic.Attributes.Add("LatLon", latlon)

    graphicsLayer.Graphics.Add(graphic)
   End If
        Next candidate

        AddHandler candidateListBox.SelectionChanged, AddressOf _candidateListBox_SelectionChanged

        CandidateScrollViewer.Content = candidateListBox
        CandidatePanelGrid.Visibility = Visibility.Visible

        Dim pt As MapPoint = _candidateList(0).Location
        If _firstZoom Then
            MyMap.ZoomToResolution(MyMap.Resolution / 4, pt)
            _firstZoom = False
        Else
            MyMap.PanTo(pt)
        End If

        _lastIndex = 0
        candidateListBox.SelectedIndex = 0
    End Sub

Need help with address locator

DonFreeman — Mon, 05 Apr 2010 15:38:28 GMT

Whoa there. I found the problem. I had my local map overlaid on top of an ESRI national map. Apparently the zoom didn't know which map was in charge. When I removed the ESRI map it worked fine. Now the question is if there are multiple map layers, how do you tell the locator which map to use for the match and zoom?

Thanks

topic Need help with address locator in ArcGIS API for Silverlight Questions

Need help with address locator

Need help with address locator