MQSERVER = "DC/TCP/192.168.100.228(2000)"
MQCCSID = 819
以上都是服務器端已經設定好了的
DC是服務器連接通道
192.168.100.228(2000)是服務器IP和偵聽器埠
代碼如下：
OLEObject MQS, QM, Q, MW, MR, PO, GO
String ls_mqmgr, ls_s
integer i
MQS = CREATE OLEObject // MQSeries Session
QM = CREATE OLEObject // QueueManager
Q = CREATE OLEObject // Queue
MW = CREATE OLEObject // Message Written
MR = CREATE OLEObject // Message Read
PO = CREATE OLEOBject // Put options
GO = CREATE OLEOBject // Get options
I = MQS.ConnectToNewObject("MQAX200.MqSession") // see note 1
MessageBox("",string (i))
ls_mqmgr = "0326GSB" // see note 2
QM = MQS.AccessQueueManager(ls_mqmgr)
Q = QM.AccessQueue("032601B01",16) // see note 3
// WRITE
MW = MQS.AccessMessage
MW.MessageData = "HELLO WORLD " + string(cpu())
PO = MQS.AccessPutMessageOptions()
Q.Put( MW, PO)
// READ
MR = MQS.AccessMessage()
MR.MessageIdHex = MR.MessageIdHex // see note 4
GO = MQS.AccessGetMessageOptions()
Q.Get( MR, GO)
ls_s = MR.ReadString(MR.MessageLength)
MessageBox("MQSeries", ls_s)
Q.close()
QM.disconnect()
老是 提醒 error calling external object function AccessQueueManager 忘幫忙解決
死等啊。
uj5u.com熱心網友回復：
AccessQueueManager 沒宣告？ 或者宣告有錯誤！uj5u.com熱心網友回復：
恢復是你的ConnectToNewObject沒有成功導致的，你判斷一下回傳值，如果成功再向下執行轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/82589.html
標籤：項目管理
上一篇：再一個小問題請教