converting drawable object to a bitmap file

[melamoud]

hi, anyone know how to onvert a drawable object to a bitmap file,
see details on what I'm trying to do on this thread:


http://www.b4x.com/forum/additional...11636-livewallpaper-library-6.html#post136296

thanks

 

[Erel]

1. Create a mutable bitmap with Bitmap.InitializeMutable.
2. Create a canvas for this bitmap.
3. Draw the drawable with Canvas.DrawDrawable
4. Save the bitmap to a file (Bitmap.WriteToStream)

In some cases the drawable might actually be a BitmapDrawable.
In that case it is simpler:

If d Is BitmapDrawable Then
 Dim bd = d
 bd.Bitmap.WriteToStream(...)
End If

 

[melamoud]

write to stream ?

I'm doing:

Dim bg As Object
    bg = GetWallpaperBackground
   'Activity.Background = bg
   If bg Is BitmapDrawable Then
      Dim bd As BitmapDrawable
       bd = bg
      Dim Out As OutputStream
      Out = File.OpenOutput(File.DirRootExternal, "saved_wallpaper.png", False)
      bd.Bitmap.WriteToStream(Out, 100, "PNG")
      Out.Close
   End If

I get error in compilation that writeToStream is not a member method of bitmap

 

[melamoud]

ok this is compiling .. I will try to see if it worked

Dim bg As Object
    bg = GetWallpaperBackground
   'Activity.Background = bg
   If bg Is BitmapDrawable Then
      Dim bd As BitmapDrawable
       bd = bg
      Dim Out As OutputStream
      Out = File.OpenOutput(File.DirRootExternal, "saved_wallpaper.png", False)
      'bd.WriteToStream(Out, 100, "PNG")
      Dim btm As Bitmap
      btm = bd.Bitmap
      btm.WriteToStream(Out, 100, "PNG")
      Out.Close

I do not understand why the internal bitmap did not worked, I had to cast it
can you explain ?

 

[melamoud]

if it is not BitmapDrawable how do I create java rect ?
DrawDrawable require that ?

 

[melamoud]

I think this will work, I will try it

Dim bg As Object
    bg = GetWallpaperBackground
   'Activity.Background = bg
   If bg Is BitmapDrawable Then
      ToastMessageShow("is drawable!",True)
      Dim bd As BitmapDrawable
       bd = bg
      Dim Out As OutputStream
      Out = File.OpenOutput(File.DirRootExternal, "saved_wallpaper.png", False)
      'bd.WriteToStream(Out, 100, "PNG")
      Dim btm As Bitmap
      btm = bd.Bitmap
      btm.WriteToStream(Out, 100, "PNG")
      Out.Close
   Else
      ToastMessageShow("is NOT drawable!",True)
      Dim bt As Bitmap
      bt = bg
      'Create a mutable Bitmap with Bitmap.InitializeMutable.
      Dim w As Int 'width
      Dim l As Int 'length
      w = bt.Width
      l = bt.Height            
      Dim btm As Bitmap         
      btm.InitializeMutable(w,l) ' todo get layout from device layout ?? or from bg ?
      'Create a Canvas For this Bitmap.
      Dim can As Canvas
      'Draw the drawable with Canvas.DrawDrawable
      Dim DestRect As Rect
      DestRect.Initialize(0,0, w, l)
      can.DrawDrawable(bg,DestRect)
      'Save the Bitmap To a File (Bitmap.WriteToStream)
      Dim Out As OutputStream
      Out = File.OpenOutput(File.DirRootExternal, "saved_wallpaper1.png", False)
      btm.WriteToStream(Out, 100, "PNG")
   End If

 

[melamoud]

It worked ! Thanks....