iOS Question Fixed - Trying to convert these lines of code to B4i (figured out a different way)

[Robert Valentino]

            Dim BytesToParse()     As Byte = res.GetBytes("UTF8")
            
            #if B4i
            Dim WhatToParse        As NativeObject
            
[B]            WhatToParse.Initialize("java.io.ByteArrayInputStream", Array(BytesToParse))           '  IDE Tells me too many parms[/B]
            #else
            Dim WhatToParse        As JavaObject
            
            WhatToParse.InitializeNewInstance("java.io.ByteArrayInputStream", Array(BytesToParse))           
            #end if

Private Sub GetMimeType(xLocalFile As String) As String
            Dim ext As String = ""
            
            Dim i As Int = xLocalFile.LastIndexOf(".")
            
            If  i > -1 Then
                ext = xLocalFile.SubString(i + 1).ToLowerCase
            End If

            #if B4i
            Dim jo As NativeObject
            
            jo.Initialize("android.webkit.MimeTypeMap")           
            
            Dim singleton     As NativeObject = jo.RunMethod("getSingleton", Null)           
            #else
            Dim jo As JavaObject
            
            jo.InitializeStatic("android.webkit.MimeTypeMap")
            
            Dim singleton     As JavaObject = jo.RunMethod("getSingleton", Null)           
            #end if
            
[B]            Dim mime         As String = singleton.RunMethod("getMimeTypeFromExtension", Array(ext))   'IDE Tells me conversion from object to string[/B]

            If  mime = Null Then
                mime = "application/octet-stream"
            End If
            
            Return mime
End Sub