Sub Activity_OnResult(ResultCode As Int, ReturnIntent As Intent)
Log(ResultCode & " " & ReturnIntent.ExtrasToString)
setImageRelation(ReturnIntent.GetExtra("de.dirkfarin.imagemeter.image_id"), ActualPicture)
End Sub
Sub ImageMeterSetImage(Dateiname As String)
Dim In As Intent
In.Initialize(In.ACTION_SEND,"")
In.SetComponent("de.dirkfarin.imagemeterpro/.lib.ActivityLoader")
In.setType("image/jpeg")
In.PutExtra("android.intent.extra.STREAM",CreateUri("file://" & File.Combine(File.DirDefaultExternal, Dateiname)))
In.PutExtra("de.dirkfarin.imagemeter.folder_name","Projekte MDE")
In.PutExtra("de.dirkfarin.imagemeter.image_name",Dateiname)
In.PutExtra("de.dirkfarin.imagemeter.quiet_import",True)
AU.startActivitywithResult(In)
End Sub