Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Google Vision Web DetectionSee more Google Vision ExamplesDemonstrates 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:
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.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http ' 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. Dim json As New Chilkat.JsonObject json.UpdateString("requests[0].image.source.imageUri","gs://visionapi-demo/ali.jpg") json.UpdateInt("requests[0].features[0].maxResults",10) json.UpdateString("requests[0].features[0].type","WEB_DETECTION") json.EmitCompact = False Debug.WriteLine(json.Emit()) Dim resp As Chilkat.HttpResponse = http.PostJson3("https://vision.googleapis.com/v1/images:annotate?key=your-api-key-here","application/json",json) If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim jResp As New Chilkat.JsonObject resp.GetBodyJson(jResp) jResp.EmitCompact = False Debug.WriteLine("Response Body:") Debug.WriteLine(jResp.Emit()) Dim respStatusCode As Integer = resp.StatusCode Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(resp.Header) Debug.WriteLine("Failed.") Exit Sub End If |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.