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

EDMIService: Send extension with GetFileObject

Browse Source
This commit is contained in:
Jonathan Jenne 2021-12-17 11:04:56 +01:00
parent 6373c69f2b
commit a83b22d923
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Service.EDMIService/Methods/GetFileObject/GetFileObjectMethod.vb
View File

@ -27,11 +27,13 @@ Namespace Methods.GetFileObject
Dim oRow As DataRow = oTable.First() Dim oRow As DataRow = oTable.First()
Dim oFileHash As String = oRow.ItemEx("FILE_HASH", "") Dim oFileHash As String = oRow.ItemEx("FILE_HASH", "")
Dim oFileSize As Long = oRow.ItemEx(Of Long)("FILE_SIZE", 0) Dim oFileSize As Long = oRow.ItemEx(Of Long)("FILE_SIZE", 0)
Dim oFileExtension As String = oRow.ItemEx(Of String)("EXTENSION")
Dim oFileObject As New FileObject With { Dim oFileObject As New FileObject With {
.ObjectId = pData.ObjectId, .ObjectId = pData.ObjectId,
.FileHash = oFileHash, .FileHash = oFileHash,
.FileSize = oFileSize .FileSize = oFileSize,
.FileExtension = oFileExtension
} }
If pData.LoadFileContents = True Then If pData.LoadFileContents = True Then