AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

EDMI.API: add parameter to load file contents for GetFileObject

Browse Source
This commit is contained in:
Jonathan Jenne
2021-12-17 16:41:05 +01:00
parent 1b6a69b24f
commit 97fd37de0c
4 changed files with 35 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Modules.EDMIAPI/Client.vb
View File

@@ -61,6 +61,7 @@ Public Class Client
''' <param name="IPAddress">The IP address to connect to</param>
''' <param name="PortNumber">The Port number to use for the connection</param>
Public Sub New(LogConfig As LogConfig, IPAddress As String, PortNumber As Integer)
_LogConfig = LogConfig
_logger = LogConfig.GetLogger()
_FileEx = New Filesystem.File(LogConfig)
@@ -247,10 +248,10 @@ Public Class Client
End Try
End Function
Public Function GetFileObject(pObjectId As Long) As FileObject
Public Function GetFileObject(pObjectId As Long, pLoadFileContents As Boolean) As FileObject
Try
Dim oGetFileObject As New Modules.Zooflow.GetFileObject(_LogConfig, Me)
Dim oFileObject = oGetFileObject.Run(pObjectId)
Dim oGetFileObject As New Modules.Zooflow.GetFileObject(_LogConfig, _channel)
Dim oFileObject = oGetFileObject.Run(pObjectId, pLoadFileContents)
Return oFileObject
Catch ex As Exception
_logger.Error(ex)
@@ -258,10 +259,10 @@ Public Class Client
End Try
End Function
Public Async Function GetFileObjectAsync(pObjectId As Long) As Task(Of FileObject)
Public Async Function GetFileObjectAsync(pObjectId As Long, pLoadFileContents As Boolean) As Task(Of FileObject)
Try
Dim oGetFileObject As New Modules.Zooflow.GetFileObject(_LogConfig, Me)
Dim oFileObject = Await oGetFileObject.RunAsync(pObjectId)
Dim oFileObject = Await oGetFileObject.RunAsync(pObjectId, pLoadFileContents)
Return oFileObject
Catch ex As Exception
_logger.Error(ex)
@@ -734,6 +735,7 @@ Public Class Client
End Class
Public Class DocumentInfo
Public Id As Long
Public FullPath As String
Public AccessRight As AccessRight
End Class