Search Results

Your code above seems invalid as it seems to have "&" instead of "," characters. Android supports WebP from API 14 and as B4A converts strings to enums you could try Bitmap.WriteToStream(Out, FileSize, "WEBP") This writes a lossles WebP image if Filesize is 100 or a lossy one if less than 100 Or
link: I need to reduce the space occupied by the photo. Ideally, the photo should weigh less than 1.5Mb. For this I use the code: Dim Out As OutputStream Di

- The B4J library uses imgscalr open source code for the bitmap manipulation. It is superior to ImageView resize algorithm. - Some of the new features that are not available in the core libraries and can be used without relation to the cross platform features: B4XView.Snapshot (new in B4A and B4i)

but what I need is to obtain a new bitmap with the same width & height of the original one but which needs less memory.
link: This code should never be used. A short explanation: 1. You are not closing the output stream so the file is likely to become corrupted. 2. You shoul
link: I'm trying to "lighten the weight" of a bitmap. Initially I used RSImageProcessing but it seems to save a wrong bitmap... sometimes :eek: (I think it
link: Found something... bad news (for me). WriteToStream: the Quality parameter affect only if you're saving in JPEG format. A bitmap saved as file on "d

Im generating 8x8 B4Xbitmaps with BitmapCreator. and save it as jpg and a quality of 100 Dim b As B4XBitmap = BitMapList.Get(0) b.WriteToStream(File.OpenOutput(xui.DefaultFolder, name, False), 100, "JPEG") While this look very good on iOS (Right) , it look worse on Android (Left): It looks like th
link: I need to build something. because currently its part of a huge project, the bitmap is generated by a pixeldrawer 144868 I also see, that the filesi
link: I dont know what else to explain. Like you see in my screenshot i have a grid of 8x8 panels, where you can change every panelcolor separately. Then t
link: From what I know about JPEG quality that doesn't look like a quality setting issue to me. Quality acts on individual 2D blocks of 8 x 8 pixels and red

DrawCircle(100dip, 100dip, 40dip, Colors.Red, False, 10dip) 'Show modified picture iv.Initialize("iv") iv.Bitmap=canvas1.Bitmap iv.Gravity = Gravity.FILL Activity.AddView(iv,0,0,100%x, 100%y) 'Save picture Dim Out As OutputStream Out = File.OpenOutput(File.DirRootExternal
link: Thank you for your promt answer, eps Maybe I have to convert the bitmap to a string, but the only way I see that the thumbnail could be added is by "
link: This? https://www.b4x.-support-exifinterface.74629/

' get it out of the panel, rotate, redisplay, save Dim xBitmap As B4XBitmap = B4XImageView1.Bitmap xBitmap = xBitmap.Rotate(90) B4XImageView1.Bitmap = xBitmap xBitmap.WriteToStream(File.OpenOutput(FileDir, "xbmRotated.png", False), 100, "PNG")
link: Bitmap = xBitmap Log("B4XImageView1.mBase.NumberOfViews = " & B4XImageView1.mBase.NumberOfViews) Dim xView As B4XView = B4XImageView1.mBa

I have never used a Raspberry. The WriteToStream method is a B4XBitmap method. I am afraid that only Erel could help with this problem. The LoadImage method loads the image as it is, it does not add any corner radii. Are you speaking of the display of the original image or the cropped image. If it

shows normal no rotation... looks like using Bitmap1.WriteToStream(out, 100, "PNG") is rotated
link: When you take a photo, a bitmap has a correct orientation. But bmp.WriteToStream does not write 'orientation' tag in Exif. I found three parameters on
link: Hi guys, I am using low lever camera lib and is working excelent, I am saving the file wiht next code: Dim Out As OutputStream Out = File.OpenOutput(

from an old project ... 'get ImageView bitmap and write to database Dim bmp As Bitmap = imvImage.Bitmap Dim OutputStream1 As OutputStream OutputStream1.InitializeToBytesArray(1000) bmp.WriteToStream(OutputStream1, 90, "JPEG") Dim Buffer() As Byte = OutputStream1.ToBytesArray
link: Instead of bmp.WriteToStream(OutputStream1, 90, "JPEG") use bmp.WriteToStream(OutputStream1, 100, "PNG")

Hi, I want to ask about WritetoStream multiple imageview. I have 2 image on 2 imageview and 2 sub for stream to file Sub loadktp(namafl As String) Dim kt As Bitmap kt.Initialize(File.DirAssets,"back2.jpg") kt = imgKTP.Bitmap Dim out As OutputStream out = File.OpenOutput(LokasiIm

Powered by ColBERT