Unfortunately I can not save the captured photo with camera. I can't initialize SavePictureToFile sub. I wrote SavePictureToFile sub but I get syntax error (missing parameter) Which parameter should I write for SavePictureToFile?
B4X:
Sub Cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
If Success Then
If Image.IsInitialized Then
vv.View.Visible = False
ImageView1.Bitmap = Image
SavePictureToFile ?????
Else
vv.View.Visible = True
vv.LoadVideo(VideoPath, "")
End If
End If
End Sub
Sub SavePictureToFile(Data() As Byte, Dir As String, Filename As String, MarkText As String)
Dim out As OutputStream
out = File.OpenOutput(File.DirDocuments&"/DirPhoto/", "img.jpg", False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
Dim Job3 As HttpJob
Job3.Initialize("Job3", Me)
Job3.PostFile("http://www.xxx/img.php?op=img&imei="&TextFieldimei.Text, File.DirDocuments&"/DirPhoto/", "img.jpg")
End Sub