Private Sub ion_Event (MethodName As String, Args() As Object) As Object
Dim resultCode As Int = Args(0)
Dim intent As Intent = Args(1)
Log(intent) ''(Intent) Intent { act=com.eureka.documentscanner.RETURN_DOCUMENT flg=0x1 (has extras) }
Try
If intent.HasExtra(EXTRA_PDF_FILE_STREAM) Then
Dim pdfUri As String = UriUtils.getParcableExtra(intent,EXTRA_PDF_FILE_STREAM)
Log(pdfUri) ''uri: "content://com.eureka.documentscanner.fileprovider/files/8591356a-df5d-4204-ab68-55defaaca1b4.pdf"
Dim u As Uri
u.Parse(pdfUri)
Log(u)
Dim cr As ContentResolver : cr.Initialize("cr")
Dim cur As Cursor = cr.Query(u,Null,"",Null,"") ''CODE BREAKS HERE
Log(cur)
End If
Catch
Log(LastException)
End Try
Return Null
End Sub