Save image to file from imageView

[TrisectDevelopment]

I have an imageView with an image.
The image is loaded from gallery or taken from camera.

But how do I save the imageView content as a file ex. jpg.

:sign0104:
Trisect Development

 

[kickaha]

Try this link, and replace Bitmap1 with your ImageView.Bitmap

 

[TrisectDevelopment]

Well my imageview.BitMap does not regonize the WriteToStream command!

So what to do now?

:sign0104:
Trisect Development

 

[kickaha]

Dim tempbitmap as Bitmap
tempbitmap = YourImageView.Bitmap
tempbitmap.WriteToStream ...........

 

[TrisectDevelopment]

Thats it thanks.

Well I hope I eventually gets better at this.....

:sign0104:
Trisect Development

 

[kickaha]

Thats it thanks.

Well I hope I eventually gets better at this.....

:sign0104:
Trisect Development

Trust me, things start to click in place quite quickly. In the meantime there is always this forum.:sign0060:

 

[TrisectDevelopment]

A little side question for you.

Is it possible to resize the image?

:sign0104:
Trisect Development

 

[Erel]

You can use the Canvas object for that. Create a mutable bitmap at the right size. Initialize the Canvas with this bitmap and draw the original bitmap to this bitmap.

Now save the mutable bitmap.

 

[TrisectDevelopment]

Hi Erel

I'm really a noob when it comes to Basic4Android.
My force so far is C#.NET and Obj-C in XCode.

If you could would you please post an example??

 

[Erel]

Here:

Sub Activity_Create(FirstTime As Boolean)
    Dim b As Bitmap
    b = ResizeBitmap(LoadBitmap(File.DirAssets, "image1.jpg"), 20, 20)
    Dim out As OutputStream
    out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
    b.WriteToStream(out, 100, "JPEG")
    out.Close
End Sub

Sub ResizeBitmap(original As Bitmap, width As Int, height As Int) As Bitmap
    Dim new As Bitmap
    new.InitializeMutable(width, height)
    Dim c As Canvas
    c.Initialize2(new)
    Dim destRect As Rect
    destRect.Initialize(0, 0, width, height)
    c.DrawBitmap(original, Null, destRect)
    Return new
End Sub

 

[TrisectDevelopment]

SUPER!!

You are the Mann!!!

:sign0060::sign0060::sign0060:

 

[Swissmade]

Here:

Sub Activity_Create(FirstTime As Boolean)
    Dim b As Bitmap
    b = ResizeBitmap(LoadBitmap(File.DirAssets, "image1.jpg"), 20, 20)
    Dim out As OutputStream
    out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
    b.WriteToStream(out, 100, "JPEG")
    out.Close
End Sub

Sub ResizeBitmap(original As Bitmap, width As Int, height As Int) As Bitmap
    Dim new As Bitmap
    new.InitializeMutable(width, height)
    Dim c As Canvas
    c.Initialize2(new)
    Dim destRect As Rect
    destRect.Initialize(0, 0, width, height)
    c.DrawBitmap(original, Null, destRect)
    Return new
End Sub

Great Job Erel,
Working in one Minute
:sign0188:

 

[Yeshua]

Save panel and imageview together

Can you help me, please?:sign0085:

Dim tempbitmap as Bitmap
tempbitmap = YourImageView.Bitmap
tempbitmap.WriteToStream ...........

 

[Erel]

Please do not post duplicate questions. See my answer in your other post.