ArcMap Addin - programowo dodaj połączenie interoperacyjności

10

Obecnie buduję dodatek do ArcMap - ArcView przy użyciu frameworku .Net.

Użytkownik ArcMap i dodatku powinien mieć dostęp do danych publikowanych z usług WFS.

Wiem, że możliwe jest ręczne dodawanie usług WFS za pośrednictwem interfejsu połączeń interoperacyjnych .

Ale czy można programowo dodać te usługi WFS? (są szanse - moi użytkownicy będą mieli trudności z dodaniem ich ręcznie)

A jeśli tak, to jak to zrobić?

Nie mogę znaleźć żadnych informacji na ten temat.

użytkownik 2847
źródło
1
Czy masz adres URL do publicznej witryny WFS? Jeśli tak, śmiało i opublikuj. W ten sposób ludzie mogą przetestować swój kod przed dołączeniem go do odpowiedzi.
Kirk Kuykendall
Cześć, nie mogę opublikować publicznego adresu URL.
user2847,
1
Cześć @ user2847, czy kiedykolwiek znalazłeś rozwiązanie tego problemu? Dzięki
pvdev

Odpowiedzi:

1

Niestety nie ma sposobu na dynamiczne wysyłanie żądań przez klasę. Musisz go zaprogramować za pomocą pliku fdl. Aby dodać usługę (np. WFS), możesz użyć poniższego kodu.

IWorkspaceFactory factory = (IWorkspaceFactory)new FMEWorkspaceFactoryClass();
IFeatureWorkspace workspace = (IFeatureWorkspace)factory.OpenFromFile("d:\test", 0);
IFeatureDataset fds = workspace.OpenFeatureDataset("name.fdl");  

Twoje zdrowie!

PS: Czy próbowałeś użyć interfejsu IWFSServer ? Korzystałem z funkcji DI w jednym z moich poprzednich projektów, aby eksportować dane do formatu GML za pomocą QuickExport . Możesz spróbować użyć QuickImport i wybrać WFS jako źródło. Załączam kod QuickExport w celach informacyjnych ...

    Friend Sub Export2GML()
    Dim pGPMessages As IGPMessages
    'Dim pGPMessage As IGPMessage
    Dim pGPEnvMgr As IGPEnvironmentManager
    Dim pGPEnv_CoordSys As IGPEnvironment
    Dim pGPEnv_Extent As IGPEnvironment
    Dim pGPCOMHelper As IGPComHelper
    Dim pGPToolbox As IGPToolbox
    Dim pGPTool As IGPTool
    Dim pParameter As IGPParameter
    Dim pParameterEdit As IGPParameterEdit
    Dim pDataType As IGPDataType

    Dim pToolboxWorkspaceFactory As IWorkspaceFactory
    Dim pToolboxWorkspace As IToolboxWorkspace
    Dim pParamArray As IArray = New ArrayClass
    Dim pProgressTracker As ITrackCancel
    Dim pDSNames As IEnumDatasetName
    Dim pDSN As IDatasetName

    Dim TempWSPath As String = String.Empty
    Dim Inv_Layer_Names As String = String.Empty

    Try
        OS_Layer_Names = String.Empty

        'Get all layer names from the scratch PGDB
        TempWSPath = pTempWS.PathName

        pDSNames = pTempWS.DatasetNames(esriDatasetType.esriDTFeatureClass)
        pDSNames.Reset()

        pDSN = pDSNames.Next
        While Not pDSN Is Nothing
            If pDSN.Name.Contains("X") Or pDSN.Name.Contains("Y") Then
                'If pDSN.Name.Contains("_OS") Then
                ' OS Layers present, export them seperately
                OS_Layer_Names &= TempWSPath & "\" & pDSN.Name & "; "
            Else
                ' Inventory layer
                Inv_Layer_Names &= TempWSPath & "\" & pDSN.Name & "; "
            End If

            pDSN = pDSNames.Next
        End While

        'gputils = New GPUtilities
        pProgressTracker = New TrackCancel

        'Get the environment manager
        pGPCOMHelper = New GpDispatch
        pGPEnvMgr = pGPCOMHelper.EnvironmentManager

        'Set output coordinate system
        pGPEnv_CoordSys = pGPEnvMgr.FindEnvironment("outputCoordinateSystem")
        pGPEnv_CoordSys.Value = pGPEnv_CoordSys.DataType.CreateValue(ArcMap_INSTALL_DIR & "Coordinate Systems\Projected Coordinate Systems\National Grids\Your National Grid.prj")

        'Set extents
        pGPEnv_Extent = pGPEnvMgr.FindEnvironment("extent")
        pGPEnv_Extent.Value = pGPEnv_Extent.DataType.CreateValue("sameAsInput")

        'Create a toolbox workspace factory
        pToolboxWorkspaceFactory = New ToolboxWorkspaceFactory

        'Open toolbox workspace
        pToolboxWorkspace = pToolboxWorkspaceFactory.OpenFromFile(ArcMap_INSTALL_DIR & "ArcToolbox\Toolboxes", 0)

        'Open toolbox by name
        pGPToolbox = pToolboxWorkspace.OpenToolbox("Data Interoperability Tools.tbx")

        'If DI Toolbox is not found, means extensions were not installed
        If pGPToolbox Is Nothing Then
            MsgBox("Data Interoperability Toolbox not found!" & vbCrLf & "Please contact helpdesk.", MsgBoxStyle.Critical)
            Throw New CustomException
        End If

        'Open tool by name
        pGPTool = pGPToolbox.OpenTool("QuickExport")    'You need to use QuickImport

        'Get parameters required for the tool
        pParamArray = pGPTool.ParameterInfo

        If Not (Inv_Layer_Names Is Nothing Or String.IsNullOrEmpty(Inv_Layer_Names) Or Inv_Layer_Names = "") Then
            'Remove trailing ";"
            Inv_Layer_Names = Inv_Layer_Names.Remove(Inv_Layer_Names.LastIndexOf(";"))

            'Set input parameters
            pParameter = pParamArray.Element(0)
            pParameterEdit = pParameter
            pDataType = pParameter.DataType
            pParameterEdit.Value = pDataType.CreateValue(Inv_Layer_Names)

            'Set output parameters
            pParameter = pParamArray.Element(1)
            pParameterEdit = pParameter
            pDataType = pParameter.DataType
            pParameterEdit.Value = pDataType.CreateValue("GMLSF, " & FILE_STORAGE_PATH.Substring(0, FILE_STORAGE_PATH.LastIndexOf(".")) & ".gml")

            'Validate input parameters
            pGPMessages = pGPTool.Validate(pParamArray, True, Nothing)

            'Execute tool for at least inventory layers
            pGPTool.Execute(pParamArray, pProgressTracker, pGPEnvMgr, pGPMessages)
        End If           

    Catch ex As Exception
        Throw New CustomException(ex.Message, ex)
    Finally
        'Release resources           
        pGPMessages = Nothing
        pParameterEdit = Nothing
        pDataType = Nothing
        pParameterEdit = Nothing
        pParameter = Nothing
        pParamArray = Nothing
        pGPTool = Nothing
        pGPToolbox = Nothing
        pToolboxWorkspace = Nothing
        pToolboxWorkspaceFactory = Nothing
        pGPEnv_Extent = Nothing
        pGPEnv_CoordSys = Nothing
        pGPEnvMgr = Nothing
        pGPCOMHelper = Nothing
        pProgressTracker = Nothing
    End Try
End Sub
ujjwalesri
źródło
Cześć, dziękuję za odpowiedź :) Prawdopodobnie powinienem był określić, że używam arcMap 10. Z tego zasobu help.arcgis.com/en/sdk/10.0/arcobjects_net/conceptualhelp/... Wygląda na to, że FMEWorkspaceFactory został usunięty od 9,3 -> 10,0. Czy wiesz, czy istnieją jakieś alternatywne sposoby korzystania z FMEWorkspaceFactoryClass, które określiłeś w swoim przykładzie? Z pozdrowieniami / larssj
2847
Ohh ... Nie wiedziałem, że został usunięty. Jeśli się nie mylę, to przybornik DI również nie byłby dostępny ...
ujjwalesri,
Ok, nie ma problemu kolego. Dzięki za pomoc. Jeśli znajdę rozwiązanie, zamieszczam je tutaj. Jedyne, o czym teraz myślę, to „za kulisami” i dodanie plików fdl wymaganych do dodania usług do ArcView (jeśli zostaną umieszczone w odpowiednim katalogu ArcView, powinny zostać automatycznie załadowane do interfejsu połączeń interoperacyjnych). Dla moich użytkowników byłoby to o wiele łatwiejsze.
user2847,