Hi All,
For above my requirement I'm following this link.
There I found C# code.
I replaced with .Net Variables in Nav 2016.
Then It's working Fine.
(Note: In that code, I gave XMLHTTPRequestL.ContentType := 'text/xml;
at that time I got error 'Missing or Invalid Credentials'
Now I Changed as follows
XMLHTTPRequestL.ContentType := 'application/x-www-form-urlencoded';
Now it's working Fine with out any issue.)
Code as follows...............................
Variables:-
Name DataType Subtype Length
SourceXMLDoc DotNet System.Xml.XmlDocument.'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089',
XMLDOMText DotNet System.Xml.XmlText.'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
XMLHTTPRequestL DotNet System.Net.HttpWebRequest.'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
MemoryStreamL DotNet System.IO.MemoryStream.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
MemoryStreamResL DotNet System.IO.MemoryStream.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
XMLHTTPResponse DotNet System.Net.HttpWebResponse.'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
EncodingUTF8 DotNet System.Text.UTF8Encoding.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
Bytes DotNet System.Array.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
StreamReaderL DotNet System.IO.StreamReader.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
credentials DotNet System.Net.CredentialCache.'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
Code.......................
IF ISNULL(SourceXMLDoc) THEN
SourceXMLDoc:=SourceXMLDoc.XmlDocument;
IF ISNULL(XMLHTTPRequestL) THEN
XMLHTTPRequestL := XMLHTTPRequestL.HttpWebRequest;
IF ISNULL(XMLHTTPResponse) THEN
XMLHTTPResponse := XMLHTTPResponse.HttpWebResponse;
XMLHTTPRequestL := XMLHTTPRequestL.Create(ReqestURL);
XMLHTTPRequestL.Timeout := 30000;
XMLHTTPRequestL.UseDefaultCredentials(FALSE);
XMLHTTPRequestL.ContentType := 'application/x-www-form-urlencoded';
XMLHTTPRequestL.Method := 'POST';
Bytes:=EncodingUTF8.UTF8.GetBytes(XMLDOMText.Value);
XMLHTTPRequestL.ContentLength:=Bytes.Length;
MemoryStreamL := XMLHTTPRequestL.GetRequestStream;
MemoryStreamL.Write(Bytes,0,Bytes.Length);
MemoryStreamL.Flush;
MemoryStreamL.Close;
XMLHTTPResponse := XMLHTTPRequestL.GetResponse;
MemoryStreamResL := XMLHTTPResponse.GetResponseStream;
SourceXMLDoc.Load(MemoryStreamResL);
MemoryStreamResL.Flush;
MemoryStreamResL.Close;
XMLHTTPResponse.Close;
IF XMLHTTPResponse.StatusCode <> 200 THEN BEGIN
SourceXMLDoc.Save(ResponseFileName+'Failed_HTTP_Response.xml');
END ELSE BEGIN
SourceXMLDoc.Save(ResponseFileName+'Valid_HTTP_Response.xml');
END;
