iOS Question Compress image not working

[falbertini]

Hello,
in my app I need to compress captured photo..
I tried using this routine (on my Iphone 4S), but the size is the same and the saved file is not a jpg. It seems like this routine is not working:

Dim out As OutputStream = File.OpenOutput(Dir, Filename, False)
Image.WriteToStream(out, 70, "JPEG")
out.Close

How can I reduce the size of an image in B4i?
Thanks

 

[Erel]

How are you checking the format and size?

 

[falbertini]

I have copied the file to my Windows computer and opened it with PhotoFiltre software.

Here you can find the image (it is 15MB so I cannot upload it to this post):
http://files.filippoalbertini.net/temp/Dati_20150220_141906_5.jpg

 

[Erel]

I tested it with this code (and a different image):

Dim origBitmap As Bitmap = LoadBitmap(File.DirAssets, "IMG_0995.JPG")
Log(File.Size(File.DirAssets, "IMG_0995.JPG"))
Dim out As OutputStream = File.OpenOutput(File.DirTemp, "1.jpg", False)
origBitmap.WriteToStream(out, 20, "JPEG")
out.Close
Log(File.Size(File.DirTemp, "1.jpg"))

The image was compressed from 170k to 57k.