ArcIMS - NOAA

BrianLeroux

I am trying to bring in the layers from NOAA Nowcoast using ArcIMS connection but it is extremely slow due to the number of layers in that connection. They also have WMS but the resolution on some of the items is very bad using WMS. My question is, is there a way to specify which layers I want to bring in to my map using ArcIMS? I appreciate any help.

BrianLeroux

Well I am getting closer. The following code allows me to add only the layers I want. The only problem is that the layers show up in the contents but nothing is on the map display. Any ideas?

 Dim m_disp As MapDisplay = ESRI.ArcGISExplorer.Application.Application.ActiveMapDisplay


        'Define the connection properties 
        Dim connProps As ServiceConnectionProperties = New ServiceConnectionProperties(ServiceType.Ims, New Uri("http://nowcoast.noaa.gov"), "nowcoast")

        'Create a new ServiceLayer 
        Dim svcLayer As ServiceLayer = New ServiceLayer(connProps)
        'Name Layer
        svcLayer.Name = "Hurricane Track"
        'Connect to Service
        Dim connected As Boolean = svcLayer.Connect()

        'Array list of layers to connect to 
        Dim LayerList As New ArrayList()
        LayerList.Add("Tornado Warnings")
        LayerList.Add("Flood Warnings")
        LayerList.Add("Flash Flood Warnings")
        LayerList.Add("Severe Thunderstorm Warnings")
        LayerList.Add("Extreme Wind Warnings")

        'Check to see whether the connection was successful and add layers from Array List
        If (connected) Then
            For Each NOAALayer As String In LayerList
                For Each lyr As ServiceChildLayer In svcLayer.ChildItems

                    If lyr.Name = NOAALayer Then
                        lyr.Visible = True
                        m_disp.Map.ChildItems.Add(lyr)
                    Else
                        lyr.Visible = False
                    End If
                Next
            Next
        Else
            'Investigate connection issue.

            Dim status As ConnectionStatus = svcLayer.ConnectionStatus
            MsgBox("Server Connection Failed!" & status.ErrorString)
            If status.HasError Then
                System.Diagnostics.Debug.Print(status.ErrorString)
            End If

        End If

    End Sub