Send Msmq and Xml message

Dim oMq As New MessageQueue(sQName)Dim oMsg As New Message oMsg.Label = DateTime.Now.ToString()oMsg.Body = sBodyoMsg.Formatter = New ActiveXMessageFormatter 'required in order to send xml as-it-isoMsg.Recoverable = True 'recoverable is set so that the message can be saved in disk to recover from server crashoMq.Send(oMsg)

oXmlDoc = New XmlDocument 'builds oXMLRoot = oXmlDoc.CreateElement("Data_Point")oXmlDoc.AppendChild(oXMLRoot)oXMLRoot.SetAttribute("MsgId", "103") 'mandatory oXMLRoot.SetAttribute("Version", "1") 'mandatory oXMLVarNode = oXmlDoc.CreateElement("Variable")oXMLVarsNode.AppendChild(oXMLVarNode)oXMLVarNode.SetAttribute("ID", "var1") 'variable nameoXMLVarNode.SetAttribute("Date", DateTime.Now.ToString()) 'to override item datetime stamp 'builds 334.45oXMLValueNode = oXmlDoc.CreateElement("Value")oXMLVarNode.AppendChild(oXMLValueNode)oXMLValueNode.InnerText = "234.54" 'datapoint value

Powered by Bleezer