Export Data to Message Queue

Gery

Hello Everyone!

I want to export data to the message queue from a xml port and use following code to do it:


CREATE(CC2);
CREATE(MQBus);
CC2.AddBusAdapter(MQBus,1);

MQBus.OpenWriteQueue('wi-fst5-vz-grp1\private$\customerData',0,0);
OutMsg := CC2.CreateoutMessage('Message [url=queue://wi-fst5-vz-grp1]queue://wi-fst5-vz-grp1[/url]\private$\customerData');
OutS:= OutMsg.GetStream;
XMLPORT.EXPORT(5050, OutS);
OutMsg.Send(0);

CLEAR(OutMsg);
CLEAR(CC2);
CLEAR(MQBus);


This already work, however when I'm looking at the Messages in the Queue the are all in hex saved?

Like this one:
FF FE 3C 00 3F 00 78 00 ÿþ<.?.x.
6D 00 6C 00 20 00 76 00 m.l. .v.
65 00 72 00 73 00 69 00 e.r.s.i.
6F 00 6E 00 3D 00 22 00 o.n.=.".
31 00 2E 00 30 00 22 00 1...0.".
20 00 65 00 6E 00 63 00 .e.n.c.
6F 00 64 00 69 00 6E 00 o.d.i.n.
67 00 3D 00 22 00 55 00 g.=.".U.
54 00 46 00 2D 00 31 00 T.F.-.1.
36 00 22 00 20 00 73 00 6.". .s.
74 00 61 00 6E 00 64 00 t.a.n.d.
61 00 6C 00 6F 00 6E 00 a.l.o.n.
...

Is there any possibilty to save it already in "real" xml format at the Message Queue?

Thanks already for any help

kine

It is not HEX but UTF-8... UTF-8 is double byte... ;-) (the first two bytes are flag that context is UTF)