Discussion :

[spel123]

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 :

L'opération n'est pas prise en charge pour un ordinateur configuré pour un groupe de travail.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
   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

...

[Proguisa]

Bonjour,

Peut être une histoire de file public/privé.
Ou le serveur MSMQ n'a pas les droits d'agir ailleurs ...