ub Camera1_PictureTaken (Data() As Byte)
Dim filename As String = "1.jpg"
Dim dir As String = File.DirInternalCache
camEx.SavePictureToFile(Data, dir, filename)
camEx.StartPreview 'restart preview
'send a broadcast intent to the media scanner to force it to scan the saved file.
Dim Phone As Phone
Dim i As Intent
i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
"file://" & File.Combine(dir, filename))
Phone.SendBroadcastIntent(i)
'ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename), True)
EdtOnyx.Text = ""
onyx.Initialize("Onyx")
onyx.fromURL("http://YOUR_Address:5555/1.jpg")
onyx.TagsandProbability
End Sub