Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MSMQ Queued Component Create Problem
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
MSMQ Queued Component Create Problem
Miscellaneous
Thread ID:
00642368
Message ID:
00642368
Views:
138
Working on automating the creation of a MSMQ private queue, not working. Can anyone see why this would not behave? Win2K/SP2, VFP7/SP1:
	#INCLUDE msmq.h

	lcName = "QMailer"
	lcPath = ".\private$\" + lcName


	oQueueInfo = CreateObject("MSMQ.MSMQQueueInfo")
	oQueueInfo.Pathname = ".\private$\" + lcName
	oQueueInfo.Label = lcName
*	oQueueInfo.Create

	oSendQueue = oQueueInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
	If Transform(oSendQueue.IsOpen) != "1"
		oQueueInfo.Create
		? lcPath + " Queue Created"
	EndIf
		

	oMsg = create("MSMQ.MSMQMessage")
	oMsg.Label = "<label>A Label</label>"
	oMsg.Body = "<body>A body</body"
	oMsg.Send(oSendQueue)
I'm getting a COM error on the "oSendQueue = oQueueInfo.Open...." line.

Thanks.
Reply
Map
View

Click here to load this message in the networking platform