Tcl
Tcl
Amazon Rekognition - Detect Faces in an Image
See more Amazon Rekognition Examples
Detects faces within an image that is provided as input. This example passes theimage as base64-encoded image bytes.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
set rest [new_CkRest]
set authAws [new_CkAuthAws]
CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY"
CkAuthAws_put_SecretKey $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_put_Region $authAws "us-west-2"
CkAuthAws_put_ServiceName $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/
set bTls 1
set port 443
set bAutoReconnect 1
# Don't forget to change the region domain (us-west-2.amazonaws.com) to your particular region.
set success [CkRest_Connect $rest "rekognition.us-west-2.amazonaws.com" $port $bTls $bAutoReconnect]
if {$success != 1} then {
puts "ConnectFailReason: [CkRest_get_ConnectFailReason $rest]"
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkAuthAws $authAws
exit
}
# 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.
set bdJpg [new_CkBinData]
set success [CkBinData_LoadFile $bdJpg "qa_data/jpg/kid_blue_coat.jpg"]
if {$success != 1} then {
puts "Failed to load the input JPG file."
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkBinData $bdJpg
exit
}
# 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.
set sbJpg [new_CkStringBuilder]
CkBinData_GetEncodedSb $bdJpg "base64" $sbJpg
set json [new_CkJsonObject]
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"
set sbRequestBody [new_CkStringBuilder]
CkJsonObject_EmitSb $json $sbRequestBody
set sbResponseBody [new_CkStringBuilder]
set success [CkRest_FullRequestSb $rest "POST" "/" $sbRequestBody $sbResponseBody]
if {$success != 1} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkBinData $bdJpg
delete_CkStringBuilder $sbJpg
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
exit
}
set respStatusCode [CkRest_get_ResponseStatusCode $rest]
puts "response status code = $respStatusCode"
if {$respStatusCode >= 400} then {
puts "Response Status Code = $respStatusCode"
puts "Response Header:"
puts [CkRest_responseHeader $rest]
puts "Response Body:"
puts [CkStringBuilder_getAsString $sbResponseBody]
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkBinData $bdJpg
delete_CkStringBuilder $sbJpg
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
exit
}
set jResp [new_CkJsonObject]
CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0
puts [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
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "FaceDetails"]
while {$i < $count_i} {
CkJsonObject_put_I $jResp $i
set AgeRangeHigh [CkJsonObject_IntOf $jResp "FaceDetails[i].AgeRange.High"]
set AgeRangeLow [CkJsonObject_IntOf $jResp "FaceDetails[i].AgeRange.Low"]
set BeardConfidence [CkJsonObject_stringOf $jResp "FaceDetails[i].Beard.Confidence"]
set BeardValue [CkJsonObject_BoolOf $jResp "FaceDetails[i].Beard.Value"]
set BoundingBoxHeight [CkJsonObject_stringOf $jResp "FaceDetails[i].BoundingBox.Height"]
set BoundingBoxLeft [CkJsonObject_stringOf $jResp "FaceDetails[i].BoundingBox.Left"]
set BoundingBoxTop [CkJsonObject_stringOf $jResp "FaceDetails[i].BoundingBox.Top"]
set BoundingBoxWidth [CkJsonObject_stringOf $jResp "FaceDetails[i].BoundingBox.Width"]
set Confidence [CkJsonObject_stringOf $jResp "FaceDetails[i].Confidence"]
set EyeglassesConfidence [CkJsonObject_stringOf $jResp "FaceDetails[i].Eyeglasses.Confidence"]
set EyeglassesValue [CkJsonObject_BoolOf $jResp "FaceDetails[i].Eyeglasses.Value"]
set EyesOpenConfidence [CkJsonObject_stringOf $jResp "FaceDetails[i].EyesOpen.Confidence"]
set EyesOpenValue [CkJsonObject_BoolOf $jResp "FaceDetails[i].EyesOpen.Value"]
set GenderConfidence [CkJsonObject_stringOf $jResp "FaceDetails[i].Gender.Confidence"]
set GenderValue [CkJsonObject_stringOf $jResp "FaceDetails[i].Gender.Value"]
set MouthOpenConfidence [CkJsonObject_stringOf $jResp "FaceDetails[i].MouthOpen.Confidence"]
set MouthOpenValue [CkJsonObject_BoolOf $jResp "FaceDetails[i].MouthOpen.Value"]
set MustacheConfidence [CkJsonObject_stringOf $jResp "FaceDetails[i].Mustache.Confidence"]
set MustacheValue [CkJsonObject_BoolOf $jResp "FaceDetails[i].Mustache.Value"]
set PosePitch [CkJsonObject_stringOf $jResp "FaceDetails[i].Pose.Pitch"]
set PoseRoll [CkJsonObject_stringOf $jResp "FaceDetails[i].Pose.Roll"]
set PoseYaw [CkJsonObject_stringOf $jResp "FaceDetails[i].Pose.Yaw"]
set QualityBrightness [CkJsonObject_stringOf $jResp "FaceDetails[i].Quality.Brightness"]
set QualitySharpness [CkJsonObject_stringOf $jResp "FaceDetails[i].Quality.Sharpness"]
set SmileConfidence [CkJsonObject_stringOf $jResp "FaceDetails[i].Smile.Confidence"]
set SmileValue [CkJsonObject_BoolOf $jResp "FaceDetails[i].Smile.Value"]
set SunglassesConfidence [CkJsonObject_stringOf $jResp "FaceDetails[i].Sunglasses.Confidence"]
set SunglassesValue [CkJsonObject_BoolOf $jResp "FaceDetails[i].Sunglasses.Value"]
set j 0
set count_j [CkJsonObject_SizeOfArray $jResp "FaceDetails[i].Emotions"]
while {$j < $count_j} {
CkJsonObject_put_J $jResp $j
set Confidence [CkJsonObject_stringOf $jResp "FaceDetails[i].Emotions[j].Confidence"]
set v_Type [CkJsonObject_stringOf $jResp "FaceDetails[i].Emotions[j].Type"]
set j [expr $j + 1]
}
set j 0
set count_j [CkJsonObject_SizeOfArray $jResp "FaceDetails[i].Landmarks"]
while {$j < $count_j} {
CkJsonObject_put_J $jResp $j
set v_Type [CkJsonObject_stringOf $jResp "FaceDetails[i].Landmarks[j].Type"]
set X [CkJsonObject_stringOf $jResp "FaceDetails[i].Landmarks[j].X"]
set Y [CkJsonObject_stringOf $jResp "FaceDetails[i].Landmarks[j].Y"]
set j [expr $j + 1]
}
set i [expr $i + 1]
}
delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkBinData $bdJpg
delete_CkStringBuilder $sbJpg
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp