B4X:
Dim REQUEST_CODE = 99
Dim i As Intent
i.Initialize("", "")
i.SetComponent("com.scanlibrary/.ScanActivity")
i.PutExtra("OPEN_INTENT_PREFERENCE", 4) 'OPEN_CAMERA = 4 or OPEN_MEDIA = 5
Dim ActivityForResult As StartActivityForResult
ActivityForResult.Initialize("Ion")
ActivityForResult.Start(i,REQUEST_CODE)
* Required library is there and declared in #AdditionalJar
*Necessary permissions were provided