|
|
(Delphi DLL) Amazon Rekognition - Detect Faces in an Image
Detects faces within an image that is provided as input. This example passes theimage as base64-encoded image bytes. For more information, see https://docs.aws.amazon.com/rekognition/latest/dg/API_DetectFaces.html
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, AuthAws, Rest, BinData, StringBuilder, JsonObject;
...
procedure TForm1.Button1Click(Sender: TObject);
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
bdJpg: HCkBinData;
sbJpg: HCkStringBuilder;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
AgeRangeHigh: Integer;
AgeRangeLow: Integer;
BeardConfidence: PWideChar;
BeardValue: Boolean;
BoundingBoxHeight: PWideChar;
BoundingBoxLeft: PWideChar;
BoundingBoxTop: PWideChar;
BoundingBoxWidth: PWideChar;
Confidence: PWideChar;
EyeglassesConfidence: PWideChar;
EyeglassesValue: Boolean;
EyesOpenConfidence: PWideChar;
EyesOpenValue: Boolean;
GenderConfidence: PWideChar;
GenderValue: PWideChar;
MouthOpenConfidence: PWideChar;
MouthOpenValue: Boolean;
MustacheConfidence: PWideChar;
MustacheValue: Boolean;
PosePitch: PWideChar;
PoseRoll: PWideChar;
PoseYaw: PWideChar;
QualityBrightness: PWideChar;
QualitySharpness: PWideChar;
SmileConfidence: PWideChar;
SmileValue: Boolean;
SunglassesConfidence: PWideChar;
SunglassesValue: Boolean;
j: Integer;
count_j: Integer;
v_Type: PWideChar;
X: PWideChar;
Y: PWideChar;
i: Integer;
count_i: Integer;
begin
rest := CkRest_Create();
authAws := CkAuthAws_Create();
CkAuthAws_putAccessKey(authAws,'AWS_ACCESS_KEY');
CkAuthAws_putSecretKey(authAws,'AWS_SECRET_KEY');
// Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
CkAuthAws_putRegion(authAws,'us-west-2');
CkAuthAws_putServiceName(authAws,'rekognition');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);
// URL: https://rekognition.us-west-2.amazonaws.com/
bTls := True;
port := 443;
bAutoReconnect := True;
// Don't forget to change the region domain (us-west-2.amazonaws.com) to your particular region.
success := CkRest_Connect(rest,'rekognition.us-west-2.amazonaws.com',port,bTls,bAutoReconnect);
if (success <> True) then
begin
Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(CkRest_getConnectFailReason(rest)));
Memo1.Lines.Add(CkRest__lastErrorText(rest));
Exit;
end;
// Note: The above code does not need to be repeatedly called for each REST request.
// The rest object can be setup once, and then many requests can be sent. Chilkat will automatically
// reconnect within a FullRequest* method as needed. It is only the very first connection that is explicitly
// made via the Connect method.
// Load the JPG to be passed as base64 in the JSON.
bdJpg := CkBinData_Create();
success := CkBinData_LoadFile(bdJpg,'qa_data/jpg/kid_blue_coat.jpg');
if (success <> True) then
begin
Memo1.Lines.Add('Failed to load the input JPG file.');
Exit;
end;
// We wish to send the following JSON in the body of our HTTP request:
// {
// "Image": {
// "Bytes": "base64_image_bytes"
// }
// "Attributes": [
// "ALL"
// ]
// }
// Here is the image we used for testing:
// Convert binary image bytes to base64.
// Note: We are explicitly keeping the data inside Chilkat to avoid having to pass large strings
// as arguments to function calls. This is important for some programming languages.
sbJpg := CkStringBuilder_Create();
CkBinData_GetEncodedSb(bdJpg,'base64',sbJpg);
json := CkJsonObject_Create();
CkJsonObject_UpdateSb(json,'Image.Bytes',sbJpg);
CkJsonObject_UpdateString(json,'Attributes[0]','ALL');
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','RekognitionService.DetectFaces');
sbRequestBody := CkStringBuilder_Create();
CkJsonObject_EmitSb(json,sbRequestBody);
sbResponseBody := CkStringBuilder_Create();
success := CkRest_FullRequestSb(rest,'POST','/',sbRequestBody,sbResponseBody);
if (success <> True) then
begin
Memo1.Lines.Add(CkRest__lastErrorText(rest));
Exit;
end;
respStatusCode := CkRest_getResponseStatusCode(rest);
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
begin
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
Memo1.Lines.Add('Response Header:');
Memo1.Lines.Add(CkRest__responseHeader(rest));
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponseBody));
Exit;
end;
jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);
Memo1.Lines.Add(CkJsonObject__emit(jResp));
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "FaceDetails": [
// {
// "AgeRange": {
// "High": 18,
// "Low": 8
// },
// "Beard": {
// "Confidence": 98.06282806396484,
// "Value": false
// },
// "BoundingBox": {
// "Height": 0.327279269695282,
// "Left": 0.5339247584342957,
// "Top": 0.23660442233085632,
// "Width": 0.35611653327941895
// },
// "Confidence": 99.99732971191406,
// "Emotions": [
// {
// "Confidence": 99.5849380493164,
// "Type": "HAPPY"
// },
// {
// "Confidence": 0.15533843636512756,
// "Type": "CALM"
// },
// {
// "Confidence": 0.08864031732082367,
// "Type": "SURPRISED"
// },
// {
// "Confidence": 0.05476664379239082,
// "Type": "SAD"
// },
// {
// "Confidence": 0.042048510164022446,
// "Type": "CONFUSED"
// },
// {
// "Confidence": 0.038942769169807434,
// "Type": "DISGUSTED"
// },
// {
// "Confidence": 0.021463459357619286,
// "Type": "FEAR"
// },
// {
// "Confidence": 0.013858155347406864,
// "Type": "ANGRY"
// }
// ],
// "Eyeglasses": {
// "Confidence": 98.5116195678711,
// "Value": false
// },
// "EyesOpen": {
// "Confidence": 99.65477752685547,
// "Value": true
// },
// "Gender": {
// "Confidence": 97.1164321899414,
// "Value": "Female"
// },
// "Landmarks": [
// {
// "Type": "eyeLeft",
// "X": 0.6554790735244751,
// "Y": 0.35153862833976746
// },
// {
// "Type": "eyeRight",
// "X": 0.7940073609352112,
// "Y": 0.38292214274406433
// },
// {
// "Type": "mouthLeft",
// "X": 0.6188991069793701,
// "Y": 0.46431097388267517
// },
// {
// "Type": "mouthRight",
// "X": 0.7352844476699829,
// "Y": 0.490242063999176
// },
// {
// "Type": "nose",
// "X": 0.7125006914138794,
// "Y": 0.44607019424438477
// },
// {
// "Type": "leftEyeBrowLeft",
// "X": 0.6096581220626831,
// "Y": 0.3071737587451935
// },
// {
// "Type": "leftEyeBrowRight",
// "X": 0.6628581285476685,
// "Y": 0.3133310079574585
// },
// {
// "Type": "leftEyeBrowUp",
// "X": 0.7027584314346313,
// "Y": 0.33200803399086
// },
// {
// "Type": "rightEyeBrowLeft",
// "X": 0.7813941240310669,
// "Y": 0.35023579001426697
// },
// {
// "Type": "rightEyeBrowRight",
// "X": 0.8213478922843933,
// "Y": 0.34993964433670044
// },
// {
// "Type": "rightEyeBrowUp",
// "X": 0.8495538234710693,
// "Y": 0.36189284920692444
// },
// {
// "Type": "leftEyeLeft",
// "X": 0.629088282585144,
// "Y": 0.34286588430404663
// },
// {
// "Type": "leftEyeRight",
// "X": 0.6820939183235168,
// "Y": 0.3586524724960327
// },
// {
// "Type": "leftEyeUp",
// "X": 0.6580297946929932,
// "Y": 0.3468707501888275
// },
// {
// "Type": "leftEyeDown",
// "X": 0.6537532210350037,
// "Y": 0.35663917660713196
// },
// {
// "Type": "rightEyeLeft",
// "X": 0.7655976414680481,
// "Y": 0.3776427209377289
// },
// {
// "Type": "rightEyeRight",
// "X": 0.8166338801383972,
// "Y": 0.38544225692749023
// },
// {
// "Type": "rightEyeUp",
// "X": 0.7969376444816589,
// "Y": 0.37844377756118774
// },
// {
// "Type": "rightEyeDown",
// "X": 0.7909533977508545,
// "Y": 0.3877102732658386
// },
// {
// "Type": "noseLeft",
// "X": 0.6727234721183777,
// "Y": 0.44030481576919556
// },
// {
// "Type": "noseRight",
// "X": 0.7237889170646667,
// "Y": 0.45200300216674805
// },
// {
// "Type": "mouthUp",
// "X": 0.6882695555686951,
// "Y": 0.4740942418575287
// },
// {
// "Type": "mouthDown",
// "X": 0.6720560789108276,
// "Y": 0.5046101808547974
// },
// {
// "Type": "leftPupil",
// "X": 0.6554790735244751,
// "Y": 0.35153862833976746
// },
// {
// "Type": "rightPupil",
// "X": 0.7940073609352112,
// "Y": 0.38292214274406433
// },
// {
// "Type": "upperJawlineLeft",
// "X": 0.5517005324363708,
// "Y": 0.30355724692344666
// },
// {
// "Type": "midJawlineLeft",
// "X": 0.5320234894752502,
// "Y": 0.43352627754211426
// },
// {
// "Type": "chinBottom",
// "X": 0.6419994831085205,
// "Y": 0.5531964302062988
// },
// {
// "Type": "midJawlineRight",
// "X": 0.7752369046211243,
// "Y": 0.48957017064094543
// },
// {
// "Type": "upperJawlineRight",
// "X": 0.8515444397926331,
// "Y": 0.37258899211883545
// }
// ],
// "MouthOpen": {
// "Confidence": 68.26280212402344,
// "Value": false
// },
// "Mustache": {
// "Confidence": 99.73213195800781,
// "Value": false
// },
// "Pose": {
// "Pitch": -11.299633026123047,
// "Roll": 17.6924991607666,
// "Yaw": 13.582314491271973
// },
// "Quality": {
// "Brightness": 83.72581481933594,
// "Sharpness": 67.22731018066406
// },
// "Smile": {
// "Confidence": 98.4793930053711,
// "Value": true
// },
// "Sunglasses": {
// "Confidence": 99.3582992553711,
// "Value": false
// }
// }
// ]
// }
// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'FaceDetails');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
AgeRangeHigh := CkJsonObject_IntOf(jResp,'FaceDetails[i].AgeRange.High');
AgeRangeLow := CkJsonObject_IntOf(jResp,'FaceDetails[i].AgeRange.Low');
BeardConfidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].Beard.Confidence');
BeardValue := CkJsonObject_BoolOf(jResp,'FaceDetails[i].Beard.Value');
BoundingBoxHeight := CkJsonObject__stringOf(jResp,'FaceDetails[i].BoundingBox.Height');
BoundingBoxLeft := CkJsonObject__stringOf(jResp,'FaceDetails[i].BoundingBox.Left');
BoundingBoxTop := CkJsonObject__stringOf(jResp,'FaceDetails[i].BoundingBox.Top');
BoundingBoxWidth := CkJsonObject__stringOf(jResp,'FaceDetails[i].BoundingBox.Width');
Confidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].Confidence');
EyeglassesConfidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].Eyeglasses.Confidence');
EyeglassesValue := CkJsonObject_BoolOf(jResp,'FaceDetails[i].Eyeglasses.Value');
EyesOpenConfidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].EyesOpen.Confidence');
EyesOpenValue := CkJsonObject_BoolOf(jResp,'FaceDetails[i].EyesOpen.Value');
GenderConfidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].Gender.Confidence');
GenderValue := CkJsonObject__stringOf(jResp,'FaceDetails[i].Gender.Value');
MouthOpenConfidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].MouthOpen.Confidence');
MouthOpenValue := CkJsonObject_BoolOf(jResp,'FaceDetails[i].MouthOpen.Value');
MustacheConfidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].Mustache.Confidence');
MustacheValue := CkJsonObject_BoolOf(jResp,'FaceDetails[i].Mustache.Value');
PosePitch := CkJsonObject__stringOf(jResp,'FaceDetails[i].Pose.Pitch');
PoseRoll := CkJsonObject__stringOf(jResp,'FaceDetails[i].Pose.Roll');
PoseYaw := CkJsonObject__stringOf(jResp,'FaceDetails[i].Pose.Yaw');
QualityBrightness := CkJsonObject__stringOf(jResp,'FaceDetails[i].Quality.Brightness');
QualitySharpness := CkJsonObject__stringOf(jResp,'FaceDetails[i].Quality.Sharpness');
SmileConfidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].Smile.Confidence');
SmileValue := CkJsonObject_BoolOf(jResp,'FaceDetails[i].Smile.Value');
SunglassesConfidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].Sunglasses.Confidence');
SunglassesValue := CkJsonObject_BoolOf(jResp,'FaceDetails[i].Sunglasses.Value');
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'FaceDetails[i].Emotions');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
Confidence := CkJsonObject__stringOf(jResp,'FaceDetails[i].Emotions[j].Confidence');
v_Type := CkJsonObject__stringOf(jResp,'FaceDetails[i].Emotions[j].Type');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'FaceDetails[i].Landmarks');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
v_Type := CkJsonObject__stringOf(jResp,'FaceDetails[i].Landmarks[j].Type');
X := CkJsonObject__stringOf(jResp,'FaceDetails[i].Landmarks[j].X');
Y := CkJsonObject__stringOf(jResp,'FaceDetails[i].Landmarks[j].Y');
j := j + 1;
end;
i := i + 1;
end;
CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkBinData_Dispose(bdJpg);
CkStringBuilder_Dispose(sbJpg);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
end;
|
