Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.Logging

Namespace Modules.Zooflow
    Public Class GetFileObject
        Private ReadOnly LogConfig As LogConfig
        Private ReadOnly Logger As Logger
        Private ReadOnly Channel As IEDMIServiceChannel

        Public Sub New(pLogConfig As LogConfig, pChannel As IEDMIServiceChannel)
            LogConfig = pLogConfig
            Logger = pLogConfig.GetLogger()
            Channel = 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