Get IFeatureLayer and ITable from feature class stored in "in memory" workspace

StanStas

Hi,

I use "InMemoryWorkspace" as output of geoprocessing tool. I'd like to get IFeatureLayer and ITable from that output. How can I get it?

My try: 🙂

        output = "in_memory/file"        Dim pWorkspaceFactory As IWorkspaceFactory = New ESRI.ArcGIS.DataSourcesGDB.InMemoryWorkspaceFactory Dim pFeatureWorkspace As IFeatureWorkspace = pWorkspaceFactory.OpenFromFile("in_memory", 0) Dim pFLayer As IFeatureLayer = New FeatureLayer pFLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass(System.IO.Path.GetFileName(output)) Dim pTable As ITable = pFeatureWorkspace.OpenTable(System.IO.Path.GetFileName(output))

Thanks for tips!

kenbuja

Here's the code I use to get the output from a geoprocessing tool. In this case, I'm running a Dissolve with the output being a string of the final location. This string is used in the function ReturnObjectfromResult, which can return a feature class, feature layer,  or a table.

    Friend Function DissolveDataset(ByVal InputName As Object, ByVal DissolveField As String, ByVal StatsFields As String, ByVal OutputName As String) As ESRI.ArcGIS.Geodatabase.IFeatureClass          Dim DissolveDS As New ESRI.ArcGIS.DataManagementTools.Dissolve         Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2          Try             Using releaser As New ESRI.ArcGIS.ADF.ComReleaser                 releaser.ManageLifetime(DissolveDS)                 DissolveDS.in_features = InputName                 DissolveDS.dissolve_field = DissolveField                 DissolveDS.statistics_fields = StatsFields                 DissolveDS.out_feature_class = OutputName                  Result = RunTool(DissolveDS, Nothing)                 If Result Is Nothing Then                     System.Windows.Forms.MessageBox.Show("Could not dissolve dataset")                     Return Nothing                 End If                  Return ReturnObjectfromResult(Result, "Feature Class")             End Using          Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Dissolve error")             Return Nothing         End Try      End Function      Private Sub ReturnMessages(ByVal pResult As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Title As String)          If pResult Is Nothing Then Exit Sub          Dim ErrorMessage As String          If pResult.MessageCount > 0 Then             For Count As Integer = 0 To pResult.MessageCount - 1                 ErrorMessage += pResult.GetMessage(Count)             Next         End If          System.Windows.Forms.MessageBox.Show(ErrorMessage, Title)      End Sub      Friend Function ReturnObjectfromResult(ByVal result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Type As String) As Object          Dim GPVal As ESRI.ArcGIS.Geodatabase.IGPValue         Dim InMemFC As String         Dim GPUtil As ESRI.ArcGIS.Geoprocessing.IGPUtilities3 = New ESRI.ArcGIS.Geoprocessing.GPUtilities          Try             GPVal = result.GetOutput(0)             InMemFC = GPVal.GetAsText()              Select Case Type                 Case "Feature Class"                     Return GPUtil.OpenFeatureClassFromString(InMemFC)                 Case "Table"                     Return GPUtil.OpenTableFromString(InMemFC)                 Case "Feature Layer"                     Return GPUtil.OpenFeatureLayerFromString(InMemFC)                 Case Else                     Return Nothing             End Select          Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "ReturnObjectfromResult error")             Return Nothing         End Try      End Function       Friend Function RunTool(ByVal Process As ESRI.ArcGIS.Geoprocessor.IGPProcess, ByVal TC As ESRI.ArcGIS.esriSystem.ITrackCancel2, Optional ByVal AddOutput As Boolean = False) As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2          Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2          Try             System.Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor             Dim GP As New ESRI.ArcGIS.Geoprocessor.Geoprocessor              GP.AddOutputsToMap = AddOutput             GP.OverwriteOutput = True              Result = CType(GP.Execute(Process, Nothing), ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2)             If Result.Status <> ESRI.ArcGIS.esriSystem.esriJobStatus.esriJobSucceeded Then ReturnMessages(Result, "Geoprocessing Error")             GP.ClearMessages()         Catch ex As Exception             ReturnMessages(Result, "Fail")             System.Windows.Forms.MessageBox.Show(ex.ToString, "Run Geoprocessor")         End Try          Return Result      End Function