static HRESULT create_input_message( WS_CHANNEL *channel, const WS_CALL_PROPERTY *properties,
ULONG count, WS_MESSAGE **ret )
{
WS_MESSAGE *msg;
HRESULT hr;
if ((hr = WsCreateMessageForChannel( channel, NULL, 0, &msg, NULL )) != S_OK) return hr;
if ((hr = WsInitializeMessage( msg, WS_REQUEST_MESSAGE, NULL, NULL )) != S_OK ||
(hr = set_send_context( msg, properties, count )) != S_OK)
{
WsFreeMessage( msg );
return hr;
}
*ret = msg;
return S_OK;
}
/**************************************************************************
* WsSendMessage [webservices.@]
*/
HRESULT WINAPI WsSendMessage( WS_CHANNEL *handle, WS_MESSAGE *msg, const WS_MESSAGE_DESCRIPTION *desc,
WS_WRITE_OPTION option, const void *body, ULONG size, const WS_ASYNC_CONTEXT *ctx,
WS_ERROR *error )
{
struct channel *channel = (struct channel *)handle;
HRESULT hr;
TRACE( "%p %p %p %08x %p %u %p %p\n", handle, msg, desc, option, body, size, ctx, error );
if (error) FIXME( "ignoring error parameter\n" );
if (ctx) FIXME( "ignoring ctx parameter\n" );
if (!handle || !msg || !desc) return E_INVALIDARG;
if ((hr = WsInitializeMessage( msg, WS_REQUEST_MESSAGE, NULL, NULL )) != S_OK) return hr;
if ((hr = WsAddressMessage( msg, &channel->addr, NULL )) != S_OK) return hr;
if ((hr = message_set_action( msg, desc->action )) != S_OK) return hr;
if (!channel->writer && (hr = WsCreateWriter( NULL, 0, &channel->writer, NULL )) != S_OK) return hr;
if ((hr = set_output( channel->writer )) != S_OK) return hr;
if ((hr = write_message( msg, channel->writer, desc->bodyElementDescription, option, body, size )) != S_OK)
return hr;
return channel_send_message( handle, msg );
}
// Main entry point
int __cdecl wmain()
{
HRESULT hr = S_OK;
WS_ERROR* error = NULL;
WS_CHANNEL* channel = NULL;
WS_LISTENER* listener = NULL;
WS_HEAP* heap = NULL;
WS_MESSAGE* requestMessage = NULL;
WS_MESSAGE* replyMessage = NULL;
static const WS_STRING uri = WS_STRING_VALUE(L"http://+:80/example");
// Create an error object for storing rich error information
hr = WsCreateError(
NULL,
0,
&error);
if (FAILED(hr))
{
goto Exit;
}
// Create a listener
hr = WsCreateListener(
WS_CHANNEL_TYPE_REPLY,
WS_HTTP_CHANNEL_BINDING,
NULL, 0,
NULL,
&listener,
error);
if (FAILED(hr))
{
goto Exit;
}
// Open listener
hr = WsOpenListener(
listener,
&uri,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Set up a property indicating streamined input and output
WS_TRANSFER_MODE transferMode = WS_STREAMED_TRANSFER_MODE;
WS_CHANNEL_PROPERTY transferModeProperty;
transferModeProperty.id = WS_CHANNEL_PROPERTY_TRANSFER_MODE;
transferModeProperty.value = &transferMode;
transferModeProperty.valueSize = sizeof(transferMode);
// Create a channel suitable for accepting from the listener
hr = WsCreateChannelForListener(
listener,
&transferModeProperty,
1,
&channel,
error);
if (FAILED(hr))
{
goto Exit;
}
hr = WsCreateMessageForChannel(
channel,
NULL,
0,
&requestMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
hr = WsCreateMessageForChannel(
channel,
NULL,
0,
&replyMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
// Create a heap to store deserialized data
hr = WsCreateHeap(
/*maxSize*/ 2048,
/*trimSize*/ 512,
NULL,
0,
&heap,
error);
if (FAILED(hr))
{
goto Exit;
}
// Receive messages and send replies
for (int i = 0; i < 10; i++)
{
// Accept a channel from the client
hr = WsAcceptChannel(listener, channel, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Receive the message start (headers)
hr = WsReadMessageStart(
channel,
requestMessage,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Get action value
WS_XML_STRING receivedAction;
hr = WsGetHeader(
requestMessage,
WS_ACTION_HEADER,
WS_XML_STRING_TYPE,
WS_READ_REQUIRED_VALUE, NULL,
&receivedAction,
sizeof(receivedAction),
error);
if (FAILED(hr))
{
goto Exit;
}
// Make sure action is what we expect
hr = WsXmlStringEquals(
&receivedAction,
PurchaseOrder_wsdl.messages.PurchaseOrder.action,
error);
if (hr != S_OK)
{
hr = WS_E_ENDPOINT_ACTION_NOT_SUPPORTED;
goto Exit;
}
// Initialize the reply message based on the request
hr = WsInitializeMessage(
replyMessage,
WS_REPLY_MESSAGE,
requestMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
// Write the start of the reply message (headers)
hr = WsWriteMessageStart(
channel,
replyMessage,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Read the contents of the request body, and send response body
for (;;)
{
// Make sure we have at least one purchase order buffered in the request message.
// Each purchase order may be up to 1024 bytes in size.
hr = WsFillBody(
requestMessage,
1024,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Deserialize purchase order into heap (if any more)
_PurchaseOrderType* purchaseOrder;
hr = WsReadBody(
requestMessage,
&PurchaseOrder_wsdl.globalElements.PurchaseOrderType,
WS_READ_OPTIONAL_POINTER,
heap,
&purchaseOrder,
sizeof(purchaseOrder),
error);
if (FAILED(hr))
{
goto Exit;
}
// NULL indicates no more purchase orders
if (purchaseOrder == NULL)
{
break;
}
// Print out purchase order contents
wprintf(L"%ld, %s\n",
purchaseOrder->quantity,
purchaseOrder->productName);
// Serialize a confirmation into the reply message
_OrderConfirmationType orderConfirmation;
orderConfirmation.expectedShipDate = L"1/1/2006";
orderConfirmation.orderID = 123;
hr = WsWriteBody(
replyMessage,
&PurchaseOrder_wsdl.globalElements.OrderConfirmationType,
WS_WRITE_REQUIRED_VALUE,
&orderConfirmation,
sizeof(orderConfirmation),
error);
if (FAILED(hr))
{
goto Exit;
}
// Flush the confirmation data if at least 4096 bytes have been accumulated
hr = WsFlushBody(
replyMessage,
4096,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Free purchase order
hr = WsResetHeap(
heap,
error);
if (FAILED(hr))
{
goto Exit;
}
}
// Read the end of the message
hr = WsReadMessageEnd(
channel,
requestMessage,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Write the end of the message
hr = WsWriteMessageEnd(
channel,
replyMessage,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Reset the message so it can be used again
hr = WsResetMessage(
requestMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
// Reset the message so it can be used again
hr = WsResetMessage(
replyMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
if (channel != NULL)
{
// Close the channel
WsCloseChannel(channel, NULL, error);
}
// Reset the channel so it can be used again
hr = WsResetChannel(
channel,
error);
if (FAILED(hr))
{
goto Exit;
}
}
Exit:
if (FAILED(hr))
{
// Print out the error
PrintError(hr, error);
}
if (channel != NULL)
{
// Close the channel
WsCloseChannel(channel, NULL, error);
}
if (listener != NULL)
{
// Close the listener if it was opened
WsCloseListener(listener, NULL, error);
}
if (channel != NULL)
{
WsFreeChannel(channel);
}
if (listener != NULL)
{
WsFreeListener(listener);
}
if (requestMessage != NULL)
{
WsFreeMessage(requestMessage);
}
if (replyMessage != NULL)
{
WsFreeMessage(replyMessage);
}
if (heap != NULL)
{
WsFreeHeap(heap);
}
if (error != NULL)
{
WsFreeError(error);
}
fflush(stdout);
return SUCCEEDED(hr) ? 0 : -1;
}
// Reads the data and serializes it into the message. This function does custom serialization for the same
// reason and with the same alrogithm as DeserializeAndWriteMessage.
HRESULT CFileRepServer::ReadAndSendChunk(
__in CRequest* request,
__in long chunkSize,
__in LONGLONG chunkPosition,
__in HANDLE file)
{
PrintVerbose(L"Entering CFileRepServer::ReadAndSendChunk");
if (chunkSize < 0 || chunkPosition < 0)
{
PrintVerbose(L"Leaving CFileRepServer::ReadAndSendChunk");
return E_INVALIDARG;
}
HRESULT hr = S_OK;
WS_XML_WRITER* writer = NULL;
WS_MESSAGE* replyMessage = request->GetReplyMessage();
WS_MESSAGE* requestMessage = request->GetRequestMessage();
WS_ERROR* error = request->GetError();
WS_CHANNEL* channel = request->GetChannel();
BYTE* buf = NULL;
LONG length = 0;
// To avoid using too much memory we read and write the message in chunks.
LONG bytesToRead = FILE_CHUNK;
if (bytesToRead > chunkSize)
{
bytesToRead = chunkSize;
}
buf = (BYTE*)HeapAlloc(GetProcessHeap(), 0, bytesToRead);
IfNullExit(buf);
IfFailedExit(WsInitializeMessage(replyMessage, WS_BLANK_MESSAGE, requestMessage, error));
// Add the action header
IfFailedExit(WsSetHeader(
replyMessage,
WS_ACTION_HEADER,
WS_XML_STRING_TYPE,
WS_WRITE_REQUIRED_VALUE,
&fileReplyAction,
sizeof(fileReplyAction),
error));
// Send the message headers
IfFailedExit(WsWriteMessageStart(channel, replyMessage, NULL, error));
// Get writer to serialize message body
IfFailedExit(WsGetMessageProperty(replyMessage, WS_MESSAGE_PROPERTY_BODY_WRITER, &writer, sizeof(writer), error));
// Write FileChunk start element.
// This whole code block is the serialization equivalent of the desiralization code.
IfFailedExit(WsWriteStartElement(writer, NULL, &fileChunkLocalName, &fileChunkNamespace, error));
// Write chunkPosition element
IfFailedExit(WsWriteStartElement(writer, NULL, &chunkPositionLocalName, &fileChunkNamespace, error));
IfFailedExit(WsWriteValue(writer, WS_INT64_VALUE_TYPE, &chunkPosition, sizeof(chunkPosition), error));
IfFailedExit(WsWriteEndElement(writer, error));
// Write fileContent start element
IfFailedExit(WsWriteStartElement(writer, NULL, &fileContentLocalName, &fileChunkNamespace, error));
// Like in the deserialization code, we read the file in multiple steps to avoid
// having to have everything in memory at once. The message could potentially be
// big so this is more efficient.
for (;;)
{
ULONG bytesRead = 0;
if (length + bytesToRead > chunkSize)
{
bytesToRead = chunkSize - length;
}
if (!ReadFile(file, buf, bytesToRead, &bytesRead, NULL))
{
PrintError(L"File read error.", true);
hr = HRESULT_FROM_WIN32(GetLastError());
EXIT_FUNCTION
}
if (0 == bytesRead)
{
// We reched the end of the file before filling the chunk. Send a partial chunk.
break;
}
IfFailedExit(WsWriteBytes(writer, buf, bytesRead, error));
length += bytesRead;
if (length == chunkSize)
{
// We filled the message
break;
}
}
HRESULT CALLBACK ProcessMessage(
__in const WS_OPERATION_CONTEXT* context,
__in_opt const WS_ASYNC_CONTEXT* asyncContext,
__in_opt WS_ERROR* error)
{
UNREFERENCED_PARAMETER(asyncContext);
WS_CHANNEL* channel = NULL;
HRESULT hr = S_OK;
WS_MESSAGE* requestMessage = NULL;
WS_MESSAGE* replyMessage = NULL;
WS_HEAP* heap;
// Get the request mesasge
hr = WsGetOperationContextProperty(
context,
WS_OPERATION_CONTEXT_PROPERTY_INPUT_MESSAGE,
&requestMessage,
sizeof(requestMessage),
error);
if (FAILED(hr))
{
return hr;
}
// Get the channel
hr = WsGetOperationContextProperty(
context,
WS_OPERATION_CONTEXT_PROPERTY_CHANNEL,
&channel,
sizeof(channel),
error);
if (FAILED(hr))
{
return hr;
}
// Get the heap
hr = WsGetOperationContextProperty(
context,
WS_OPERATION_CONTEXT_PROPERTY_HEAP,
&heap,
sizeof(heap),
error);
if (FAILED(hr))
{
return hr;
}
// Create a reply message
hr = WsCreateMessageForChannel(
channel,
NULL,
0,
&replyMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
// Initialize reply message
hr = WsInitializeMessage(replyMessage, WS_REPLY_MESSAGE, requestMessage, error);
if (FAILED(hr))
{
goto Exit;
}
// Get the HTTP Verb
WS_STRING verb;
hr = WsGetMappedHeader(
requestMessage,
&verbHeaderName,
WS_SINGLETON_HEADER,
0,
WS_STRING_TYPE,
WS_READ_REQUIRED_VALUE,
NULL,
&verb,
sizeof(verb),
error);
if (FAILED(hr))
{
goto Exit;
}
wprintf(L"Verb: %.*s\n", verb.length, verb.chars);
if (CompareString(LOCALE_INVARIANT, NORM_IGNORECASE, verb.chars, verb.length, L"GET", 3) != CSTR_EQUAL)
{
// Unrecognized verb
hr = SendFailureMessage(channel, replyMessage, 405, L"Method Not Allowed", error);
goto Exit;
}
// Read end of request message
hr = WsReadMessageEnd(channel, requestMessage, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Set content type header of reply
hr = WsAddMappedHeader(
replyMessage,
&contentTypeHeaderName,
WS_STRING_TYPE,
WS_WRITE_REQUIRED_VALUE,
&replyContentType,
sizeof(replyContentType),
error);
if (FAILED(hr))
{
goto Exit;
}
// Set status of reply
hr = SetStatus(replyMessage, 200, L"OK", error);
if (FAILED(hr))
{
goto Exit;
}
// Set up the bytes to return in the HTTP body
WS_BYTES body;
body.bytes = const_cast<BYTE*>(replyBodyBytes);
body.length = sizeof(replyBodyBytes);
// Send the reply message
hr = WsSendMessage(
channel,
replyMessage,
&bytesMessageDescription,
WS_WRITE_REQUIRED_VALUE,
&body,
sizeof(body),
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
Exit:
if (replyMessage != NULL)
{
WsFreeMessage(replyMessage);
}
return hr;
}
// Main entry point
int __cdecl wmain()
{
HRESULT hr = S_OK;
WS_ERROR* error = NULL;
WS_CHANNEL* channel = NULL;
WS_MESSAGE* requestMessage = NULL;
WS_MESSAGE* replyMessage = NULL;
WS_HEAP* heap = NULL;
static const WS_STRING serviceUrl = WS_STRING_VALUE(L"http://localhost/example");
WS_ENDPOINT_ADDRESS address = {};
// Create an error object for storing rich error information
hr = WsCreateError(
NULL,
0,
&error);
if (FAILED(hr))
{
goto Exit;
}
// Set up a property indicating streamined input and output
WS_TRANSFER_MODE transferMode = WS_STREAMED_TRANSFER_MODE;
WS_CHANNEL_PROPERTY transferModeProperty;
transferModeProperty.id = WS_CHANNEL_PROPERTY_TRANSFER_MODE;
transferModeProperty.value = &transferMode;
transferModeProperty.valueSize = sizeof(transferMode);
// Create a HTTP request channel
hr = WsCreateChannel(
WS_CHANNEL_TYPE_REQUEST,
WS_HTTP_CHANNEL_BINDING,
&transferModeProperty,
1,
NULL,
&channel,
error);
if (FAILED(hr))
{
goto Exit;
}
// Initialize address of service
address.url = serviceUrl;
// Open channel to address
hr = WsOpenChannel(
channel,
&address,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
hr = WsCreateMessageForChannel(
channel,
NULL,
0,
&requestMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
hr = WsCreateMessageForChannel(
channel,
NULL,
0,
&replyMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
// Create a heap to store deserialized data
hr = WsCreateHeap(
/*maxSize*/ 2048,
/*trimSize*/ 512,
NULL,
0,
&heap,
error);
if (FAILED(hr))
{
goto Exit;
}
// Send request messages and receive reply messages
for (int i = 0; i < 10; i++)
{
// Initialize message headers of the request message
hr = WsInitializeMessage(
requestMessage,
WS_BLANK_MESSAGE,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Add the action header to the request message
hr = WsSetHeader(
requestMessage,
WS_ACTION_HEADER,
WS_XML_STRING_TYPE,
WS_WRITE_REQUIRED_VALUE,
PurchaseOrder_wsdl.messages.PurchaseOrder.action,
sizeof(*PurchaseOrder_wsdl.messages.PurchaseOrder.action),
error);
if (FAILED(hr))
{
goto Exit;
}
// Generate a unique message ID that will be used for the request message
WS_UNIQUE_ID messageID;
ZeroMemory(
&messageID,
sizeof(messageID));
DWORD status = UuidCreate(
&messageID.guid);
if (status != RPC_S_OK)
{
hr = E_FAIL;
goto Exit;
}
// Add the message ID to the request message
hr = WsSetHeader(
requestMessage,
WS_MESSAGE_ID_HEADER,
WS_UNIQUE_ID_TYPE,
WS_WRITE_REQUIRED_VALUE,
&messageID,
sizeof(messageID),
error);
if (FAILED(hr))
{
goto Exit;
}
// Send the message headers of the request message
hr = WsWriteMessageStart(
channel,
requestMessage,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Stream out some purchase orders
for (int j = 0; j < 10; j++)
{
// Initialize body data
_PurchaseOrderType purchaseOrder;
purchaseOrder.quantity = 1;
purchaseOrder.productName = L"Pencil";
// Serialize body data into message
hr = WsWriteBody(
requestMessage,
&PurchaseOrder_wsdl.globalElements.PurchaseOrderType,
WS_WRITE_REQUIRED_VALUE,
&purchaseOrder,
sizeof(purchaseOrder),
error);
if (FAILED(hr))
{
goto Exit;
}
// Send accumulated message data once at least 4096 bytes have been accumulated
hr = WsFlushBody(
requestMessage,
4096,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
}
// Send the end of the request message
hr = WsWriteMessageEnd(
channel,
requestMessage,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Receive the headers of the reply message
hr = WsReadMessageStart(
channel,
replyMessage,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Stream in all the confirmations
for (;;)
{
// Make sure we have at least once confirmation buffered. Each confirmation
// may be up to 1024 bytes in size.
hr = WsFillBody(
replyMessage,
1024,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Try to deserialize a confirmation into the heap
_OrderConfirmationType* orderConfirmation;
hr = WsReadBody(
replyMessage,
&PurchaseOrder_wsdl.globalElements.OrderConfirmationType,
WS_READ_OPTIONAL_POINTER,
heap,
&orderConfirmation,
sizeof(orderConfirmation),
error);
if (FAILED(hr))
{
goto Exit;
}
// If there are no more confirmations, break out of the loop
if (orderConfirmation == NULL)
{
break;
}
// Print out confirmation contents
wprintf(L"%s\n",
orderConfirmation->expectedShipDate);
// Reset the heap which frees the confirmation data that was deserialized
hr = WsResetHeap(
heap,
error);
if (FAILED(hr))
{
goto Exit;
}
}
// Receive the end of the reply message
hr = WsReadMessageEnd(
channel,
replyMessage,
NULL,
error);
if (FAILED(hr))
{
goto Exit;
}
// Reset message so it can be used again
hr = WsResetMessage(
replyMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
// Reset message so it can be used again
hr = WsResetMessage(
requestMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
}
Exit:
if (FAILED(hr))
{
// Print out the error
PrintError(hr, error);
}
if (channel != NULL)
{
// Close the channel
WsCloseChannel(channel, NULL, error);
}
if (requestMessage != NULL)
{
WsFreeMessage(requestMessage);
}
if (replyMessage != NULL)
{
WsFreeMessage(replyMessage);
}
if (channel != NULL)
{
WsFreeChannel(channel);
}
if (error != NULL)
{
WsFreeError(error);
}
if (heap != NULL)
{
WsFreeHeap(heap);
}
fflush(stdout);
return SUCCEEDED(hr) ? 0 : -1;
}
// Main entry point
int __cdecl wmain()
{
HRESULT hr = S_OK;
WS_ERROR* error = NULL;
WS_CHANNEL* channel = NULL;
WS_MESSAGE* message = NULL;
HANDLE receiverThreadHandle = NULL;
static const WS_STRING serviceUrl = WS_STRING_VALUE(L"soap.udp://[FF02::C]:809");
static const WS_STRING toUrl = WS_STRING_VALUE(L"http://localhost/request");
ULONG addressFamily = AF_INET6;
ULONG retVal = 0;
IP_ADAPTER_ADDRESSES* adapterAddresses = NULL;
// To get list of adapters GetAdaptersAddresses is called twice - first to get size of the list
// and second to get the actual list. As the number of adapters may change between these two calls
// to GetAdaptersAddresses, we retry up to 4 times.
for (ULONG i = 0; i < 4; i++)
{
// Free memory if it was not big enough
if (adapterAddresses != NULL)
{
HeapFree(GetProcessHeap(), 0, adapterAddresses);
adapterAddresses = NULL;
}
// First see how much space is needed for adapter addresses
ULONG adapterBufferSize = 0;
retVal = GetAdaptersAddresses(addressFamily, 0, NULL, NULL, &adapterBufferSize);
if (retVal != ERROR_BUFFER_OVERFLOW)
{
hr = HRESULT_FROM_WIN32(retVal);
goto Exit;
}
// Allocate space for information about adapters
adapterAddresses = (IP_ADAPTER_ADDRESSES*)HeapAlloc(GetProcessHeap(), 0, adapterBufferSize);
if (adapterAddresses == NULL)
{
hr = E_OUTOFMEMORY;
goto Exit;
}
// Get list of adapters
retVal = GetAdaptersAddresses(
AF_INET6,
0, NULL, adapterAddresses, &adapterBufferSize);
if (retVal != ERROR_BUFFER_OVERFLOW)
{
break;
}
// number of adapter have changed between calls to GetAdaptersAddresses, retry.
}
if (retVal != 0)
{
hr = HRESULT_FROM_WIN32(retVal);
goto Exit;
}
// Create an error object for storing rich error information
hr = WsCreateError(
NULL,
0,
&error);
if (FAILED(hr))
{
goto Exit;
}
WS_IP_VERSION ipVersion = WS_IP_VERSION_6;
WS_CHANNEL_PROPERTY ipVersionProperty;
ipVersionProperty.id = WS_CHANNEL_PROPERTY_IP_VERSION;
ipVersionProperty.value = &ipVersion;
ipVersionProperty.valueSize = sizeof(ipVersion);
// Create a UDP duplex channel for IPv6 addressing
hr = WsCreateChannel(
WS_CHANNEL_TYPE_DUPLEX,
WS_UDP_CHANNEL_BINDING,
&ipVersionProperty,
1,
NULL,
&channel,
error);
if (FAILED(hr))
{
goto Exit;
}
// Initialize address to the multicast address to send to
WS_ENDPOINT_ADDRESS address;
address.url = serviceUrl;
address.headers = NULL;
address.extensions = NULL;
address.identity = NULL;
// Open channel to address
hr = WsOpenChannel(channel, &address, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Generate a unique message ID that will be used for all messages
WS_UNIQUE_ID messageID;
ZeroMemory(&messageID, sizeof(messageID));
if (UuidCreate(&messageID.guid) != RPC_S_OK)
{
hr = E_FAIL;
goto Exit;
}
// Create a thread that will receive messages
THREAD_INFO receiverThreadInfo;
receiverThreadInfo.channel = channel;
receiverThreadHandle = CreateThread(NULL, 0, ReceiverThread, &receiverThreadInfo, 0, NULL);
if (receiverThreadHandle == NULL)
{
hr = HRESULT_FROM_WIN32(GetLastError());
goto Exit;
}
hr = WsCreateMessageForChannel(
channel,
NULL,
0,
&message,
error);
if (FAILED(hr))
{
goto Exit;
}
// Initialize body data
_PurchaseOrderType purchaseOrder;
purchaseOrder.quantity = 100;
purchaseOrder.productName = L"Pencil";
// Send the same message twice
for (int i = 0; i < 2; i++)
{
// For each adapter
for (IP_ADAPTER_ADDRESSES* adapterAddress = adapterAddresses;
adapterAddress != NULL; adapterAddress = adapterAddress->Next)
{
// Only send on the loopback adapter
if (adapterAddress->IfType != IF_TYPE_SOFTWARE_LOOPBACK)
{
continue;
}
// Get multicast interface index
ULONG interfaceIndex = adapterAddress->Ipv6IfIndex;
// Set property on channel which controls which multicast adapater address
// is used when sending to a multicast address.
hr = WsSetChannelProperty(channel, WS_CHANNEL_PROPERTY_MULTICAST_INTERFACE,
&interfaceIndex, sizeof(interfaceIndex), error);
if (FAILED(hr))
{
goto Exit;
}
// Initialize message headers
hr = WsInitializeMessage(message, WS_BLANK_MESSAGE, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Add the action header
hr = WsSetHeader(
message,
WS_ACTION_HEADER,
WS_XML_STRING_TYPE,
WS_WRITE_REQUIRED_VALUE,
PurchaseOrder_wsdl.messages.PurchaseOrder.action,
sizeof(*PurchaseOrder_wsdl.messages.PurchaseOrder.action),
error);
if (FAILED(hr))
{
goto Exit;
}
// Add the message ID
hr = WsSetHeader(
message,
WS_MESSAGE_ID_HEADER,
WS_UNIQUE_ID_TYPE,
WS_WRITE_REQUIRED_VALUE,
&messageID,
sizeof(messageID),
error);
if (FAILED(hr))
{
goto Exit;
}
// Set the reply to address to be a anonymous URI (modeled as a 0 length URI), which
// indicates to the receiver that they should reply using the source IP address.
WS_ENDPOINT_ADDRESS replyTo;
ZeroMemory(&replyTo, sizeof(replyTo));
hr = WsSetHeader(
message,
WS_REPLY_TO_HEADER,
WS_ENDPOINT_ADDRESS_TYPE,
WS_WRITE_REQUIRED_VALUE,
&replyTo,
sizeof(replyTo),
error);
if (FAILED(hr))
{
goto Exit;
}
// Address the message to differ from the destination. When the message
// is addressed manually, the endpoint address specified at open time
// will only be used to determine the destination of the message (not
// to determine the value of the To header). In this case, the message is
// addressed to a stable address.
WS_ENDPOINT_ADDRESS to;
ZeroMemory(&to, sizeof(to));
to.url = toUrl;
hr = WsAddressMessage(message, &to, error);
if (FAILED(hr))
{
goto Exit;
}
// Write the message headers
hr = WsWriteMessageStart(channel, message, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Write the body data
hr = WsWriteBody(
message,
&PurchaseOrder_wsdl.globalElements.PurchaseOrderType,
WS_WRITE_REQUIRED_VALUE,
&purchaseOrder,
sizeof(purchaseOrder),
error);
if (FAILED(hr))
{
goto Exit;
}
// Send the entire message
hr = WsWriteMessageEnd(channel, message, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Reset message so it can used again
hr = WsResetMessage(message, error);
if (FAILED(hr))
{
goto Exit;
}
}
}
// Wait for replies to be processed by the receiver thread
Sleep(1000);
Exit:
if (FAILED(hr))
{
// Print out the error
PrintError(hr, error);
}
if (receiverThreadHandle != NULL)
{
// Abort the channel. This will cause the next receive to fail.
WsAbortChannel(channel, error);
// Wait for the receive thread to exit, and clean up the handle.
WaitForSingleObject(receiverThreadHandle, INFINITE);
CloseHandle(receiverThreadHandle);
}
if (channel != NULL)
{
// Close the channel
WsCloseChannel(channel, NULL, error);
}
if (message != NULL)
{
WsFreeMessage(message);
}
if (channel != NULL)
{
WsFreeChannel(channel);
}
if (error != NULL)
{
WsFreeError(error);
}
if (adapterAddresses != NULL)
{
HeapFree(GetProcessHeap(), 0, adapterAddresses);
}
fflush(stdout);
return SUCCEEDED(hr) ? 0 : -1;
}
// Messages are sent from this thread to the relay thread
DWORD WINAPI SenderThread(void* parameter)
{
UNREFERENCED_PARAMETER(parameter);
HRESULT hr;
WS_ERROR* error = NULL;
WS_CHANNEL* sendChannel = NULL;
WS_MESSAGE* sendMessage = NULL;
// Create an error object for storing rich error information
hr = WsCreateError(
NULL,
0,
&error);
if (FAILED(hr))
{
goto Exit;
}
// Create a TCP duplex session channel
hr = WsCreateChannel(WS_CHANNEL_TYPE_DUPLEX_SESSION,
WS_TCP_CHANNEL_BINDING, NULL, 0, NULL, &sendChannel, error);
if (FAILED(hr))
{
goto Exit;
}
// Initialize address of service
WS_ENDPOINT_ADDRESS address;
address.url = relayUrl;
address.headers = NULL;
address.extensions = NULL;
address.identity = NULL;
// Open channel to address
hr = WsOpenChannel(sendChannel, &address, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
hr = WsCreateMessageForChannel(
sendChannel,
NULL,
0,
&sendMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
// Send some messages
for (ULONG i = 0; i < 100; i++)
{
// Initialize send message
hr = WsInitializeMessage(sendMessage, WS_BLANK_MESSAGE, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Add the action header
hr = WsSetHeader(
sendMessage,
WS_ACTION_HEADER,
WS_XML_STRING_TYPE,
WS_WRITE_REQUIRED_VALUE,
PurchaseOrder_wsdl.messages.PurchaseOrder.action,
sizeof(*PurchaseOrder_wsdl.messages.PurchaseOrder.action),
error);
if (FAILED(hr))
{
goto Exit;
}
// Send message start
hr = WsWriteMessageStart(sendChannel, sendMessage, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Initialize purchase order
_PurchaseOrderType purchaseOrderToWrite;
purchaseOrderToWrite.quantity = 100;
purchaseOrderToWrite.productName = L"Pencil";
// Write purchase order as the body of the message
hr = WsWriteBody(
sendMessage,
&PurchaseOrder_wsdl.globalElements.PurchaseOrderType,
WS_WRITE_REQUIRED_VALUE,
&purchaseOrderToWrite,
sizeof(purchaseOrderToWrite),
error);
if (FAILED(hr))
{
goto Exit;
}
// Send message end
hr = WsWriteMessageEnd(sendChannel, sendMessage, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Reset message to enable reuse
hr = WsResetMessage(sendMessage, error);
if (FAILED(hr))
{
goto Exit;
}
}
Exit:
if (FAILED(hr))
{
// Print out the error
PrintError(hr, error);
}
fflush(
stdout);
if (sendChannel != NULL)
{
// Close the channel
WsCloseChannel(sendChannel, NULL, error);
}
if (sendMessage != NULL)
{
WsFreeMessage(sendMessage);
}
if (sendChannel != NULL)
{
WsFreeChannel(sendChannel);
}
if (error != NULL)
{
WsFreeError(error);
}
return 1;
}
// Messages are relayed from the sender thread to the receiver thread by this thread
DWORD WINAPI RelayThread(void* parameter)
{
HRESULT hr;
THREADINFO* threadInfo = (THREADINFO*)parameter;
HANDLE relayReadyEvent = threadInfo->event;
WS_ERROR* error = NULL;
WS_CHANNEL* sendChannel = NULL;
WS_CHANNEL* receiveChannel = NULL;
WS_MESSAGE* sendMessage = NULL;
WS_MESSAGE* receiveMessage = NULL;
WS_LISTENER* listener = NULL;
// Create an error object for storing rich error information
hr = WsCreateError(
NULL,
0,
&error);
if (FAILED(hr))
{
goto Exit;
}
// Create a listener
hr = WsCreateListener(WS_CHANNEL_TYPE_DUPLEX_SESSION, WS_TCP_CHANNEL_BINDING, NULL, 0, NULL, &listener, error);
if (FAILED(hr))
{
goto Exit;
}
// Open listener using TCP duplex session
hr = WsOpenListener(listener, &relayUrl, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Create a TCP duplex session channel
hr = WsCreateChannel(WS_CHANNEL_TYPE_DUPLEX_SESSION,
WS_TCP_CHANNEL_BINDING, NULL, 0, NULL, &sendChannel, error);
if (FAILED(hr))
{
goto Exit;
}
// Initialize address of service
WS_ENDPOINT_ADDRESS address;
address.url = serviceUrl;
address.headers = NULL;
address.extensions = NULL;
address.identity = NULL;
// Open channel to address
hr = WsOpenChannel(sendChannel, &address, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Create a channel
hr = WsCreateChannelForListener(listener, NULL, 0, &receiveChannel, error);
if (FAILED(hr))
{
goto Exit;
}
// Notify that thread is ready
threadInfo->hr = NOERROR;
SetEvent(relayReadyEvent);
// Accept a channel from the client
hr = WsAcceptChannel(listener, receiveChannel, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
hr = WsCreateMessageForChannel(
receiveChannel,
NULL,
0,
&receiveMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
hr = WsCreateMessageForChannel(
sendChannel,
NULL,
0,
&sendMessage,
error);
if (FAILED(hr))
{
goto Exit;
}
// Forward all messages
for (;;)
{
// Receive start of message (headers)
hr = WsReadMessageStart(receiveChannel, receiveMessage, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
if (hr == WS_S_END)
{
// No more messages on this channel
break;
}
// Copy headers from received message
hr = WsInitializeMessage(sendMessage, WS_DUPLICATE_MESSAGE, receiveMessage, error);
if (FAILED(hr))
{
goto Exit;
}
// Send message start (headers)
hr = WsWriteMessageStart(sendChannel, sendMessage, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Get reader for receive message
WS_XML_READER* xmlReader;
hr = WsGetMessageProperty(receiveMessage, WS_MESSAGE_PROPERTY_BODY_READER, &xmlReader, sizeof(xmlReader), error);
if (FAILED(hr))
{
goto Exit;
}
// Get writer for send message
WS_XML_WRITER* xmlWriter;
hr = WsGetMessageProperty(sendMessage, WS_MESSAGE_PROPERTY_BODY_WRITER, &xmlWriter, sizeof(xmlWriter), error);
if (FAILED(hr))
{
goto Exit;
}
// Read and write contents of body
for (;;)
{
const WS_XML_NODE* node;
hr = WsGetReaderNode(xmlReader, &node, error);
if (FAILED(hr))
{
goto Exit;
}
if (node->nodeType == WS_XML_NODE_TYPE_END_ELEMENT)
{
break;
}
hr = WsCopyNode(xmlWriter, xmlReader, error);
if (FAILED(hr))
{
goto Exit;
}
}
// Receive message end
hr = WsReadMessageEnd(receiveChannel, receiveMessage, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Send message end
hr = WsWriteMessageEnd(sendChannel, sendMessage, NULL, error);
if (FAILED(hr))
{
goto Exit;
}
// Reset message to enable reuse
hr = WsResetMessage(sendMessage, error);
if (FAILED(hr))
{
goto Exit;
}
// Reset message to enable reuse
hr = WsResetMessage(receiveMessage, error);
if (FAILED(hr))
{
goto Exit;
}
}
Exit:
if (FAILED(hr))
{
// Print out the error
PrintError(hr, error);
}
fflush(
stdout);
if (sendChannel != NULL)
{
// Close the channel
WsCloseChannel(sendChannel, NULL, error);
}
if (sendChannel != NULL)
{
WsFreeChannel(sendChannel);
}
if (receiveChannel != NULL)
{
// Close the channel
WsCloseChannel(receiveChannel, NULL, error);
}
if (receiveChannel != NULL)
{
WsFreeChannel(receiveChannel);
}
if (listener != NULL)
{
// Close the listener if it was opened
WsCloseListener(listener, NULL, error);
}
if (listener != NULL)
{
WsFreeListener(listener);
}
if (receiveMessage != NULL)
{
WsFreeMessage(receiveMessage);
}
if (sendMessage != NULL)
{
WsFreeMessage(sendMessage);
}
if (error != NULL)
{
WsFreeError(error);
}
if (FAILED(hr))
{
// Notify that thread is ready
threadInfo->hr = hr;
SetEvent(relayReadyEvent);
}
return 1;
}