Use MessageQueue to send Xml message : Window Message « Windows System « VB.Net

1. VB.Net
2. Windows System
3. Window Message

Use MessageQueue to send Xml message

  

Imports System
Imports System.Messaging

Public Class MyNewQueue
    Public Shared Sub Main()
        Dim myQueue As New MessageQueue(".\myTransactionalQueue")
        If myQueue.Transactional = True Then
            Dim myTransaction1 As New MessageQueueTransaction
            myTransaction1.Begin()
            myQueue.Send("My Message Data.", myTransaction1)
            myTransaction1.Commit()
        End If

        myQueue.Formatter = New XmlMessageFormatter(New Type() {GetType([String])})
        Dim myTransaction As New MessageQueueTransaction
        Try
            myTransaction.Begin()
            Dim myMessage As Message = myQueue.Receive(New TimeSpan(0, 0, 5), myTransaction)
            Dim myOrder As [String] = CType(myMessage.Body, [String])
            Console.WriteLine(myOrder)
            myTransaction.Commit()
        Catch e As MessageQueueException
            If e.MessageQueueErrorCode = MessageQueueErrorCode.TransactionUsage Then
                Console.WriteLine("Queue is not transactional.")
            Else
                If e.MessageQueueErrorCode = MessageQueueErrorCode.IOTimeout Then
                    Console.WriteLine("No message in queue.")
                End If
            End If
            myTransaction.Abort()
        End Try
        Return
    End Sub
End Class

   
    
  

Related examples in the same category