quality = 50 = 17,69KB
quality = 100 = 100KB
Public Sub SavePictureToFile(Data() As Byte, Dir As String, FileName As String) Dim out As OutputStream = File.OpenOutput(Dir, FileName, False) out.WriteBytes(Data, 0, Data.Length) out.Close End Sub
Originally posted a B4J/inline Java version of this in the B4J Code Snippets (https://www.b4x.com/android/forum/threads/image-to-jpeg-byte-array-with-resize-quality-options.91746/). @Erel pointed out though that the XUI library had the functionality that I was doing with Java, so I decided to...
Sub CreateSquareThumbnail(Input As B4XBitmap) As B4XBitmap If Input.Width Input.Height Then 'if the image is not square then we crop it to be a square. Dim l As Int = Min(Input.Width, Input.Height) Return Input.Crop(Input.Width / 2 - l / 2, Input.Height / 2 - l / 2...