IF ISCLEAR(SoapHttpConn) THEN CREATE(SoapHttpConn); SoapHttpConn.Property('EndPointURL', MyEndpointURL); SoapHttpConn.Connect; SoapHttpConn.Property('SoapAction', 'getAddress1'); SoapHttpConn.BeginMessage; IF ISCLEAR(SoapSerialize) THEN CREATE(SoapSerialize); SoapSerialize.Init(SoapHttpConn.InputStream); SoapSerialize.startEnvelope('','http://schemas.xmlsoap.org/soap/encoding/'); SoapSerialize.SoapNamespace('xsi', 'http://www.w3.org/2001/XMLSchema-instance'); SoapSerialize.SoapNamespace('soap', 'http://soapserver.jsm.marktselect.com'); SoapSerialize.SoapNamespace('soapenv', 'http://schemas.xmlsoap.org/soap/envelope/'); SoapSerialize.SoapNamespace('xsd', 'http://www.w3.org/2001/XMLSchema'); SoapSerialize.startBody; SoapSerialize.startElement('getAddress1', 'MSAddressDirect', '', 'method' ); //parameter 'username': SoapSerialize.startElement('username'); SoapSerialize.SoapAttribute('type','','xsd:string', 'xsi' ); SoapSerialize.writeString(MyUsername); SoapSerialize.endElement; //... more parameters cut out... SoapSerialize.endElement; SoapSerialize.endBody; SoapSerialize.endEnvelope; SoapHttpConn.EndMessage; IF ISCLEAR(XmlDom) THEN CREATE(XmlDom); XmlDom.load(SoapHttpConn.OutputStream); XmlDom.save('c:\temp\temp.xml');
SoapHttpConn 'Microsoft Soap Type Library'.HttpConnector SoapSerialize 'Microsoft Soap Type Library'.SoapSerializer XmlDom 'Microsoft XML, v5.0'.DOMDocument
System.Net.ServicePointManager.Expect100Continue = False