Name DataType Subtype Length OutMsg Automation 'Navision Communication Component version 2'.OutMessage MQBus Automation 'Navision MS-Message Queue Bus Adapter'.MSMQBusAdapter SBA Automation 'Navision Socket Bus Adapter'.SocketBusAdapter CC2 Automation 'Navision Communication Component version 2'.CommunicationComponent XMLDom Automation 'Microsoft XML, v3.0'.DOMDocument IF ISCLEAR(MQBus) THEN CREATE(MQBus); IF ISCLEAR(CC2) THEN CREATE(CC2); IF ISCLEAR(XMLDom) THEN CREATE (XMLDom); MQBus.RemoveWhenCommit(FALSE); CC2.AddBusAdapter(MQBus,1); msmqName :='dmsap2\msmqtest'; MSMQLogEntry.GET(1); MSMQLogEntry.CALCFIELDS("Message Info"); MSMQLogEntry."Message Info".CREATEINSTREAM(_Ins); XMLDom.load(_Ins); MQBus.OpenWriteQueue(msmqName,0,0); OutMsg := CC2.CreateoutMessage('Message queue://'+msmqName); XMLDom.save (OutMsg.GetStream()); OutMsg.Send(0);the .net code is like this
msmqtest service = new msmqtest(); service.UseDefaultCredentials = true; service.send();Table 【MSMQLogEntry】 is developed by myself,the field "message info" is a bolb field,it saves the XML files.