Consume .NET Webservice (DotNet Data Type)

 

IF ISNULL(DotNetXmlDoc) THEN
DotNetXmlDoc := DotNetXmlDoc.DOMDocumentClass;

IF ISNULL(DotNetXmlHttp) THEN
DotNetXmlHttp := DotNetXmlHttp.XMLHTTPRequestClass;

DotNetXmlHttp.open(‘POST’,’URL’,0,0,0);

DotNetXmlHttp.SetRequestHeader(‘Host’,’ServerName);

DotNetXmlHttp.SetRequestHeader(‘Content-Type’,’text/xml; charset=utf-8′);

DotNetXmlHttp.SetRequestHeader(‘Content-Length’,’Length’);

DotNetXmlHttp.SetRequestHeader(‘SOAPAction’,’http://tempuri.org/MethodName);

DotNetXmlHttp.Send(‘<?xml version=”1.0″ encoding=”utf-8″?>’ +
‘<soap:Envelope xmlns:xsi=”http://www.w3.org/2001/XMLSchema-instance&#8221; xmlns:xsd=”http://www.w3.org/2001/XMLSchema&#8221; xmlns:soap=”http://schemas.xmlsoap.org/soap/envelope/”>&#8217; +
‘<soap:Body>’ +
‘<IsCustomerExist xmlns=”http://tempuri.org/”>&#8217; +
‘<customerID>’+CustomerID+'</customerID>’ +
‘</IsCustomerExist>’ +
‘</soap:Body>’ +
‘</soap:Envelope>’);

DotNetXmlDoc.load(DotNetXmlHttp.responseBody);

IF DotNetXmlHttp.status = 200 THEN BEGIN

DotNetXmlNodeList := DotNetXmlDoc.getElementsByTagName(‘soap:Body’);

DotNetXmlNode := DotNetXmlNodeList.item(0);

EVALUATE(Output,UPPERCASE(DotNetXmlNode.text));

END;

DotNetXmlHttp DotNet MSXML.XMLHTTPRequestClass.’Microsoft.MSXML, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a’

DotNetXmlDoc DotNet MSXML.DOMDocumentClass.’Microsoft.MSXML, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a’

DotNetXmlNodeList DotNet MSXML.IXMLDOMNodeList.’Microsoft.MSXML, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a’

DotNetXmlNode DotNet MSXML.IXMLDOMNode.’Microsoft.MSXML, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a’

Advertisements