IF ISCLEAR(SoapHttpConn) THEN CREATE(SoapHttpConn); SoapHttpConn.Property('EndPointURL','http://192.168.3.160:9999/assystsuite/service/SharepointService.jws'); SoapHttpConn.Connect; SoapHttpConn.Property('SoapAction','http://tempuri.org/HelloWorld'); SoapHttpConn.BeginMessage; IF ISCLEAR(SoapSerialize) THEN CREATE(SoapSerialize); SoapSerialize.Init(SoapHttpConn.InputStream); SoapSerialize.startEnvelope('','STANDARD'); SoapSerialize.startBody; SoapSerialize.writeXML('<HelloWorld xmlns="http://tempuri.org"></HelloWorld>'); SoapSerialize.endBody; SoapSerialize.endEnvelope; SoapHttpConn.EndMessage; IF ISCLEAR(XmlDom) THEN CREATE(XmlDom); XmlDom.load(SoapHttpConn.OutputStream); XmlDom.save('c:\temp.xml'); CREATE(XmlDomNew); XmlNode := XmlDom.firstChild(); XmlDomNew.appendChild(XmlNode); XmlNode := XmlDom.selectSingleNode('//customsOffices'); attributes := XmlNode.attributes(); attributes.removeNamedItem('xmlns'); XmlDomNew.appendChild(XmlNode); XmlDomNew.save('c:\temp.xml'); TestFile.OPEN('c:\temp.xml'); TestFile.CREATEINSTREAM(TestStream); XMLPORT.IMPORT(50000,TestStream); TestFile.CLOSE;
Comments
Independent Consultant/Developer
blog: https://dynamicsuser.net/nav/b/ara3n