בעיה עם MSMQ ב Net.
העתקתי דוגמא בסיסית לשליחת הודעות ל MSMQ שום דבר לא קורה - אין שגיאה ושום הודעה לא מגיעה לתור זה הקוד:
העתקתי דוגמא בסיסית לשליחת הודעות ל MSMQ שום דבר לא קורה - אין שגיאה ושום הודעה לא מגיעה לתור זה הקוד:
Dim myQueue As MessageQueue Dim myMessage As New Message myQueue = New MessageQueue("machinename\queuename", False) myMessage.Label = "test msg" myMessage.Body = TextBox1.Text myQueue.Send(myMessage)
לעומת זאת, הקוד הבא ב vb6, כן עובד:Public Function SendMessage(que As String, path As String) Dim Queue1 As MSMQQueue Dim QueueInfo1 As New MSMQQueueInfo Dim message As New MSMQMessage MessageData = CreateDeal(path) ' MSMQ Expects Byte Array Raw Data - Not Unicode Strings Dim Bytes() As Byte ReDim Bytes(Len(MessageData) + 1) For i = 0 To Len(MessageData) - 1 Bytes(i) = Asc(Mid$(MessageData, i + 1, 1)) Next i ' Assign Message Data, and Send the Message QueueInfo1.PathName = que Set Queue1 = QueueInfo1.Open(MQ_SEND_ACCESS, MQ_DENY_NONE) message.Body = Bytes message.Label = "TEST" message.Send Queue1, MQ_SINGLE_MESSAGE End Function
מה הסיבה?