delphiAx / MongoDB Atlas / Create Whitelist Entries for One Organization API Key
Back to Collection Items
var
http: TChilkatHttp;
success: Integer;
sbRequestBody: TChilkatStringBuilder;
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);
http.DigestAuth := 1;
http.Login := 'username';
http.Password := 'password';
sbRequestBody := TChilkatStringBuilder.Create(Self);
sbRequestBody.Append('[' + #10);
sbRequestBody.Append(' {' + #10);
sbRequestBody.Append(' "ipAddress": "77.54.32.11"' + #10);
sbRequestBody.Append(' }' + #10);
sbRequestBody.Append(']');
resp := http.PTextSb('POST','https://domain.com/api/atlas/{{version}}/orgs/{{ORG-ID}}/apiKeys/{{API-KEY-ID}}/whitelist',sbRequestBody.ControlInterface,'utf-8','application/text',0,0);
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
--digest -u 'username:password'
-d '[
{
"ipAddress": "77.54.32.11"
}
]'
https://domain.com/api/atlas/{{version}}/orgs/{{ORG-ID}}/apiKeys/{{API-KEY-ID}}/whitelist
Postman Collection Item JSON
{
"name": "Create Whitelist Entries for One Organization API Key",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "[\n {\n \"ipAddress\": \"77.54.32.11\"\n }\n]",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "{{base_url}}/api/atlas/{{version}}/orgs/{{ORG-ID}}/apiKeys/{{API-KEY-ID}}/whitelist",
"host": [
"{{base_url}}"
],
"path": [
"api",
"atlas",
"{{version}}",
"orgs",
"{{ORG-ID}}",
"apiKeys",
"{{API-KEY-ID}}",
"whitelist"
]
},
"description": "https://docs.atlas.mongodb.com/reference/api/apiKeys-org-whitelist-create/"
},
"response": [
]
}