|
(PureBasic) 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
IncludeFile "CkBinData.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkAuthAws.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkRest.pb"
Procedure ChilkatExample()
rest.i = CkRest::ckCreate()
If rest.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success.i
authAws.i = CkAuthAws::ckCreate()
If authAws.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkAuthAws::setCkAccessKey(authAws, "AWS_ACCESS_KEY")
CkAuthAws::setCkSecretKey(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::setCkRegion(authAws, "us-west-2")
CkAuthAws::setCkServiceName(authAws, "rekognition")
; SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest::ckSetAuthAws(rest,authAws)
; URL: https://rekognition.us-west-2.amazonaws.com/
bTls.i = 1
port.i = 443
bAutoReconnect.i = 1
; Don't forget to change the region domain (us-west-2.amazonaws.com) to your particular region.
success = CkRest::ckConnect(rest,"rekognition.us-west-2.amazonaws.com",port,bTls,bAutoReconnect)
If success <> 1
Debug "ConnectFailReason: " + Str(CkRest::ckConnectFailReason(rest))
Debug CkRest::ckLastErrorText(rest)
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
ProcedureReturn
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.
bdJpg.i = CkBinData::ckCreate()
If bdJpg.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkBinData::ckLoadFile(bdJpg,"qa_data/jpg/monday_keep_smiling.jpg")
If success <> 1
Debug "Failed to load the input JPG file."
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
CkBinData::ckDispose(bdJpg)
ProcedureReturn
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.
sbJpg.i = CkStringBuilder::ckCreate()
If sbJpg.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkBinData::ckGetEncodedSb(bdJpg,"base64",sbJpg)
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckUpdateSb(json,"Image.Bytes",sbJpg)
CkRest::ckAddHeader(rest,"Content-Type","application/x-amz-json-1.1")
CkRest::ckAddHeader(rest,"X-Amz-Target","RekognitionService.DetectText")
sbRequestBody.i = CkStringBuilder::ckCreate()
If sbRequestBody.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckEmitSb(json,sbRequestBody)
sbResponseBody.i = CkStringBuilder::ckCreate()
If sbResponseBody.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkRest::ckFullRequestSb(rest,"POST","/",sbRequestBody,sbResponseBody)
If success <> 1
Debug CkRest::ckLastErrorText(rest)
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
CkBinData::ckDispose(bdJpg)
CkStringBuilder::ckDispose(sbJpg)
CkJsonObject::ckDispose(json)
CkStringBuilder::ckDispose(sbRequestBody)
CkStringBuilder::ckDispose(sbResponseBody)
ProcedureReturn
EndIf
respStatusCode.i = CkRest::ckResponseStatusCode(rest)
Debug "response status code = " + Str(respStatusCode)
If respStatusCode >= 400
Debug "Response Status Code = " + Str(respStatusCode)
Debug "Response Header:"
Debug CkRest::ckResponseHeader(rest)
Debug "Response Body:"
Debug CkStringBuilder::ckGetAsString(sbResponseBody)
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
CkBinData::ckDispose(bdJpg)
CkStringBuilder::ckDispose(sbJpg)
CkJsonObject::ckDispose(json)
CkStringBuilder::ckDispose(sbRequestBody)
CkStringBuilder::ckDispose(sbResponseBody)
ProcedureReturn
EndIf
jResp.i = CkJsonObject::ckCreate()
If jResp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckLoadSb(jResp,sbResponseBody)
CkJsonObject::setCkEmitCompact(jResp, 0)
Debug CkJsonObject::ckEmit(jResp)
; 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
Confidence.s
DetectedText.s
GeometryBoundingBoxHeight.s
GeometryBoundingBoxLeft.s
GeometryBoundingBoxTop.s
GeometryBoundingBoxWidth.s
Id.i
v_Type.s
ParentId.i
j.i
count_j.i
X.s
Y.s
TextModelVersion.s = CkJsonObject::ckStringOf(jResp,"TextModelVersion")
i.i = 0
count_i.i = CkJsonObject::ckSizeOfArray(jResp,"TextDetections")
While i < count_i
CkJsonObject::setCkI(jResp, i)
Confidence = CkJsonObject::ckStringOf(jResp,"TextDetections[i].Confidence")
DetectedText = CkJsonObject::ckStringOf(jResp,"TextDetections[i].DetectedText")
GeometryBoundingBoxHeight = CkJsonObject::ckStringOf(jResp,"TextDetections[i].Geometry.BoundingBox.Height")
GeometryBoundingBoxLeft = CkJsonObject::ckStringOf(jResp,"TextDetections[i].Geometry.BoundingBox.Left")
GeometryBoundingBoxTop = CkJsonObject::ckStringOf(jResp,"TextDetections[i].Geometry.BoundingBox.Top")
GeometryBoundingBoxWidth = CkJsonObject::ckStringOf(jResp,"TextDetections[i].Geometry.BoundingBox.Width")
Id = CkJsonObject::ckIntOf(jResp,"TextDetections[i].Id")
v_Type = CkJsonObject::ckStringOf(jResp,"TextDetections[i].Type")
ParentId = CkJsonObject::ckIntOf(jResp,"TextDetections[i].ParentId")
j = 0
count_j = CkJsonObject::ckSizeOfArray(jResp,"TextDetections[i].Geometry.Polygon")
While j < count_j
CkJsonObject::setCkJ(jResp, j)
X = CkJsonObject::ckStringOf(jResp,"TextDetections[i].Geometry.Polygon[j].X")
Y = CkJsonObject::ckStringOf(jResp,"TextDetections[i].Geometry.Polygon[j].Y")
j = j + 1
Wend
i = i + 1
Wend
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
CkBinData::ckDispose(bdJpg)
CkStringBuilder::ckDispose(sbJpg)
CkJsonObject::ckDispose(json)
CkStringBuilder::ckDispose(sbRequestBody)
CkStringBuilder::ckDispose(sbResponseBody)
CkJsonObject::ckDispose(jResp)
ProcedureReturn
EndProcedure
|