Name DataType Subtype Serializer Automation 'Microsoft Soap Type Library v3.0'.SoapSerializer30 Connector Automation 'Microsoft Soap Type Library v3.0'.HttpConnector30 XMLDOM Automation 'Microsoft XML, v6.0'.DOMDocument IF ISCLEAR(Connector) THEN CREATE(Connector); Connector.Property('EndPointURL',WsdlUrl); Connector.Connect; Connector.Property('SoapAction',SoapActionMethod); Connector.BeginMessage; CREATE(Serializer); Serializer.Init(Connector.InputStream); Serializer.StartEnvelope('','STANDARD','utf-8'); Serializer.StartHeader; Serializer.StartElement('ServiceAuthenticationHeader',Url); Serializer.StartElement('Username',Url); Serializer.WriteString(Username); Serializer.EndElement; Serializer.StartElement('Password',Url); Serializer.WriteString(Password); Serializer.EndElement; Serializer.EndElement; Serializer.EndHeader; Serializer.StartBody('STANDARD'); Serializer.StartElement(ElementName,url'); Serializer.WriteString(ElementValue); Serializer.EndElement; Serializer.EndBody; Serializer.EndEnvelope; Connector.EndMessage; (It is here it fails when calling from the rtc client) IF ISCLEAR(XMLDOM) THEN CREATE(XMLDOM); XMLDOM.load(Connector.OutputStream); XMLNode := XMLDOM.selectSingleNode('//valid'); IF NOT ISCLEAR(XMLNode) THEN MESSAGE(XMLNode.text); XMLDOM.save('c:\orderinit.xml'); CLEAR(XMLDOM); CLEAR(Connector);Any Ideas ?
Comments