Android Question cameraEx : java exception : method called after relase()

Sub PE_ScreenOff (Intent As Intent)
    'If CheckLock Then ' si le tel est verouillé ...
    '    If DateTime.Now - mydate < 2000 Then
            Vibrate.Vibrate(200)
            ' <============ add the camera take picture here
            CallSubDelayed(Main,"activity_resume")
            'CallSubDelayed(Main,"InitializeCamera")
            'CallSubDelayed(Main , "TakePicture")
           
    '    End If
    'End If
'    Log ("screen off")
    mydate = DateTime.Now
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")
    PE.Initialize("PE")
End Sub   

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim p As PhoneSms
Dim PE As PhoneEvents
    Dim phonepower As String
    Dim Button1 As Button
    Dim label1 As Label
    Dim Panel1 As Panel
   
    Private camEx As CameraExClass
   
End Sub
   
    Sub Process_Globals
  Dim Timer1 As Timer
  Timer1.Initialize("Timer1",1000)
  Private frontCamera As Boolean = False
  Dim camera_prete As Boolean = False
End Sub

Sub Activity_Resume
        'Activity.LoadLayout("1")               
    InitializeCamera
    'ToastMessageShow(camera_prete, False)
    Do While camera_prete = False

'Log(camera_prete)

DoEvents
Loop
ToastMessageShow(camera_prete, False)
    TakePicture
End Sub

Sub Button1_Click
  Timer1.Enabled=True
  StartService(test_service)
 
' p.Send("+33688941445","helloworld : " & DateTime.Now)
End Sub

Sub Timer1_Tick
  label1.Text=test_service.Counter
End Sub

Sub Activity_KeyPress (keycode As Int) As Boolean
'Return True to consume the event
   
Msgbox(keycode, "")
    Return True
 
End Sub

Sub PE_BatteryChanged(Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
If Plugged Then
    phonepower = " sur secteur"
    Else
    phonepower = " pas de secteur"
End If
Msgbox(phonepower,"")
'    p.Send("+33688941445","helloworld : " & phonepower)
End Sub

Private Sub InitializeCamera
    camEx.Initialize(Panel1, frontCamera, Me, "Camera1")
    frontCamera = camEx.Front
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    camEx.Release
    camera_prete = False
End Sub

Sub Camera1_Ready (Success As Boolean)
    If Success Then
        camEx.SetJpegQuality(90)
        camEx.CommitParameters
        camEx.StartPreview
        Log(camEx.GetPreviewSize)
        Log("camera ready")
        camera_prete = True
    Else
    Log("camera not ready")
        ToastMessageShow("Cannot open camera.", True)
    End If
End Sub

Sub TakePicture
    camEx.TakePicture
End Sub



Sub Camera1_PictureTaken (Data() As Byte)
    Dim filename As String = "1.jpg"
    Dim dir As String = File.DirRootExternal
   
    camEx.SavePictureToFile(Data, dir, filename)
    camEx.StartPreview 'restart preview
   
    'send a broadcast intent to the media scanner to force it to scan the saved file.
    Dim Phone As Phone
    Dim i As Intent
    i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
        "file://" & File.Combine(dir, filename))
    Phone.SendBroadcastIntent(i)
    ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(dir, filename), True)
End Sub



Sub Delay(nMilliSecond As Long)
Dim nBeginTime As Long
Dim nEndTime As Long
nEndTime = DateTime.Now + nMilliSecond
nBeginTime = DateTime.Now
Do While nBeginTime < nEndTime
nBeginTime = DateTime.Now
Log(nBeginTime)
If nEndTime < nBeginTime Then
Return
End If
DoEvents
Loop
End Sub

DoWhile camera_prete = False

'Log(camera_prete)

DoEvents

Loop

Do While ecranON == False 
            wakelock.KeepAlive(False) 'keep alive screen dimmed : switch ON the screen
            Log ("wake")
            DoEvents  ' <<<<<<< useless if i understand your previous comment ?
        Loop

Sub WakePhone
  wakelock.KeepAlive(False)
End Sub

Sub PE_ScreenOff
 CallSubDelayed(Me, "WakePhone")
End Sub

Sub TimerService_Tick
Vibrate.Vibrate(50)
StartActivity(Main)
CallSubDelayed(Main , "wake")
  TimerService.Enabled=False
End Sub

Sub PE_ScreenOff (Intent As Intent)
   
        If DateTime.Now - mydate < 2000 then
        Vibrate.Vibrate(20)
            ' <============ add the camera take picture here
            'CallSubDelayed(Main,"activity_resume")
            'CallSubDelayed(Main,"InitializeCamera")
              TimerService.Enabled=True
            'CallSubDelayed(Me , "wake")
        ' wakelock.ReleaseKeepAlive 'Releases the power lock and allows the device to go to sleep.
    End If

'    Log ("screen off")
    mydate = DateTime.Now
End Sub

Sub Service_Destroy
    WS.ReleaseKeepAlive
End Sub

Sub PE_ScreenOff (Intent As Intent)
    
        If DateTime.Now - mydate < 2000 Then
            WS.KeepAlive(True)
            If IsPaused(second) Then
                StartActivity("second")
            End If
            CallSub(second,"SetShowWhenLocked")
            WS.ReleaseKeepAlive
    End If

'    Log ("screen off")
    mydate = DateTime.Now
End Sub

Sub PE_ScreenON (Intent As Intent)
       'Log ("screen on")
       mydate = DateTime.Now
End Sub

Sub Activity_Resume
SetShowWhenLocked
    InitializeCamera
End Sub

Sub SetShowWhenLocked
  Dim r As Reflector
  r.Target = r.GetActivity
  r.Target = r.RunMethod("getWindow")
  r.RunMethod2("addFlags", 6815872, "java.lang.int")
End Sub

Sub PE_ScreenOff (Intent As Intent)
    If CheckLock Then ' si le tel est verouillé ...
        If DateTime.Now - mydate < 2000 Then
            'WS.KeepAlive(True)    <<<<<<<<<<<<<<<<<<< USELESS
            If IsPaused(second) Then
                StartActivity("second")
            End If
            CallSub(second,"SetShowWhenLocked")
            'WS.ReleaseKeepAlive  <<<<<<<<<<<<<<<<<< USELESS
        End If
      
    End If
'    Log ("screen off")
    mydate = DateTime.Now
End Sub

Sub SetShowWhenLocked
  Dim r As Reflector
  r.Target = r.GetActivity
  r.Target = r.RunMethod("getWindow")
'  r.RunMethod2("addFlags", 6815872, "java.lang.int") 'combination of: FLAG_TURN_SCREEN_ON, FLAG_DISMISS_KEYGUARD, FLAG_SHOW_WHEN_LOCKED and FLAG_KEEP_SCREEN_ON.
  r.RunMethod2("addFlags", 2621440, "java.lang.int") 'combination of: FLAG_TURN_SCREEN_ON,  FLAG_SHOW_WHEN_LOCKED .
End Sub