update widget not working

'Service module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   Dim hc As HttpClient
   Dim target As OutputStream
   Dim rv As RemoteViews
   Dim image1 As Bitmap
   Dim out As OutputStream      
End Sub
Sub Service_Create
   ' Configure the homescreen widget. We let it update every 2 hours here. This is
   ' normally not necessary but I want to be sure that the clock restarts if there
   ' is any problem.

   rv = ConfigureHomeWidget("widget", "rv", 120, "image du jour")
   hc.Initialize("hc")
   
End Sub

Sub Service_Start (StartingIntent As Intent)
   ' If a widget is removed from homescreen we don't need to do anything
   If StartingIntent.Action = "android.appwidget.action.APPWIDGET_DELETED" Then Return
   
   ' Handle the widget events (RequestUpdate and Disabled)
   If rv.HandleWidgetEvents(StartingIntent) = False Then
      ' If the action is not handled by HandleWidgetEvents() then we
      ' probably were called by StartService() or StartServiceAt().
      ' So just update the widget.

         rv_RequestUpdate
      
   End If
   
   ' We have to be sure that we do not start the service
   ' again if all widgets are removed from homescreen
   If StartingIntent.Action <> "android.appwidget.action.APPWIDGET_DISABLED" Then
      StartServiceAt("", TimeToNextMinute, False)
   End If
End Sub

Sub rv_RequestUpdate
   ' Just update the time on the widget
   code.CallServer

End Sub

Sub rv_Disabled
   ' If all widgets are removed from homescreen cancel the next schedule and
   ' stop the service
   CancelScheduledService("")
   StopService("")
End Sub

Sub Service_Destroy

End Sub


Sub ImageView1_Click
   rv.SetImage( "imageview1",image1)
   
   rv.UpdateWidget 
End Sub 


Sub TimeToNextMinute As Long
   Dim ret As Long

   DateTime.TimeFormat = "HH:mm:ss"

   ret=DateTime.TimeParse("10:00:00")
   Log(DateTime.Time(ret))
   
   ret = (ret + DateTime.TicksPerDay)
   
   Log(DateTime.Time(ret))
   Log(DateTime.date(ret))
      
   Return ret
End Sub

Sub HC_ResponseSuccess (Response As HttpResponse, TaskId As Int)
   Log("Success"&TaskId)

   Target = File.OpenOutput(File.DirInternalCache, "image.jpg", False)
   Response.GetAsynchronously("Response", Target, True, TaskId)

End Sub 

Sub HC_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
   Log("erreur")
   Log(reason)
   Log("ResponseError"&TaskId)

End Sub

Sub Response_StreamFinish (Success As Boolean, TaskId As Int)

      If Success = False Then
         ToastMessageShow("Error downloading file: " & LastException.Message, True)
         Log("StreamFinish erreur"&TaskId)
      Else
         Log("StreamFinish succes"&TaskId)
         
         Dim image As Bitmap
         If File.Exists(File.DirInternalCache, "image.jpg") Then
            image=LoadBitmap( File.DirInternalCache, "image.jpg")
            

            
            Dim canvas1 As Canvas
            
            
            Dim destrect As Rect
            Dim rapport As Float
            Dim largeur,hauteur As Int 
            
            If image.Height>image.Width Then
               rapport=image.Height/410dip
               hauteur=410dip
               largeur=image.Width/rapport
            Else
               rapport=image.Width/274dip
               largeur=274dip
               hauteur=(image.Height/rapport)
            End If 
               
            Log(largeur)
            Log(hauteur)
            
            image1.Initializemutable(largeur,hauteur)
            canvas1.Initialize2(image1)
            
            destrect.Initialize(0,0,largeur,hauteur)
            canvas1.DrawBitmap( image,Null,destrect)            
'            
            Log(image.Width)
            Log(image.Height)
            
'            out=File.OpenOutput( File.DirRootExternal,"image10.png",False)
'            Log( File.DirDefaultExternal)
'            canvas1.Bitmap.WriteToStream( out,100,"PNG")
'            out.close

            rv.SetImage( "imageview1",image1)
            rv.UpdateWidget                

         End If 
         
      End If
   
End Sub

'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

End Sub


Sub CallServer
   PostUrl = "http://www.b4x.com/android/images/logo2.png"
    Dim req As HttpRequest
    req.Initializeget( PostUrl)

    widget.hc.Execute(req, 0)

End Sub