Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Amazon Rekognition - Detect Text in an Image
See more Amazon Rekognition Examples
Detects text in the input image and converts it into machine-readable text. This example passes theimage as base64-encoded image bytes.Chilkat Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.AuthAws,
Chilkat.Rest,
Chilkat.BinData,
Chilkat.StringBuilder,
Chilkat.JsonObject;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
rest: TRest;
authAws: TAuthAws;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
bdJpg: TBinData;
sbJpg: TStringBuilder;
json: TJsonObject;
sbRequestBody: TStringBuilder;
sbResponseBody: TStringBuilder;
respStatusCode: Integer;
jResp: TJsonObject;
Confidence: string;
DetectedText: string;
GeometryBoundingBoxHeight: string;
GeometryBoundingBoxLeft: string;
GeometryBoundingBoxTop: string;
GeometryBoundingBoxWidth: string;
Id: Integer;
v_Type: string;
ParentId: Integer;
j: Integer;
count_j: Integer;
X: string;
Y: string;
TextModelVersion: string;
i: Integer;
count_i: Integer;
begin
success := False;
rest := TRest.Create;
authAws := TAuthAws.Create;
authAws.AccessKey := 'AWS_ACCESS_KEY';
authAws.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.)
authAws.Region := 'us-west-2';
authAws.ServiceName := 'rekognition';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(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 := rest.Connect('rekognition.us-west-2.amazonaws.com',port,bTls,bAutoReconnect);
if (success <> True) then
begin
WriteLn('ConnectFailReason: ' + rest.ConnectFailReason);
WriteLn(rest.LastErrorText);
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 := TBinData.Create;
success := bdJpg.LoadFile('qa_data/jpg/monday_keep_smiling.jpg');
if (success <> True) then
begin
WriteLn('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"
// }
// }
// Here is the image we used for testing:
// (image:https://example-code.com/images/monday_keep_smiling.jpg/endImage)
// 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 := TStringBuilder.Create;
bdJpg.GetEncodedSb('base64',sbJpg);
json := TJsonObject.Create;
json.UpdateSb('Image.Bytes',sbJpg);
rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','RekognitionService.DetectText');
sbRequestBody := TStringBuilder.Create;
json.EmitSb(sbRequestBody);
sbResponseBody := TStringBuilder.Create;
success := rest.FullRequestSb('POST','/',sbRequestBody,sbResponseBody);
if (success <> True) then
begin
WriteLn(rest.LastErrorText);
Exit;
end;
respStatusCode := rest.ResponseStatusCode;
WriteLn('response status code = ' + respStatusCode);
if (respStatusCode >= 400) then
begin
WriteLn('Response Status Code = ' + respStatusCode);
WriteLn('Response Header:');
WriteLn(rest.ResponseHeader);
WriteLn('Response Body:');
WriteLn(sbResponseBody.GetAsString());
Exit;
end;
jResp := TJsonObject.Create;
jResp.LoadSb(sbResponseBody);
jResp.EmitCompact := False;
WriteLn(jResp.Emit());
// 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
TextModelVersion := jResp.StringOf('TextModelVersion');
i := 0;
count_i := jResp.SizeOfArray('TextDetections');
while i < count_i do
begin
jResp.I := i;
Confidence := jResp.StringOf('TextDetections[i].Confidence');
DetectedText := jResp.StringOf('TextDetections[i].DetectedText');
GeometryBoundingBoxHeight := jResp.StringOf('TextDetections[i].Geometry.BoundingBox.Height');
GeometryBoundingBoxLeft := jResp.StringOf('TextDetections[i].Geometry.BoundingBox.Left');
GeometryBoundingBoxTop := jResp.StringOf('TextDetections[i].Geometry.BoundingBox.Top');
GeometryBoundingBoxWidth := jResp.StringOf('TextDetections[i].Geometry.BoundingBox.Width');
Id := jResp.IntOf('TextDetections[i].Id');
v_Type := jResp.StringOf('TextDetections[i].Type');
ParentId := jResp.IntOf('TextDetections[i].ParentId');
j := 0;
count_j := jResp.SizeOfArray('TextDetections[i].Geometry.Polygon');
while j < count_j do
begin
jResp.J := j;
X := jResp.StringOf('TextDetections[i].Geometry.Polygon[j].X');
Y := jResp.StringOf('TextDetections[i].Geometry.Polygon[j].Y');
j := j + 1;
end;
i := i + 1;
end;
rest.Free;
authAws.Free;
bdJpg.Free;
sbJpg.Free;
json.Free;
sbRequestBody.Free;
sbResponseBody.Free;
jResp.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.