Sub Cam_Ready (Success As Boolean)
Try
If Success Then
cam.StartPreview
cam.TakePicture
Log("take picture")
End If
Catch
CallSub("runapp","send")
End Try
End Sub
Sub Cam_PictureTaken (Data() As Byte)
Dim out As OutputStream
out = File.OpenOutput(runapp.picdir, runapp.picfile, False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
cam.Release
CallSub("runapp","send")
CallSub(Main,"mainend")
' Log("cam closed")
Activity.Finish
End Sub