Installation et utilisation de Serveur de file d'attente MSMQ

• Discussion générale

• 

  

  0

  Connectez-vous pour voter

  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]

  • Type modifié Roxana PANAITMicrosoft employee lundi 12 avril 2010 07:57

  mercredi 17 mars 2010 01:32