Problems Exporting an XML port stream to MSMQ

darrano

Hi,
I'm new to intergrating Nav with message Que and although there seems to be some information available which covers wrapping a message up in an XML wrapper, there seems to be no information in how to pass the output (Stream) of an XML port and sending this to MSMQ.

Can anybody help/advise me on the coding process required in order to acheive this.

Thanks in advance,

ara3n

xml is a blob field

CALCFIELDS(XML);
IF NOT XML.HASVALUE THEN
  EXIT;
XML.CREATEINSTREAM(instr);
//XML.EXPORT('c:\nav\xmlblob.xml');
MSDOM.async := FALSE;
MSDOM.load(instr);

CREATE(CC2);
CREATE(MQBA);
CC2.AddBusAdapter(MQBA,1);
MQBA.OpenWriteQueue('COMPUTERNAME\private$\FromNav',0,0);
OutMsg := CC2.CreateoutMessage('Message queue://' + 'COMPUTERNAME\private$\FromNav');    //FfromNav is msmq folder name in private folder
outstr := OutMsg.GetStream();
MSDOM.save(outstr);
OutMsg.Send(0);


CLEAR(OutMsg);
CLEAR(CC2);
CLEAR(MQBA);
CLEAR(MSDOM);

MSDOM = 'Microsoft XML, v6.0'.DOMDocument
CC2 = 'Navision Communication Component version 2'.CommunicationComponent
MQBA = 'Navision MS-Message Queue Bus Adapter'.MSMQBusAdapter
OutMsg = 'Navision Communication Component version 2'.OutMessage

darrano

Many Thanks ara3n,

This worked like a charm \:D/

ara3n

You are welcome.