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
Roxana Panait, MSFT ________
Votez l’article qui vous est utile ou postez un pour participer au concours : Appel a la contribution! Publiez un tip ou un petit tutorial (comment faire) sur la technologie que vous connaissez le mieux ! - http://social.technet.microsoft.com/Forums/fr-FR/1635/thread/c0fc6847-a4b0-4253-85e9-8eac0cc95aa0