i have a round image
at
i wante
at
B4X:
'ImageView1.SetBackgroundImage(BytesToImage(ktv))
ImageView1.SetBitmap(CreateRoundBitmap(Base64StringToImage(ktb), ImageView1.Width))
' SavePhoto(Base64StringToImage(ktb))
i wante
B4X:
Sub SavePhoto (Pt As Bitmap,NewFile As String)
Dim Out As OutputStream
Out = File.OpenOutput(File.DirRootExternal, NewFile, False)
Pt.WriteToStream(Out, 100, "PNG")
Out.Close
End Sub