Save bitmap failure

[derez]

Using code from the documentation for saving a bitmap to a file, I found that it works when I use emulator but fail on my device (A81E).

Sub savebtn_Click
Dim out As OutputStream
qual = et.Text
out = File.OpenOutput(File.DirRootExternal & "/paint",(counter + 1) & ".jpg",False)
cnvs.Bitmap.WriteToStream(out,qual,"JPEG")
counter = counter + 1
End Sub

The data stream is terminated in the middle, as in the attached photo. The bitmap size is 645* 430
Any idea to the cause of the problem ?

 

[kickaha]

You need

out.Close

after you have written the bitmap.

 

[derez]

Thank you