Dim Data As List
Data.Initialize
Dim map1,requests,image,features As Map
map1.Initialize
requests.Initialize
image.Initialize
features.Initialize
features.Put("type", "TEXT_DETECTION")
features.Put("maxResults", 100)
image.Put("content",base64.EncodeFromImage(File.DirRootExternal,E))
requests.Put("image",image)
requests.Put("features",Array As Map(features))
map1.Put("requests",Array As Map(requests))
Data.Add(map1)
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize2(Data)
Dim job As HttpJob
job.Initialize("Google",Me)
job.PostBytes("https://vision.googleapis.com/v1/images:annotate?key=x", _
JSONGenerator.ToString.Replace("[","").Replace("]","").GetBytes("UTF8"))
job.GetRequest.SetHeader("Content-Type", "application/json")
job.GetRequest.SetContentType("application/json")
job.GetRequest.Timeout=60000