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
QM = MQS.AccessQueueManager("MQ_GET")
Q = QM.AccessQueue("GET.LQ",2) // see note 3
MR = MQS.AccessMessage()
MR.MessageIdHex = MR.MessageIdHex
GO = MQS.AccessGetMessageOptions()
Q.Get(MR,GO)
sle_2.text =MR.ReadString(MR.MessageLength)
Q.close()
這樣是佇列里要有訊息可以接收到訊息，但如果沒訊息就報錯了
uj5u.com熱心網友回復：
ReadString method This method reads n bytes from the Message Data buffer starting with the byte referred to by DataOffset and returns it as an ActiveX string. The method fails if MQMessage.DataLength is less than n when it is issued. DataOffset is incremented by n and DataLength is decremented by n if the method succeeds. The n characters of message data are assumed to be a string whose code page is specified by the MQMessage.CharacterSet property. Conversion to ActiveX representation is performed for the application. Defined in: MQMessage class Syntax: stringv$ = MQMessage.ReadString(length&) Parameter length& Long. Length of string field in bytes.uj5u.com熱心網友回復：
if MR.DataLength >= MR.MessageLength thensle_2.text =MR.ReadString(MR.MessageLength)
end if
試試這樣
uj5u.com熱心網友回復：
參考以下檔案http://publibfp.boulder.ibm.com/epubs/pdf/amqtan03.pdf
http://publibfp.boulder.ibm.com/epubs/pdf/csqzac05.pdf
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/73461.html
標籤：腳本語言
上一篇：求助！！！！！！！