none
Installation et utilisation de Serveur de file d'attente MSMQ

    Discussion générale

  • J'essaie pour la première fois de créer des MessageQueue, mais j'éprouve des problèmes qui semblent être liés à l'installation du serveur de file d'attente sur mon ordinateur sous Windows 7 Édition familiale premium.

    Lorsque je tente de créer une file d'attente, la méthode CreateQueueCOM génère le message d'erreur suivant :
    [INDENT]L'opération n'est pas prise en charge pour un ordinateur configuré pour un groupe de travail. [/INDENT]

    Pourtant, après recherche sur différents forums, j'ai vérifié que pour  HKLM/SOFTWARE/Microsoft/MSMQ/Parameters la valeur de Workgroup est bien à 0x00000001

    Quelqu'un pourrait-il m'aider à résoudre ce problème ? Voici le code qui cause problème.

    [CODE]
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
          ' Créer les queues de message partagées par le serveur et le client
          qM = superMessageQueue.createQueue(".\serveurQM")
          qC = superMessageQueue.createQueue(".\serveurQC")
          qR = superMessageQueue.createQueue(".\serveurQR")
     
     ...
       End Sub

    ...

       Public Shared Function createQueue(ByVal name As String) As MessageQueue
     
          Try
             CreateQueueCOM(name)
             Dim q As New MessageQueue(name)
             q.Formatter = New BinaryMessageFormatter
             q.Purge()       ' vider la queue pour éviter des bugs persistants
             Return q

          Catch ex As Exception
             MsgBox("Erreur sur createQueue : " + (Chr(13) & Chr(10)) + ex.Message)
             Return Nothing
          End Try
       End Function

    ...

        Private Shared Sub CreateQueueCOM(ByVal queuePath As String)

            Try
                If Not MessageQueue.Exists(queuePath) Then
                    MessageQueue.Create(queuePath)
                End If
            Catch e As MessageQueueException
             MsgBox("Erreur à la création d'une queue : " + (Chr(13) & Chr(10)) + e.Message)
            End Try
        End Sub 'CreateQueue

    ...

    [/CODE]
    mercredi 17 mars 2010 01:32

Toutes les réponses