Android Question how to save a imageview.background to file?

[yhyzhj]

I want to know how to save a imageview.bakcground to file.
And I want to know how to save a icon of app to file.
pleae help me!

 

[kisoft]

Write exactly what you want to achieve and what you need such a solution for ... Maybe it can be solved in a different way ...

 

[Peter Simpson]

Try this, you can also use GetSafeDirDefaultExternal if you really want to...

 

[TILogistic]

better to use B4XImageView multi platform

Sub Class_Globals
    Private xui As XUI
    Private B4XImageView1 As B4XImageView
End Sub

    'Load Image
    B4XImageView1.Bitmap = xui.LoadBitmap(File.DirAssets, "img.jpg")
    B4XImageView1.ResizeMode = "NONE" 'or "FILL"
    B4XImageView1.Update
      
    'Save to file
    SaveBitmapToFile(B4XImageView1.Bitmap, xui.DefaultFolder, "ImageView1.png")

Public Sub SaveBitmapToFile(Image As B4XBitmap, DirFolder As String, FileName As String)
    Dim Out As OutputStream
    Out = File.OpenOutput(DirFolder, FileName, False)
    Image.WriteToStream(Out, 100, "PNG")
    Out.Close
End Sub

 

[TILogistic]

or ImageView

SaveBitmapToFile(ImageView1.Background, xui.DefaultFolder, "ImageView1.png")

 

[yhyzhj]

or ImageView

icon=pm.GetApplicationIcon(pkgn(i))

ImageView1.Background=icon

SaveBitmapToFile(ImageView1.Background,xui.DefaultFolder,"iv1.png")

show Error description: Undeclared variable 'savebitmaptofile' is used before it was assigned any value.

 

[yhyzhj]

Write exactly what you want to achieve and what you need such a solution for ... Maybe it can be solved in a different way ...

i just want to write a launcher app. i have got all icon of apps, now need put the icons into gridview. but I use GridView.AddImage("",icon.Bitmap), show dir can not be null. so, i think that must save the icons to files. then i can use GridView.AddImage(dir,imagefile).

 

[yhyzhj]

Try this, you can also use GetSafeDirDefaultExternal if you really want to...

still show error:
Error description: Unknown member: getbitmap
Error occurred on line: 31
ImageView1.GetBitmap.WriteToStream(Out, 100, "JPEG")
Word: getbitmap

 

[TILogistic]

sample with BitmapDrawable and icon APP

you APP Application.PackageName

    Dim pm As PackageManager
    Dim icon As BitmapDrawable = pm.GetApplicationIcon(Application.PackageName)
    ImageView1.SetBackgroundImage(icon.Bitmap)
    SaveBitmapToFile(ImageView1.Bitmap, xui.DefaultFolder, "myicon.png")

or

    Dim pm As PackageManager
    Dim icon As BitmapDrawable = pm.GetApplicationIcon(Application.PackageName)
    ImageView1.Background = icon
    SaveBitmapToFile(ImageView1.Bitmap, xui.DefaultFolder, "myicon.png")

 

[yhyzhj]

sample with BitmapDrawable and icon APP

you APP Application.PackageName

    Dim pm As PackageManager
    Dim icon As BitmapDrawable = pm.GetApplicationIcon(Application.PackageName)
    ImageView1.SetBackgroundImage(icon.Bitmap)
    SaveBitmapToFile(ImageView1.Bitmap, xui.DefaultFolder, "myicon.png")

or

    Dim pm As PackageManager
    Dim icon As BitmapDrawable = pm.GetApplicationIcon(Application.PackageName)
    ImageView1.Background = icon
    SaveBitmapToFile(ImageView1.Bitmap, xui.DefaultFolder, "myicon.png")

thank you! it works!
if I want to add icons into GridView, how to do?