How Send XML Document via HTTP Post Using DotNet?

michelegrs · 2017-01-20

Hi to all,

I'd like to know how you can send an XML file via HTTP POST using DotNET.

I'm currently using the seguende code:
http://forum.mibuso.com/discussion/comment/296881/#Comment_296881

In the case:

URL[1] :=                     '\\****************\************\ICT\JSS\EDI\Invoice200117.xml';
WebaddressToPostTo    :=      'http://IP:PORT/http?request=send';

..but I get an error:
"The system can not locate the resource"

Can you help me? Thanks in advance.

MGRS

zohaibu95@hotmail.com · 2017-01-20

Have a look at this code . I m using DotNet in it.

Variables:
XmlHttpHandler2 System.Net.Http.HttpClient.'System.Net.Http, Version=4.0.0.0
XmlHttpHandler	System.Net.Http.HttpClientHandler.'System.Net.Http, Version=4.0.0.0
XmlHttpRequestMessage	System.Net.Http.HttpRequestMessage.'System.Net.Http, Version=4.0.0.0
XmlHttpMethod	DotNet	System.Net.Http.HttpMethod.'System.Net.Http, Version=4.0.0.0
XmlHttpContent	System.Net.Http.StringContent.'System.Net.Http, Version=4.0.0.0
XmlHttpRequestHeader	System.Net.Http.Headers.HttpRequestHeaders.'System.Net.Http, Version=4.0.0.0
XmlHttpClient	System.Net.Http.HttpClient.'System.Net.Http, Version=4.0.0.0
XmlHttpResponseMessage:	System.Net.Http.HttpResponseMessage.'System.Net.Http, Version=4.0.0.0
CurrNode System.Xml.XmlNode.'System.Xml, Version=4.0.0.0

Code:
XmlHttpHandler := XmlHttpHandler.HttpClientHandler();
XmlHttpMethod := XmlHttpMethod.HttpMethod('POST');
XmlHttpRequestMessage := XmlHttpRequestMessage.HttpRequestMessage(XmlHttpMethod,WebServiceURL);

{
Testing:
XmlHttpClient.DefaultRequestHeaders := ('Content-Type','text/xml');
XmlHttpClient.DefaultRequestHeaders('SOAPAction','"http://tempuri.org/' + WebFunc + '"');
XmlHttpRequestMessage.Headers := XmlHttpClient.DefaultRequestHeaders;
}

XmlHttpContent := XmlHttpContent.StringContent(XmlDoc.ToString);
XmlHttpRequestMessage.Content(XmlHttpContent);
XmlHttpHandler2 := XmlHttpHandler2.HttpClient(XmlHttpHandler);
XmlHttpHandler2.SendAsync(XmlHttpRequestMessage);

CLEAR(XmlDoc);
XmlDoc := XmlDoc.XmlDocument;
XmlHttpResponseMessage := XmlHttpResponseMessage.HttpResponseMessage;
XmlHttpResponseMessage.RequestMessage := XmlHttpRequestMessage.HttpRequestMessage(XmlHttpMethod,WebServiceURL);
IF XmlHttpResponseMessage.StatusCode <> 200 THEN BEGIN
ErrorNote := 'HTTP ' + FORMAT(XmlHttpResponseMessage.StatusCode) + ': ' + XmlHttpResponseMessage.ReasonPhrase;
EXIT(FALSE);
END;

XmlHttpContent := XmlHttpResponseMessage.Content;
XmlDoc.LoadXml(XmlHttpContent.ToString); NOTE: This line gives and error.
How can I store the data from the Response back in this XMlDoc?

CurrNode := XmlDoc.DocumentElement.SelectSingleNode('soap:Body/' + WebFunc + 'Response/' + WebFunc + 'Result');

IF NOT ISNULL(CurrNode) THEN
ReturnMessage := CurrNode.InnerText;

IF XmlHttpResponseMessage.IsSuccessStatusCode THEN
EXIT(TRUE);

ErrorNote := COPYSTR(ReturnMessage,1,MAXSTRLEN(ErrorNote));

EXIT(FALSE);

michelegrs · 2017-01-20

Many thanks to all,

you've been really very kind. I solved.

zohaibu95@hotmail.com · 2017-01-20

I have wrote this code in NAV 2009 but you can replace Automation with DotNet type. The logic will remains the same.

Variables are as under:

Code:

CLEAR(TempBlob);
TempBlob.Blob.CREATEOUTSTREAM(OS);
Customer.GET('30000');

//Set the view for the XMLPort
 CustomerXML.SETTABLEVIEW(Customer);
 
// Use the TempBlob record to get a blob stream
TempBlob.Blob.CREATEOUTSTREAM(OS);
CustomerXML.SETDESTINATION(OS);
// export the contents of the XMLPort to a blob
CustomerXML.EXPORT;
 
TempBlob.CALCFIELDS(Blob);
TempBlob.Blob.CREATEINSTREAM(IS);


IF ISCLEAR(XMLHTTP) THEN //'Microsoft XML, v6.0'.XMLHTTP60
  CREATE(XMLHTTP);
IF ISCLEAR(XMLDoc) THEN //'Microsoft XML, v6.0'.DOMDocument
  CREATE(XMLDoc);

XMLDoc.load(IS);

XMLHTTP.open('POST', WebAddress, FALSE);
XMLHTTP.setRequestHeader('Content-Type', 'text/xml');
XMLHTTP.send(XMLDoc);

IF XMLHTTP.status = 200 THEN BEGIN
  IF (XMLHTTP.responseText <> '') THEN BEGIN

  END;
END ELSE BEGIN
  ERROR('Status %1 %2',XMLHTTP.status,XMLHTTP.statusText);
END;

CLEAR(XMLDoc);
CLEAR(XMLHTTP);

michelegrs · 2017-01-20

Hi zohaibu,

many thanks for the swift answer, unfortunately I'm forced to use dotnet.

MicheleGRS

RockWithNAV · 2017-01-20

Hey

Check out this link, if it seems helpful.

https://rockwithnav.wordpress.com/2016/02/23/consume-net-webservice-dotnet-data-type/

zohaibu95@hotmail.com · 2017-01-20

@michelegrs just replace Automation with DotNet rest will be the same

zohaibu95@hotmail.com · 2017-01-20

Have a look at this code . I m using DotNet in it.

Variables:
XmlHttpHandler2 System.Net.Http.HttpClient.'System.Net.Http, Version=4.0.0.0
XmlHttpHandler	System.Net.Http.HttpClientHandler.'System.Net.Http, Version=4.0.0.0
XmlHttpRequestMessage	System.Net.Http.HttpRequestMessage.'System.Net.Http, Version=4.0.0.0
XmlHttpMethod	DotNet	System.Net.Http.HttpMethod.'System.Net.Http, Version=4.0.0.0
XmlHttpContent	System.Net.Http.StringContent.'System.Net.Http, Version=4.0.0.0
XmlHttpRequestHeader	System.Net.Http.Headers.HttpRequestHeaders.'System.Net.Http, Version=4.0.0.0
XmlHttpClient	System.Net.Http.HttpClient.'System.Net.Http, Version=4.0.0.0
XmlHttpResponseMessage:	System.Net.Http.HttpResponseMessage.'System.Net.Http, Version=4.0.0.0
CurrNode System.Xml.XmlNode.'System.Xml, Version=4.0.0.0

Code:
XmlHttpHandler := XmlHttpHandler.HttpClientHandler();
XmlHttpMethod := XmlHttpMethod.HttpMethod('POST');
XmlHttpRequestMessage := XmlHttpRequestMessage.HttpRequestMessage(XmlHttpMethod,WebServiceURL);

{
Testing:
XmlHttpClient.DefaultRequestHeaders := ('Content-Type','text/xml');
XmlHttpClient.DefaultRequestHeaders('SOAPAction','"http://tempuri.org/' + WebFunc + '"');
XmlHttpRequestMessage.Headers := XmlHttpClient.DefaultRequestHeaders;
}

XmlHttpContent := XmlHttpContent.StringContent(XmlDoc.ToString);
XmlHttpRequestMessage.Content(XmlHttpContent);
XmlHttpHandler2 := XmlHttpHandler2.HttpClient(XmlHttpHandler);
XmlHttpHandler2.SendAsync(XmlHttpRequestMessage);

CLEAR(XmlDoc);
XmlDoc := XmlDoc.XmlDocument;
XmlHttpResponseMessage := XmlHttpResponseMessage.HttpResponseMessage;
XmlHttpResponseMessage.RequestMessage := XmlHttpRequestMessage.HttpRequestMessage(XmlHttpMethod,WebServiceURL);
IF XmlHttpResponseMessage.StatusCode <> 200 THEN BEGIN
ErrorNote := 'HTTP ' + FORMAT(XmlHttpResponseMessage.StatusCode) + ': ' + XmlHttpResponseMessage.ReasonPhrase;
EXIT(FALSE);
END;

XmlHttpContent := XmlHttpResponseMessage.Content;
XmlDoc.LoadXml(XmlHttpContent.ToString); NOTE: This line gives and error.
How can I store the data from the Response back in this XMlDoc?

CurrNode := XmlDoc.DocumentElement.SelectSingleNode('soap:Body/' + WebFunc + 'Response/' + WebFunc + 'Result');

IF NOT ISNULL(CurrNode) THEN
ReturnMessage := CurrNode.InnerText;

IF XmlHttpResponseMessage.IsSuccessStatusCode THEN
EXIT(TRUE);

ErrorNote := COPYSTR(ReturnMessage,1,MAXSTRLEN(ErrorNote));

EXIT(FALSE);

michelegrs · 2017-01-20

Many thanks to all,

you've been really very kind. I solved.

zohaibu95@hotmail.com · 2017-01-20

michelegrs wrote: »

Many thanks to all,

you've been really very kind. I solved.

You are welcome

sooniory · 2017-11-28

@michelegrs could you give the dotnet reference of HTTPRequest Var? Thanks!

How Send XML Document via HTTP Post Using DotNet?

Best Answers

Answers

Categories