consume an external web service from navision

RachidEL

Hello,

I would like to consume an external web service from navision, my current version is BC 14 and i try to do it using codeunit.

thank you in advance.

maxklein

its simple

OBJECT Codeunit 50100 ConsumeWebService
{
OBJECT-PROPERTIES
{
OnRun=BEGIN
CallExternalAPI();
END;
}
PROPERTIES
{
SingleInstance=Yes;
}
LOCAL PROCEDURE CallExternalAPI@1();
VAR
HttpWebRequest@1000 : DotNet "System.Net.HttpWebRequest";
HttpWebResponse@1001 : DotNet "System.Net.HttpWebResponse";
StreamReader@1002 : DotNet "System.IO.StreamReader";
RequestStream@1003 : DotNet "System.IO.Stream";
StreamWriter@1004 : DotNet "System.IO.StreamWriter";
Encoding@1005 : DotNet "System.Text.Encoding";
Uri@1006 : DotNet "System.Uri";
JsonText@1007 : Text[1024];
ResponseText@1008 : Text;
ResponseStream@1009 : DotNet "System.IO.Stream";
BEGIN
JsonText := '{ "exampleKey": "exampleValue" }'; // Replace with your JSON payload

Uri := Uri.Uri('https://your-api-url.com/endpoint'); // Replace with your URL
HttpWebRequest := HttpWebRequest.Create(Uri);
HttpWebRequest.Method := 'POST';
HttpWebRequest.ContentType := 'application/json';

Encoding := Encoding.UTF8;
RequestStream := HttpWebRequest.GetRequestStream();
StreamWriter := StreamWriter.StreamWriter(RequestStream, Encoding);
StreamWriter.Write(JsonText);
StreamWriter.Close();

HttpWebResponse := HttpWebRequest.GetResponse();
ResponseStream := HttpWebResponse.GetResponseStream();
StreamReader := StreamReader.StreamReader(ResponseStream);
ResponseText := StreamReader.ReadToEnd();

MESSAGE('Response: %1', ResponseText);
END;
}

RockWithNAV

Too many ways.

Simple Get Method

HttpWebRequest := HttpWebRequest.HttpWebRequest;
Uri := Uri.Uri('https://api.example.com/data');

HttpWebRequest := HttpWebRequest.Create(Uri);
HttpWebRequest.Method := 'GET';
HttpWebRequest.ContentType := 'application/json';

HttpWebResponse := HttpWebRequest.GetResponse();
StreamReader := StreamReader.StreamReader(HttpWebResponse.GetResponseStream());
ResponseText := StreamReader.ReadToEnd();

Message(ResponseText);

Variables you can use as mentioned as above