[5/6] webservices: Implement WsGetMessageProperty and WsSetMessageProperty.

[Hans Leidekker]

Signed-off-by: Hans Leidekker <hans at codeweavers.com>
---
 dlls/webservices/msg.c            | 28 ++++++++++++++++++++++++++++
 dlls/webservices/webservices.spec |  4 ++--
 2 files changed, 30 insertions(+), 2 deletions(-)

diff --git a/dlls/webservices/msg.c b/dlls/webservices/msg.c
index 85a27f5..47df32e 100644
--- a/dlls/webservices/msg.c
+++ b/dlls/webservices/msg.c
@@ -126,3 +126,31 @@ void WINAPI WsFreeMessage( WS_MESSAGE *handle )
     TRACE( "%p\n", handle );
     free_msg( msg );
 }
+
+/**************************************************************************
+ *          WsGetMessageProperty		[webservices.@]
+ */
+HRESULT WINAPI WsGetMessageProperty( WS_MESSAGE *handle, WS_MESSAGE_PROPERTY_ID id, void *buf,
+                                     ULONG size, WS_ERROR *error )
+{
+    struct msg *msg = (struct msg *)handle;
+
+    TRACE( "%p %u %p %u %p\n", handle, id, buf, size, error );
+    if (error) FIXME( "ignoring error parameter\n" );
+
+    return prop_get( msg->prop, msg->prop_count, id, buf, size );
+}
+
+/**************************************************************************
+ *          WsSetMessageProperty		[webservices.@]
+ */
+HRESULT WINAPI WsSetMessageProperty( WS_MESSAGE *handle, WS_MESSAGE_PROPERTY_ID id, const void *value,
+                                     ULONG size, WS_ERROR *error )
+{
+    struct msg *msg = (struct msg *)handle;
+
+    TRACE( "%p %u %p %u\n", handle, id, value, size );
+    if (error) FIXME( "ignoring error parameter\n" );
+
+    return prop_set( msg->prop, msg->prop_count, id, value, size );
+}
diff --git a/dlls/webservices/webservices.spec b/dlls/webservices/webservices.spec
index c7794a3..0093fc0 100644
--- a/dlls/webservices/webservices.spec
+++ b/dlls/webservices/webservices.spec
@@ -71,7 +71,7 @@
 @ stdcall WsGetHeapProperty(ptr long ptr long ptr)
 @ stub WsGetListenerProperty
 @ stub WsGetMappedHeader
-@ stub WsGetMessageProperty
+@ stdcall WsGetMessageProperty(ptr long ptr long ptr)
 @ stub WsGetMetadataEndpoints
 @ stub WsGetMetadataProperty
 @ stub WsGetMissingMetadataDocumentAddress
@@ -153,7 +153,7 @@
 @ stdcall WsSetInput(ptr ptr ptr ptr long ptr)
 @ stdcall WsSetInputToBuffer(ptr ptr ptr long ptr)
 @ stub WsSetListenerProperty
-@ stub WsSetMessageProperty
+@ stdcall WsSetMessageProperty(ptr long ptr long ptr)
 @ stdcall WsSetOutput(ptr ptr ptr ptr long ptr)
 @ stdcall WsSetOutputToBuffer(ptr ptr ptr long ptr)
 @ stub WsSetReaderPosition
-- 
2.1.4