Calling remote Web service from NAV with .Net Interop Error

Hi all,

I have a problem with calling remote Web service from NAV with dotNet interop variables.

I have created local web service that has only one action (HelloWorld).
The following is a sample SOAP 1.1 request and response:

POST /SimpleWebService.asmx HTTP/1.1
Host: localhost
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "http://localhost/HelloWorld"

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <HelloWorld xmlns="http://localhost" />
  </soap:Body>
</soap:Envelope>

The code that I have written:

dotNetXMLDoc := dotNetXMLDoc.XmlDocument();
dotNetHttpUtility := dotNetHttpUtility.HttpUtility();

XMLRequestString := '<?xml version="1.0" encoding="utf-8"?>';
XMLRequestString += '<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"';
XMLRequestString += ' xmlns:xsd="http://www.w3.org/2001/XMLSchema"';
XMLRequestString += ' xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">';
XMLRequestString += ' <soap:Body>';
XMLRequestString += ' <HelloWorld xmlns="http://localhost" />';
XMLRequestString += ' </soap:Body>';
XMLRequestString += '</soap:Envelope>';

dotNetWebHeaders := dotNetWebHeaders.WebHeaderCollection();
dotNetHttpWebRequest := dotNetHttpWebRequest.CreateHttp('http://localhost/SimpleWebService.asmx');

dotNetHttpWebRequest.Method('POST');
dotNetHttpWebRequest.ContentType('text/xml');
dotNetHttpWebRequest.MediaType('text/xml');

dotNetWebHeaders.Add('SOAPAction','http://localhost/HelloWorld');
dotNetHttpWebRequest.Headers(dotNetWebHeaders);
dotNetHttpWebRequest.ReadWriteTimeout(30);

dotNetStreamOut := dotNetStreamOut.MemoryStream();
dotNetStreamOut := dotNetHttpWebRequest.GetRequestStream;
dotNetStreamWriter := dotNetStreamWriter.StreamWriter(dotNetStreamOut);
dotNetStreamWriter.Write(XMLRequestString);
dotNetStreamWriter.Close();

dotNetWebResponse :=  dotNetHttpWebRequest.GetResponse;
dotNetStreamIn := dotNetWebResponse.GetResponseStream;
dotNetStreamReader := dotNetStreamReader.StreamReader(dotNetStreamIn);

dotNetXMLDoc.LoadXml(dotNetStreamReader.ReadToEnd());
MESSAGE(dotNetXMLDoc.OuterXml);

On line

dotNetWebResponse :=  dotNetHttpWebRequest.GetResponse;

I get the following error: A call to System.Net.HttpWebRequest.GetResponse failed with this message: The remote server returned an error: (415) Unsupported Media Type.

What am I doing wrong?

Kopija