delphiAx / Microsoft Graph / Create subjectRightsRequest
Back to Collection Items
var
http: TChilkatHttp;
success: Integer;
json: TChilkatJsonObject;
resp: IChilkatHttpResponse;
begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := TChilkatHttp.Create(Self);
// Use this online tool to generate code from sample JSON: Generate Code to Create JSON
// The following JSON is sent in the request body.
// {
// "type": "access",
// "dataSubjectType": "currentEmployee",
// "regulations": [
// "Test Regulation"
// ],
// "displayName": "{{createRequestDisplayName}}",
// "description": "{{createRequestDescription}}",
// "internalDueDateTime": "{{internalDueDateTime}}",
// "dataSubject": {
// "firstName": "{{firstName}}",
// "lastName": "{{lastName}}",
// "email": "{{email}}",
// "residency": "5000 148th Ave NE, Redmond, WA 98052",
// "phoneNumber": "(425) 867-6537",
// "SSN": "555-55-5555"
// }
// }
json := TChilkatJsonObject.Create(Self);
json.UpdateString('type','access');
json.UpdateString('dataSubjectType','currentEmployee');
json.UpdateString('regulations[0]','Test Regulation');
json.UpdateString('displayName','{{createRequestDisplayName}}');
json.UpdateString('description','{{createRequestDescription}}');
json.UpdateString('internalDueDateTime','{{internalDueDateTime}}');
json.UpdateString('dataSubject.firstName','{{firstName}}');
json.UpdateString('dataSubject.lastName','{{lastName}}');
json.UpdateString('dataSubject.email','{{email}}');
json.UpdateString('dataSubject.residency','5000 148th Ave NE, Redmond, WA 98052');
json.UpdateString('dataSubject.phoneNumber','(425) 867-6537');
json.UpdateString('dataSubject.SSN','555-55-5555');
// Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken := '<access_token>';
http.SetRequestHeader('Content-Type','application/json');
resp := http.PostJson3('https://graph.microsoft.com/v1.0/privacy/subjectRightsRequests','application/json',json.ControlInterface);
if (http.LastMethodSuccess = 0) then
begin
Memo1.Lines.Add(http.LastErrorText);
Exit;
end;
Memo1.Lines.Add(IntToStr(resp.StatusCode));
Memo1.Lines.Add(resp.BodyStr);
Curl Command
curl -X POST
-H "Authorization: Bearer <access_token>"
-H "Content-Type: application/json"
-d '{
"type": "access",
"dataSubjectType": "currentEmployee",
"regulations": ["Test Regulation"],
"displayName": "{{createRequestDisplayName}}",
"description": "{{createRequestDescription}}",
"internalDueDateTime": "{{internalDueDateTime}}",
"dataSubject": {
"firstName": "{{firstName}}",
"lastName": "{{lastName}}",
"email": "{{email}}",
"residency": "5000 148th Ave NE, Redmond, WA 98052",
"phoneNumber": "(425) 867-6537",
"SSN": "555-55-5555"
}
}'
https://graph.microsoft.com/v1.0/privacy/subjectRightsRequests
Postman Collection Item JSON
{
"name": "Create subjectRightsRequest",
"event": [
{
"listen": "test",
"script": {
"exec": [
"var json = JSON.parse(responseBody);",
"postman.setEnvironmentVariable(\"subjectRightsRequestId\", json.id);"
],
"type": "text/javascript"
}
}
],
"request": {
"method": "POST",
"header": [
{
"key": "Content-Type",
"value": "application/json",
"type": "text"
}
],
"body": {
"mode": "raw",
"raw": "{\n \"type\": \"access\",\n \"dataSubjectType\": \"currentEmployee\",\n \"regulations\": [\"Test Regulation\"],\n \"displayName\": \"{{createRequestDisplayName}}\",\n \"description\": \"{{createRequestDescription}}\",\n \"internalDueDateTime\": \"{{internalDueDateTime}}\",\n \"dataSubject\": {\n \"firstName\": \"{{firstName}}\",\n \"lastName\": \"{{lastName}}\",\n \"email\": \"{{email}}\",\n \"residency\": \"5000 148th Ave NE, Redmond, WA 98052\",\n \"phoneNumber\": \"(425) 867-6537\",\n \"SSN\": \"555-55-5555\"\n }\n}"
},
"url": {
"raw": "https://graph.microsoft.com/v1.0/privacy/subjectRightsRequests",
"protocol": "https",
"host": [
"graph",
"microsoft",
"com"
],
"path": [
"v1.0",
"privacy",
"subjectRightsRequests"
]
}
},
"response": [
]
}