#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim ImageChooser As ContentChooser
Dim nb As Notification
End Sub
Sub Service_Create
nb.Initialize
nb.Icon=""
nb.OnGoingEvent = True
nb.DefaultVibrate=False
nb.Notify(1)
ImageChooser.Initialize("imgChooser")
Service.StartForeground(1, nb)
End Sub
Sub Service_Start (StartingIntent As Intent)
ImageChooser.show("image/*", "Choose image")
End Sub
Sub Service_Destroy
End Sub
Sub imgChooser_Result(Success As Boolean, Dir As String, FileName As String)
Dim FileNM As String
Dim j As HttpJob
Dim out As OutputStream
If Success Then
ToastMessageShow("Foto geupload",False)
End If
End Sub