Android Question what is the reason? show the error info

[yhyzhj]

i want to get some icons of app, show the error info. when press yes button, app can run and show icons

 

[jahswant]

i want to get some icons of app, show the error info. when press yes button, app can run and show icons

Sho your code.

 

[yhyzhj]

    Dim appn(packages.size) As String
    Dim pkgn(packages.size) As String
    Dim ver(packages.Size) As String
    Dim icon As BitmapDrawable
    Dim n as int
    n=0
    For i = 0 To packages.Size - 1
        appn(n)=pm.GetApplicationLabel(packages.Get(i))
        pkgn(n)=packages.Get(i)
        icon=pm.GetApplicationIcon(pkgn(i))
        ver(n)=pm.GetVersionName(pkgn(n))
        ListView1.AddTwoLinesAndBitmap(appn(n)&"  "&ver(n),pkgn(n),icon.Bitmap)
        n=n+1
    Next

 

[DonManfred]

One of the package is NOT using a BitmapDrawable as Icon but a Vector one.
You can not show a vectoricon in a BitmapoDrawable.

 

[yhyzhj]

One of the package is NOT using a BitmapDrawable as Icon but a Vector one.
You can not show a vectoricon in a BitmapoDrawable.

but the listview can show all icons. my another app use the same code. not any error

 

[Erel]

The assumption that pm.GetApplicationIcon returns a BitmapDrawable is wrong. It can return all kinds of drawables. Either skip other types:

Dim o As Object = pm.GetApplicationIcon(pkgn(i))
If o Is BitmapDrawable = False The Continue

Or draw them with Canvas.DrawDrawable.

 

[yhyzhj]

still show error:

B4A Version: 11.20
Parsing code. (0.01s)
Java Version: 8
Building folders structure. (0.01s)
Compiling code. Error
Error compiling program.
Error description: 'Then' expected.
Error occurred on line: 76
If o Is BitmapDrawable=False Then Continue
Word: =

 

[josejad]

BitmapDrawable=False Then

It seems you've fixed, but in the 2nd line from Erel, "Then" is missing the final "n".
If you get an error, it would be fine you'd show your code, to see what's in the line 76.

 

[Erel]

If (o Is BitmapDrawable) = False Then Continue

 

[yhyzhj]

If (o Is BitmapDrawable) = False Then Continue

now still show error when run the app

packages = pm.GetInstalledPackages
    Dim appn(packages.size) As String
    Dim pkgn(packages.size) As String
    Dim ver(packages.Size) As String
    Dim o As Object
    n=0
    For i = 0 To packages.Size - 1
        appn(n)=pm.GetApplicationLabel(packages.Get(i))
        pkgn(n)=packages.Get(i)
        o = pm.GetApplicationIcon(pkgn(i))
        If (o Is BitmapDrawable)=False Then Continue
        ver(n)=pm.GetVersionName(pkgn(n))
        ListView1.AddTwoLinesAndBitmap(appn(n)&"  "&ver(n),pkgn(n),o)
        n=n+1
    Next

 

[Erel]

1. You should never see this error dialog. Add the Starter service back.
2. Post the full error message from the logs.
3. Never use ListView. You are simply wasting your time. Use xCustomListView instead.
4:

ListView1.AddTwoLinesAndBitmap(appn(n)&"  "&ver(n),pkgn(n),o.As(BitmapDrawable).Bitmap)