Public Sub PrepareSurfaceForVideo (MyTaskIndex As Int, Dir As String, FileName As String) As ResumableSub
If MyTaskIndex <> TaskIndex Then Return False
CloseSession
Wait For (CreateSurface) Complete (Result As Boolean)
If MyTaskIndex <> TaskIndex Then Return False
File.Delete(Dir, FileName)
MediaRecorder = Camera.CreateMediaRecorder(PreviewSize, Dir, FileName)
MediaRecorder.RunMethod("setOrientationHint", Array(GetHintOrientation))
Camera.StartSession(tv, PreviewSize, CaptureSize, 0, 0, True) 'ToDo: java.lang.IllegalArgumentException: surfaceTexture must not be null
Wait For Camera_SessionConfigured (Success As Boolean)
If MyTaskIndex <> TaskIndex Then Return False
Return Success
End Sub