Add NewFileIndex

EDMI_FILE_OPs/Document.vb

@@ -53,32 +53,14 @@ Public Class Document
     ''' </summary>
     ''' <param name="FilePath">The filename to import</param>
     ''' <returns>A document object</returns>
-    Public Async Function ImportFileAsync(FilePath As String) As Task(Of DocumentResult)
-        Try
-            Return Await CreateDocument(FilePath)
-        Catch ex As Exception
-            _logger.Error(ex)
-            Throw ex
-        End Try
-    End Function
-
-    Public Async Function SetFileIndex(DocObject As DocumentObject, Syskey As String, Value As String) As Task
-        Try
-            Dim oResult As DocumentResult = _channel
-        Catch ex As Exception
-            _logger.Error(ex)
-            Throw ex
-        End Try
-    End Function
-
-    Private Async Function CreateDocument(FilePath As String) As Task(Of DocumentResult)
+    Public Function ImportFile(FilePath As String) As DocumentResult
         Try
             Dim oContents As Byte() = File.ReadAllBytes(FilePath)
             Dim oInfo As New FileInfo(FilePath)
             Dim oName As String = oInfo.Name
             Dim oExtension As String = oInfo.Extension.Substring(1)
 
-            Dim oDocObject = Await _channel.CreateFileAsync(oName, oContents)
+            Dim oDocObject = _channel.NewFile(oName, oContents)
             Return oDocObject
         Catch ex As Exception
             _logger.Error(ex)
@@ -86,6 +68,48 @@ Public Class Document
         End Try
     End Function
 
+    ''' <summary>
+    ''' Imports a file by filename
+    ''' </summary>
+    ''' <param name="FilePath">The filename to import</param>
+    ''' <returns>A document object</returns>
+    Public Async Function ImportFileAsync(FilePath As String) As Task(Of DocumentResult)
+        Try
+            Dim oContents As Byte() = File.ReadAllBytes(FilePath)
+            Dim oInfo As New FileInfo(FilePath)
+            Dim oName As String = oInfo.Name
+            Dim oExtension As String = oInfo.Extension.Substring(1)
+
+            Dim oDocObject = Await _channel.NewFileAsync(oName, oContents)
+            Return oDocObject
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
+    Public Async Function NewFileIndexAsync(DocObject As DocumentObject, Syskey As String, LanguageCode As String, Value As String) As Task(Of IndexResult)
+        Try
+            Dim oResult As IndexResult = Await _channel.NewFileIndexAsync(DocObject, Syskey, LanguageCode, Value)
+
+            Return oResult
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
+    Public Function NewFileIndex(DocObject As DocumentObject, Syskey As String, LanguageCode As String, Value As String) As IndexResult
+        Try
+            Dim oResult As IndexResult = _channel.NewFileIndex(DocObject, Syskey, LanguageCode, Value)
+
+            Return oResult
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     'Public Async Function New_EDMI_File(oFILENAME As String, oUserName As String) As Task(Of String)
     '    Try
     '        Dim oFileGUID As DocumentResult = Await CreateDocument(oFILENAME)
@@ -127,18 +151,18 @@ Public Class Document
     '        Return Nothing
     '    End Try
     'End Function
-    Public Async Function Load_EDMIFile_2TempPath(oEDMIFile_GUID As String) As Task(Of String)
-        'Try
-        '    Dim oResult As EDMIServiceReference.ContainerResult = Await _channel.GetFileAsync(oEDMIFile_GUID)
-        '    Dim oTempPath = Path.Combine(Path.GetTempPath(), "EDMI_FileContainer")
-        '    Directory.CreateDirectory(oTempPath)
-        '    Dim oFilePath = Path.Combine(oTempPath, $"{oResult.Container.FileId}.{oResult.Container.Extension}")
-        '    File.WriteAllBytes(oFilePath, oResult.Container.Contents)
-        '    ' Process.Start(oTempPath)
-        '    Return oTempPath
-        'Catch ex As Exception
-        '    _logger.Error(ex)
-        '    Return Nothing
-        'End Try
-    End Function
+    'Public Async Function Load_EDMIFile_2TempPath(oEDMIFile_GUID As String) As Task(Of String)
+    'Try
+    '    Dim oResult As EDMIServiceReference.ContainerResult = Await _channel.GetFileAsync(oEDMIFile_GUID)
+    '    Dim oTempPath = Path.Combine(Path.GetTempPath(), "EDMI_FileContainer")
+    '    Directory.CreateDirectory(oTempPath)
+    '    Dim oFilePath = Path.Combine(oTempPath, $"{oResult.Container.FileId}.{oResult.Container.Extension}")
+    '    File.WriteAllBytes(oFilePath, oResult.Container.Contents)
+    '    ' Process.Start(oTempPath)
+    '    Return oTempPath
+    'Catch ex As Exception
+    '    _logger.Error(ex)
+    '    Return Nothing
+    'End Try
+    'End Function
 End Class