EDMIService: First version of GetAccessRight

Service.EDMIService/Results/AccessRightResult.vb

@@ -0,0 +1,23 @@
+Imports System.Runtime.Serialization
+Imports DigitalData.Services.EDMIService.Rights
+Imports DigitalData.Modules.Language
+
+Namespace Messages
+    Public Class AccessRightResult
+        Inherits BaseResult
+
+        Public Property Right As AccessRight = AccessRight.VIEW_ONLY
+
+        Public Sub New(AccessRight As AccessRight)
+            MyBase.New()
+            Right = AccessRight
+        End Sub
+
+        Public Sub New(Exception As Exception)
+            MyBase.New()
+            OK = False
+            ErrorMessage = Exception.Message
+        End Sub
+    End Class
+
+End Namespace

Service.EDMIService/Results/BaseResult.vb

@@ -1,6 +1,6 @@
 Imports System.Runtime.Serialization
 
-Namespace Results
+Namespace Messages
     <Serializable>
     <DataContract>
     <KnownType(GetType(DBNull))>
@@ -14,9 +14,14 @@ Namespace Results
             OK = True
         End Sub
 
-        Public Sub New(ErrorMessage As String)
+        Public Sub New(Message As String)
             OK = False
-            Me.ErrorMessage = ErrorMessage
+            ErrorMessage = Message
+        End Sub
+
+        Public Sub New(Exception As Exception)
+            OK = False
+            ErrorMessage = Exception.Message
         End Sub
     End Class
 End Namespace

Service.EDMIService/Results/DatabaseResult.vb

@@ -1,6 +1,6 @@
 Imports System.Runtime.Serialization
 
-Namespace Results
+Namespace Messages
 
     <Serializable>
     <DataContract>

Service.EDMIService/Results/Messages.vb

@@ -0,0 +1,58 @@
+Imports System.IO
+Imports System.Runtime.Serialization
+Imports System.ServiceModel
+
+Namespace Messages
+
+#Region "DocumentImport"
+    <MessageContract>
+    Public Class DocumentImportRequest
+        <MessageBodyMember>
+        Public Contents() As Byte
+        <MessageBodyMember>
+        Public ObjectStoreId As Long
+        <MessageBodyMember>
+        Public FileName As String
+        <MessageBodyMember>
+        Public DocumentType As String
+        <MessageBodyMember>
+        Public RetentionDays As Long = 0
+    End Class
+
+    <MessageContract>
+    Public Class DocumentImportResponse
+        <MessageBodyMember>
+        Public ObjectId As Long
+    End Class
+#End Region
+
+#Region "DocumentStream"
+    <MessageContract>
+    Public Class DocumentStreamRequest
+        <MessageBodyMember>
+        Public ObjectId As Long
+    End Class
+
+    <MessageContract>
+    Public Class DocumentStreamResponse
+        <MessageHeader(MustUnderstand:=True)>
+        Public FileName As String
+
+        <MessageBodyMember(Order:=1)>
+        Public FileContents As Stream
+    End Class
+#End Region
+
+#Region "DocumentList"
+    <MessageContract>
+    <KnownType(GetType(DBNull))>
+    Public Class DocumentListResponse
+        <MessageBodyMember>
+        Public Datatable As DataTable
+    End Class
+#End Region
+
+End Namespace
+
+
+