var
bulkArrayPayload: JsonArray;
JsonText: text;
Location: record Location;
RespMessage: text;
http_Client: HttpClient;
httpReqMsg: HttpRequestMessage;
httpResMsg: HttpResponseMessage;
http_Content: HttpContent;
http_Header: HttpHeaders;
serviceResponse: text;
URL: Text;
begin
RespStatus := '';
Clear(bulkArrayPayload);
clear(httpResMsg);
Clear(serviceResponse);
bulkArrayPayload.Add(JSOObject);
bulkArrayPayload.WriteTo(JsonText);
if CopyStr(JsonText, 1, 1) = '[' then begin
JsonText := CopyStr(JsonText, 2, StrLen(JsonText));
JsonText := CopyStr(JsonText, 1, StrLen(JsonText) - 1);
end;
http_Client.Clear();
http_Content.Clear();
http_Content.WriteFrom(JsonText);
http_Content.GetHeaders(http_Header);
http_Header.Clear();
http_Client.DefaultRequestHeaders.Add('Authorization', 'Bearer ' + APIKey + '');
http_Header.Add('Content-Type', 'application/json');
if http_client.Post(APIURL, http_Content, httpResMsg) then begin
httpResMsg.Content.ReadAs(serviceResponse);
RespStatus := 'Pass';
if (httpResMsg.HttpStatusCode <> 200) or (StrPos(serviceResponse, 'error') > 0) then
RespStatus := 'Failed';
end;
exit(serviceResponse);
end;