Unable to send Post request in Business Central
stuart62
Member Posts: 2
This is my AL code:
var
Client: HttpClient;
Headers: HttpHeaders;
Content: HttpContent;
Url: Text;
MyContent: Text;
TempBlob: Record TempBlob;
APIResult: Boolean;APIOutput: Text;
AuthText: Text;
begin
Client.DefaultRequestHeaders.Add('Accept', 'application/json');
Content.Clear();
Content.WriteFrom(MyContent);
Headers.Clear();
AuthText := StrSubstNo('username:password');
TempBlob.WriteAsText(AuthText, TextEncoding::Windows);
Headers.Add('Authorization', StrSubstNo('Basic %1', TempBlob.ToBase64String()));
Headers.Add('Content-Type', 'application/json');
Content.GetHeaders(Headers);
if not Client.Post(Url, Content, ResponseMessage) then begin
Error('The call to the web service failed.');
end;
Headers := ResponseMessage.Headers();
ResponseMessage.Content().ReadAs(APIOutput);
Message(APIOutput);
EXIT(ResponseMessage.IsSuccessStatusCode());
At the Headers.Add('Content-Type', 'application/json'); get the following error:
Element 'Headers' is not a member of 'Content'
Think this is caused by the previous line, been unable to find anywhere online where this error has occurred previously. Been struggling with this for days, have tried without the authorization but still get the same error.
var
Client: HttpClient;
Headers: HttpHeaders;
Content: HttpContent;
Url: Text;
MyContent: Text;
TempBlob: Record TempBlob;
APIResult: Boolean;APIOutput: Text;
AuthText: Text;
begin
Client.DefaultRequestHeaders.Add('Accept', 'application/json');
Content.Clear();
Content.WriteFrom(MyContent);
Headers.Clear();
AuthText := StrSubstNo('username:password');
TempBlob.WriteAsText(AuthText, TextEncoding::Windows);
Headers.Add('Authorization', StrSubstNo('Basic %1', TempBlob.ToBase64String()));
Headers.Add('Content-Type', 'application/json');
Content.GetHeaders(Headers);
if not Client.Post(Url, Content, ResponseMessage) then begin
Error('The call to the web service failed.');
end;
Headers := ResponseMessage.Headers();
ResponseMessage.Content().ReadAs(APIOutput);
Message(APIOutput);
EXIT(ResponseMessage.IsSuccessStatusCode());
At the Headers.Add('Content-Type', 'application/json'); get the following error:
Element 'Headers' is not a member of 'Content'
Think this is caused by the previous line, been unable to find anywhere online where this error has occurred previously. Been struggling with this for days, have tried without the authorization but still get the same error.
0
Answers
-
Resolved was all to do do with allowing http requests not enabled and throwing unexpected errors.0
Categories
- All Categories
- 75 General
- 75 Announcements
- 66.7K Microsoft Dynamics NAV
- 18.8K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 610 NAV Courses, Exams & Certification
- 1.9K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 251 Dynamics CRM
- 103 Dynamics GP
- 6 Dynamics SL
- 1.5K Other
- 991 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 28 Design Patterns (General & Best Practices)
- Architectural Patterns
- 9 Design Patterns
- 4 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1K General Chat
- 1.6K Website
- 77 Testing
- 1.2K Download section
- 23 How Tos section
- 249 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions