Add IFeatureLayer from FeatureServer

MickeyO_Neil

Hello,

I'm trying to load a IFeatureLayer from a FeatureServer in a ArcGIS Engine 10.3 Application, but I always get a "System.Runtime.InteropServices.COMException" Error Message. (Line is marked with an Error Comment).

What is the Problem of getting the Layers from the Server?

Thank You very much for your help.

    Public Shared Function GetAGSFeatureLayer(ByVal sURL As String) As IFeatureLayer
        Dim pAGSConnectionFactory As IAGSServerConnectionFactory
        Dim pConnectionProps As IPropertySet
        Dim pAGSConnection As IAGSServerConnection
        Dim enumServerObjectName As IAGSEnumServerObjectName
        Dim pServerObjectName As IAGSServerObjectName3
        Dim pName As IName
        Dim pObject As Object
        Dim pServerSymbolOutputOptions As IServerSymbolOutputOptions
        Dim pGraphicFeatureLayers As IGraphicFeatureLayers
        Dim pGraphicFeatureLayer As IGraphicFeatureLayer2
        Dim pGraphicFeatureServer As IGraphicFeatureServer

        Try
            pConnectionProps = New PropertySet
            pConnectionProps.SetProperty("URL", sURL)
            pAGSConnectionFactory = New AGSServerConnectionFactory
            pAGSConnection = pAGSConnectionFactory.Open(pConnectionProps, 0)

            enumServerObjectName = pAGSConnection.ServerObjectNames
            enumServerObjectName.Reset()
            pServerObjectName = enumServerObjectName.Next

            Do Until pServerObjectName Is Nothing

                If pServerObjectName.Type.Equals("FeatureServer", StringComparison.OrdinalIgnoreCase) Then
                    pName = pServerObjectName
                    pObject = pName.Open

                    If TypeOf pObject Is IGraphicFeatureServer Then

                        pServerSymbolOutputOptions = New ServerSymbolOutputOptions
                        pServerSymbolOutputOptions.ConvertLabelExpressions = False
                        pServerSymbolOutputOptions.PictureOutputType = esriServerPictureOutputType.esriServerPictureOutputAsPNG

                        pGraphicFeatureServer = pObject
                        pGraphicFeatureLayers = pGraphicFeatureServer.GetLayers(pServerSymbolOutputOptions) 'ERROR

                        If pGraphicFeatureLayers.Count > 0 Then
                            For i As Integer = 0 To pGraphicFeatureLayers.Count - 1

                                pGraphicFeatureLayer = pGraphicFeatureLayers.Element(i)
                                If TypeOf pGraphicFeatureLayer Is IFeatureLayer Then
                                    Return pGraphicFeatureLayer
                                End If
                            Next
                        End If
                    End If

                End If
                pServerObjectName = enumServerObjectName.Next
            Loop
        Catch ex As Exception
            logger.Error("GetAGSFeatureLayer", ex)
        End Try
        Return Nothing
    End Function

MickeyO_Neil

Got it:

Snippet

Public Shared Function GetAGSFeatureLayer(ByVal sURL As String) As IFeatureLayer        
   Dim pAGSConnectionFactory As IAGSServerConnectionFactory        
   Dim pConnectionProps As IPropertySet        
   Dim pAGSConnection As IAGSServerConnection        
   Dim enumServerObjectName As IAGSEnumServerObjectName        
   Dim pServerObjectName As IAGSServerObjectName3          
   Dim pLayerFactory As ILayerFactory        
   Dim pEnumLayer As IEnumLayer        
   Dim pLayer As ILayer        
   Dim pCurrentLayer As ILayer        
   Dim pCompositeLayer As ICompositeLayer        
   Try            
      pConnectionProps = New PropertySet            
      pConnectionProps.SetProperty("URL", sURL)             
      pAGSConnectionFactory = New AGSServerConnectionFactory            
      pAGSConnection = pAGSConnectionFactory.Open(pConnectionProps, 0)               
      enumServerObjectName = pAGSConnection.ServerObjectNames             
      enumServerObjectName.Reset()             
      pServerObjectName = enumServerObjectName.Next               
      Do Until pServerObjectName Is Nothing                  
         If pServerObjectName.Type.Equals("FeatureServer", StringComparison.OrdinalIgnoreCase) Then                                         
            pLayerFactory = New FeatureServerLayerFactory                    
            pEnumLayer = pLayerFactory.Create(pServerObjectName)                     
            pLayer = pEnumLayer.Next()                       
            Do Until pLayer Is Nothing                        
               If TypeOf pLayer Is ICompositeLayer Then                            
                  pCompositeLayer = pLayer                               
                  For i As Integer = 0 To pCompositeLayer.Count - 1                                 
                     pCurrentLayer = pCompositeLayer.Layer(i)                                 
                     If TypeOf pCurrentLayer Is IFeatureLayer Then                                      
                        Return DirectCast(pCurrentLayer, IFeatureLayer)                                 
                     End If                            
                  Next                        
               End If                        
               pLayer = pEnumLayer.Next()                     
            Loop                  
         End If                
         pServerObjectName = enumServerObjectName.Next             
      Loop        
   Catch ex As Exception            
      logger.Error("GetAGSFeatureLayer", ex)         
   End Try        
   Return Nothing    
End Function