Dim compressor As ARImageCompressor
Dim out As OutputStream
out = File.OpenOutput(Main.ruta, "TestThumb.jpg", False)
thum.WriteToStream(out, 5, "PNG")
out.Close
Log("Original:"& File.Size(Main.ruta, "TestThumb.jpg"))
compressor.Initialize.setCompressFormat(compressor.WEBP)
compressor.setDestinationDirectoryPath(File.Combine(Main.Ruta,"compress"))
compressor.setQuality(2)
compressor.setMaxHeight(40).setMaxWidth(40)
compressor.compressToFile2(File.Combine(Main.Ruta,"TestThumb.jpg"),"sampleTh.jpg")