Sub Camera1_Preview (PreviewPic() As Byte)
If BAB.length<15200*100 Then 'BAB is SLByteArrayBuffer
BAB.AppendByte(PreviewPic,0,PreviewPic.Length)
Else
BytesToFile(File.DirInternal,"1.avi",BAB.ToByteArray)
VP.Prepare(VP.CreateFileSource(File.DirInternal,"1.avi"))
Exo.Player=VP
VP.Play
BAB.Clear
End If
End Sub
Sub BytesToFile (Dir As String, FileName As String, Data() As Byte)
Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
End Sub