EDMI: Update Service and Client to Use Messages for EDMI Methods

Service.EDMIService/Messages.vb

@@ -3,29 +3,30 @@ Imports System.Runtime.Serialization
 Imports System.ServiceModel
 
 Namespace Messages
-    <Serializable>
-    <DataContract>
-    <KnownType(GetType(DBNull))>
-    Public MustInherit Class BaseResponse
-        <DataMember>
-        Public Property OK As Boolean
-        <DataMember>
-        Public Property ErrorMessage As String
+    <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
 
-        Public Sub New()
-            OK = True
-        End Sub
-
-        Public Sub New(ErrorMessage As String)
-            OK = False
-            Me.ErrorMessage = ErrorMessage
-        End Sub
+    <MessageContract>
+    Public Class DocumentImportResponse
+        <MessageBodyMember>
+        Public ObjectId As Long
     End Class
 
     <MessageContract>
     Public Class DocumentStreamRequest
         <MessageBodyMember>
-        Public ObjectId As Int64
+        Public ObjectId As Long
     End Class
 
     <MessageContract>
@@ -37,9 +38,10 @@ Namespace Messages
         Public FileContents As Stream
     End Class
 
+    <MessageContract>
+    <KnownType(GetType(DBNull))>
     Public Class DocumentListResponse
-        Inherits BaseResponse
-
+        <MessageBodyMember>
         Public Datatable As DataTable
     End Class