48 lines
1.6 KiB
VB.net
48 lines
1.6 KiB
VB.net
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Namespace Modules.Zooflow
|
|
Public Class GetFileObject
|
|
Inherits BaseMethod
|
|
|
|
Public Sub New(pLogConfig As LogConfig, pChannel As IEDMIServiceChannel)
|
|
MyBase.New(pLogConfig, pChannel)
|
|
End Sub
|
|
|
|
Public Async Function RunAsync(pObjectId As Long, pLoadFileContents As Boolean) As Task(Of FileObject)
|
|
Try
|
|
Dim oParams = New GetFileObjectRequest With {
|
|
.ObjectId = pObjectId,
|
|
.LoadFileContents = pLoadFileContents
|
|
}
|
|
Dim oResult = Await Channel.GetFileObjectAsync(oParams)
|
|
If oResult.OK Then
|
|
Return oResult.FileObject
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Run(pObjectId As Long, pLoadFileContents As Boolean) As FileObject
|
|
Try
|
|
Dim oParams = New GetFileObjectRequest With {
|
|
.ObjectId = pObjectId,
|
|
.LoadFileContents = pLoadFileContents
|
|
}
|
|
Dim oResult = Channel.GetFileObject(oParams)
|
|
If oResult.OK Then
|
|
Return oResult.FileObject
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
End Class
|
|
End Namespace |