MQ 连接问题
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 忘帮忙解决
死等啊。