|
|
(AutoIt) Amazon Rekognition - Detect Text in an Image
Detects text in the input image and converts it into machine-readable text. This example passes theimage as base64-encoded image bytes. For more information, see https://docs.aws.amazon.com/rekognition/latest/dg/API_DetectText.html
$oRest = ObjCreate("Chilkat.Rest")
Local $bSuccess
$oAuthAws = ObjCreate("Chilkat.AuthAws")
$oAuthAws.AccessKey = "AWS_ACCESS_KEY"
$oAuthAws.SecretKey = "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.)
$oAuthAws.Region = "us-west-2"
$oAuthAws.ServiceName = "rekognition"
; SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
$oRest.SetAuthAws($oAuthAws)
; URL: https://rekognition.us-west-2.amazonaws.com/
Local $bTls = True
Local $iPort = 443
Local $bAutoReconnect = True
; Don't forget to change the region domain (us-west-2.amazonaws.com) to your particular region.
$bSuccess = $oRest.Connect("rekognition.us-west-2.amazonaws.com",$iPort,$bTls,$bAutoReconnect)
If ($bSuccess <> True) Then
ConsoleWrite("ConnectFailReason: " & $oRest.ConnectFailReason & @CRLF)
ConsoleWrite($oRest.LastErrorText & @CRLF)
Exit
EndIf
; 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.
$oBdJpg = ObjCreate("Chilkat.BinData")
$bSuccess = $oBdJpg.LoadFile("qa_data/jpg/monday_keep_smiling.jpg")
If ($bSuccess <> True) Then
ConsoleWrite("Failed to load the input JPG file." & @CRLF)
Exit
EndIf
; We wish to send the following JSON in the body of our HTTP request:
; {
; "Image": {
; "Bytes": "base64_image_bytes"
; }
; }
; 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.
$oSbJpg = ObjCreate("Chilkat.StringBuilder")
$oBdJpg.GetEncodedSb("base64",$oSbJpg)
$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateSb("Image.Bytes",$oSbJpg)
$oRest.AddHeader("Content-Type","application/x-amz-json-1.1")
$oRest.AddHeader("X-Amz-Target","RekognitionService.DetectText")
$oSbRequestBody = ObjCreate("Chilkat.StringBuilder")
$oJson.EmitSb($oSbRequestBody)
$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oRest.FullRequestSb("POST","/",$oSbRequestBody,$oSbResponseBody)
If ($bSuccess <> True) Then
ConsoleWrite($oRest.LastErrorText & @CRLF)
Exit
EndIf
Local $iRespStatusCode = $oRest.ResponseStatusCode
ConsoleWrite("response status code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
ConsoleWrite("Response Header:" & @CRLF)
ConsoleWrite($oRest.ResponseHeader & @CRLF)
ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oSbResponseBody.GetAsString() & @CRLF)
Exit
EndIf
$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False
ConsoleWrite($oJResp.Emit() & @CRLF)
; Sample JSON response:
; (Sample code for parsing the JSON response is shown below)
; {
; "TextDetections": [
; {
; "Confidence": 95.99308776855469,
; "DetectedText": "( MONDAY IT'S",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.6399821043014526,
; "Left": 0.219133198261261,
; "Top": 0.08677978068590164,
; "Width": 0.7433173656463623
; },
; "Polygon": [
; {
; "X": 0.219133198261261,
; "Y": 0.3588336706161499
; },
; {
; "X": 0.8984103798866272,
; "Y": 0.08677978068590164
; },
; {
; "X": 0.9624505639076233,
; "Y": 0.4547080099582672
; },
; {
; "X": 0.2831733524799347,
; "Y": 0.7267619371414185
; }
; ]
; },
; "Id": 0,
; "Type": "LINE"
; },
; {
; "Confidence": 99.70352172851562,
; "DetectedText": "but keep",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.09703556448221207,
; "Left": 0.6335319876670837,
; "Top": 0.5153074264526367,
; "Width": 0.21070890128612518
; },
; "Polygon": [
; {
; "X": 0.6355597376823425,
; "Y": 0.5153074264526367
; },
; {
; "X": 0.8442409038543701,
; "Y": 0.5266726613044739
; },
; {
; "X": 0.8422132134437561,
; "Y": 0.6123430132865906
; },
; {
; "X": 0.6335319876670837,
; "Y": 0.6009777784347534
; }
; ]
; },
; "Id": 1,
; "Type": "LINE"
; },
; {
; "Confidence": 99.92333984375,
; "DetectedText": "Smiling",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.31578224897384644,
; "Left": 0.5070608258247375,
; "Top": 0.6086956262588501,
; "Width": 0.4795433282852173
; },
; "Polygon": [
; {
; "X": 0.5070608258247375,
; "Y": 0.6298336386680603
; },
; {
; "X": 0.9808917045593262,
; "Y": 0.6086956262588501
; },
; {
; "X": 0.9866041541099548,
; "Y": 0.9033399224281311
; },
; {
; "X": 0.5127732157707214,
; "Y": 0.9244779348373413
; }
; ]
; },
; "Id": 2,
; "Type": "LINE"
; },
; {
; "Confidence": 99.77294158935547,
; "DetectedText": "IT'S",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.09903381764888763,
; "Left": 0.668789803981781,
; "Top": 0.17874395847320557,
; "Width": 0.1449044644832611
; },
; "Polygon": [
; {
; "X": 0.668789803981781,
; "Y": 0.17874395847320557
; },
; {
; "X": 0.8136942386627197,
; "Y": 0.17874395847320557
; },
; {
; "X": 0.8136942386627197,
; "Y": 0.2777777910232544
; },
; {
; "X": 0.668789803981781,
; "Y": 0.2777777910232544
; }
; ]
; },
; "Id": 5,
; "ParentId": 0,
; "Type": "WORD"
; },
; {
; "Confidence": 98.44307708740234,
; "DetectedText": "MONDAY",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.11112251877784729,
; "Left": 0.5541401505470276,
; "Top": 0.3526569902896881,
; "Width": 0.39013487100601196
; },
; "Polygon": [
; {
; "X": 0.5541401505470276,
; "Y": 0.3526569902896881
; },
; {
; "X": 0.9442675113677979,
; "Y": 0.3502415418624878
; },
; {
; "X": 0.9458598494529724,
; "Y": 0.4613526463508606
; },
; {
; "X": 0.5541401505470276,
; "Y": 0.4637681245803833
; }
; ]
; },
; "Id": 4,
; "ParentId": 0,
; "Type": "WORD"
; },
; {
; "Confidence": 99.61898803710938,
; "DetectedText": "but",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.06521739065647125,
; "Left": 0.6353503465652466,
; "Top": 0.5241546034812927,
; "Width": 0.0843949019908905
; },
; "Polygon": [
; {
; "X": 0.6353503465652466,
; "Y": 0.5241546034812927
; },
; {
; "X": 0.7197452187538147,
; "Y": 0.5241546034812927
; },
; {
; "X": 0.7197452187538147,
; "Y": 0.5893719792366028
; },
; {
; "X": 0.6353503465652466,
; "Y": 0.5893719792366028
; }
; ]
; },
; "Id": 6,
; "ParentId": 1,
; "Type": "WORD"
; },
; {
; "Confidence": 99.78804779052734,
; "DetectedText": "keep",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.07971014827489853,
; "Left": 0.7308917045593262,
; "Top": 0.5265700221061707,
; "Width": 0.1114649698138237
; },
; "Polygon": [
; {
; "X": 0.7308917045593262,
; "Y": 0.5265700221061707
; },
; {
; "X": 0.8423566818237305,
; "Y": 0.5265700221061707
; },
; {
; "X": 0.8423566818237305,
; "Y": 0.6062802076339722
; },
; {
; "X": 0.7308917045593262,
; "Y": 0.6062802076339722
; }
; ]
; },
; "Id": 7,
; "ParentId": 1,
; "Type": "WORD"
; },
; {
; "Confidence": 89.76324462890625,
; "DetectedText": "(",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.16401274502277374,
; "Left": 0.27229300141334534,
; "Top": 0.6642512083053589,
; "Width": 0.2850286066532135
; },
; "Polygon": [
; {
; "X": 0.27229300141334534,
; "Y": 0.6642512083053589
; },
; {
; "X": 0.2707006335258484,
; "Y": 0.37922704219818115
; },
; {
; "X": 0.43471336364746094,
; "Y": 0.37922704219818115
; },
; {
; "X": 0.4363057315349579,
; "Y": 0.6642512083053589
; }
; ]
; },
; "Id": 3,
; "ParentId": 0,
; "Type": "WORD"
; },
; {
; "Confidence": 99.92333984375,
; "DetectedText": "Smiling",
; "Geometry": {
; "BoundingBox": {
; "Height": 0.294724702835083,
; "Left": 0.5079618096351624,
; "Top": 0.6304348111152649,
; "Width": 0.4734293222427368
; },
; "Polygon": [
; {
; "X": 0.5079618096351624,
; "Y": 0.6304348111152649
; },
; {
; "X": 0.9808917045593262,
; "Y": 0.6086956262588501
; },
; {
; "X": 0.9856687784194946,
; "Y": 0.9033816456794739
; },
; {
; "X": 0.512738823890686,
; "Y": 0.9227052927017212
; }
; ]
; },
; "Id": 8,
; "ParentId": 2,
; "Type": "WORD"
; }
; ],
; "TextModelVersion": "3.0"
; }
;
;
; Sample code for parsing the JSON response...
; Use the following online tool to generate parsing code from sample JSON:
; Generate Parsing Code from JSON
Local $sConfidence
Local $sDetectedText
Local $sGeometryBoundingBoxHeight
Local $sGeometryBoundingBoxLeft
Local $sGeometryBoundingBoxTop
Local $sGeometryBoundingBoxWidth
Local $iId
Local $sV_Type
Local $iParentId
Local $iJ
Local $iCount_j
Local $sX
Local $sY
Local $sTextModelVersion = $oJResp.StringOf("TextModelVersion")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("TextDetections")
While $i < $iCount_i
$oJResp.I = $i
$sConfidence = $oJResp.StringOf("TextDetections[i].Confidence")
$sDetectedText = $oJResp.StringOf("TextDetections[i].DetectedText")
$sGeometryBoundingBoxHeight = $oJResp.StringOf("TextDetections[i].Geometry.BoundingBox.Height")
$sGeometryBoundingBoxLeft = $oJResp.StringOf("TextDetections[i].Geometry.BoundingBox.Left")
$sGeometryBoundingBoxTop = $oJResp.StringOf("TextDetections[i].Geometry.BoundingBox.Top")
$sGeometryBoundingBoxWidth = $oJResp.StringOf("TextDetections[i].Geometry.BoundingBox.Width")
$iId = $oJResp.IntOf("TextDetections[i].Id")
$sV_Type = $oJResp.StringOf("TextDetections[i].Type")
$iParentId = $oJResp.IntOf("TextDetections[i].ParentId")
$iJ = 0
$iCount_j = $oJResp.SizeOfArray("TextDetections[i].Geometry.Polygon")
While $iJ < $iCount_j
$oJResp.J = $iJ
$sX = $oJResp.StringOf("TextDetections[i].Geometry.Polygon[j].X")
$sY = $oJResp.StringOf("TextDetections[i].Geometry.Polygon[j].Y")
$iJ = $iJ + 1
Wend
$i = $i + 1
Wend
|
