11. November 2011 12:47
11. November 2011 12:56
16. November 2011 09:27
Name DataType Subtype Length
MQQueue Automation 'Microsoft Message Queue 3.0 Object Library'.MSMQQueue
MQMessage Automation 'Microsoft Message Queue 3.0 Object Library'.MSMQMessage
MQEvent Automation 'Microsoft Message Queue 3.0 Object Library'.MSMQEvent
MQQueueInfo Automation 'Microsoft Message Queue 3.0 Object Library'.MSMQQueueInfo
OnRun()
CREATE(MQQueueInfo);
MQQueueInfo.FormatName('Direct=TCP:192.168.150.239\private$\test');
MQQueue := MQQueueInfo.Open(1,0);
CREATE(MQEvent);
ReceiveTimeOut := 1000;
Cursor := 0;
MQQueue.EnableNotification(MQEvent,Cursor,ReceiveTimeOut);
MQEvent::Arrived(Queue : Automation "''.IDISPATCH";Cursor : Integer)
MESSAGE('MS Message arrived');
MQEvent::ArrivedError(Queue : Automation "''.IDISPATCH";ErrorCode : Integer;Cursor : Integer)
MESSAGE('MS Message error');
20. März 2012 09:21
20. März 2012 10:01
26. März 2012 16:10