(Delphi DLL) Google Vision Web Detection

See more Google Vision Examples

Demonstrates how to use the Cloud Cloud Vision API for the Web Detection method.

The Google Cloud Vision "web detection" API call performs web detection analysis on an image. When you send an image to the Vision API with the "web detection" feature enabled, the API returns information about web entities (objects, logos, landmarks, etc.) that are visually similar to objects in the image and are found on the web.

It includes:

• Entity Recognition: The API identifies entities (objects, landmarks, logos, etc.) present in the image and provides information about them. This can include labels, descriptions, and additional metadata.
• Web Pages: For recognized entities, the API retrieves information about web pages that contain visually similar images or information related to the entities found in the image.
• Matching Images: The API may return URLs of images found on the web that are visually similar to the objects in the image being analyzed.
• Best Guess Label: The API may also provide a "best guess" label or description for the image based on its analysis of the web entities.
• Related Web Entities: Additionally, the API may return related web entities or concepts that are semantically related to the recognized objects.

Overall, the web detection feature of the Google Cloud Vision API allows you to perform reverse image search-like functionality, identifying objects in an image and providing information about similar objects found on the web. This can be useful for tasks such as image classification, content moderation, and visual search applications.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpResponse, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
json: HCkJsonObject;
resp: HCkHttpResponse;
jResp: HCkJsonObject;
respStatusCode: Integer;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := CkHttp_Create();

// The following JSON is sent in the request body.

// {
//   "requests": [
//     {
//       "image": {
//         "source": {
//           "imageUri": "gs://visionapi-demo/ali.jpg"
//         }
//       },
//       "features": [
//         {
//           "maxResults": 10,
//           "type": "WEB_DETECTION"
//         }
//       ]
//     }
//   ]
// }

// The following code creates the JSON request body.
json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'requests[0].image.source.imageUri','gs://visionapi-demo/ali.jpg');
CkJsonObject_UpdateInt(json,'requests[0].features[0].maxResults',10);
CkJsonObject_UpdateString(json,'requests[0].features[0].type','WEB_DETECTION');

CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

resp := CkHttp_PostJson3(http,'https://vision.googleapis.com/v1/images:annotate?key=your-api-key-here','application/json',json);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

jResp := CkJsonObject_Create();
CkHttpResponse_GetBodyJson(resp,jResp);
CkJsonObject_putEmitCompact(jResp,False);

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkJsonObject__emit(jResp));

respStatusCode := CkHttpResponse_getStatusCode(resp);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttpResponse__header(resp));
    Memo1.Lines.Add('Failed.');
    CkHttpResponse_Dispose(resp);
    Exit;
  end;
CkHttpResponse_Dispose(resp);

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);
CkJsonObject_Dispose(jResp);

end;