Sub Camera1_PictureTaken (Data() As Byte)
camera1.StartPreview
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "abc123.jpg", False)
out.WriteBytes(data, 0, data.Length)
out.Close
'ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, "1.jpg"), True)
takepic_button.Enabled = True
''''''''''''''''''''''''''''''''''''''''''''''''''''
'Add files
Dim files As List
files.Initialize
Dim FD As FileData
fd.Initialize
fd.Dir = File.DirRootExternal
fd.FileName = "abc123.jpg"
fd.KeyName = "upfile"
fd.ContentType = "image/jpeg"
files.Add(fd)
'Add name / values pairs (parameters)
Dim NV As Map
NV.Initialize
NV.Put("note1", "abc")
NV.Put("note2", "def")
Dim req As HttpRequest
req = MultipartPost.CreatePostRequest(".............postimage.php", NV, files)
hc.Execute(req, 10)
''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub