IF ISCLEAR(XMLDocOut) THEN CREATE(XMLDocOut,TRUE); XMLDocOut.async := FALSE; XMLDocOut.validateOnParse := FALSE; XMLDocOut.resolveExternals := FALSE; XMLDocOut.loadXML(Text1140008+'<Tool.message.0300></Tool.message.0300>'); IF XMLDocOut.xml = '' THEN ERROR(LocText004); XMLCurrNode := XMLDocOut.documentElement; XMLDOMManagement.SetNormalCase; XMLDOMManagement.AddAttribute(XMLCurrNode,'xmlns:prefixname','http://valid-url'); XMLDOMManagement.AddAttribute(XMLCurrNode,'prefixname:version','1.2'); XMLDOMManagement.AddAttribute(XMLCurrNode,'prefixname:fassung','2008-12-12'); XMLDOMManagement.AddAttribute(XMLCurrNode,'xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance'); XMLDOMManagement.AddAttribute(XMLCurrNode,'xsi:schemaLocation','http://validurl' + ' ' + 'http://validurl.xsd'); IF NOT RecContact.GET(Kontaktnr) THEN ERROR(LocText003,Kontaktnr); WITH XMLDOMManagement DO BEGIN IF AddElement(XMLCurrNode,'prefixname:time',TIME,'',XMLNewChild) > 0 THEN EXIT;
IF AddElement(XMLCurrNode,'prefixname:time',TIME,prefixname,XMLNewChild) > 0 THEN
<prefixname:time xmlns:prefixname = prefixname>
<prefixname:time>
Comments
Here is the solution: