ذخیره base64 در حافظه

[shb4a Mm 0]

Sub Base64ToBitmap(encodedString As String) As Bitmap
Dim Base64,BitmapFactory As JavaObject
Dim decodedString() As Byte=Base64.InitializeStatic("android.util.Base64").RunMethod("decode",Array(encodedString,0))
Return BitmapFactory.InitializeStatic("android.graphics.BitmapFactory").RunMethod("decodeByteArray",Array(decodedString,0,decodedString.Length))
End Sub

سلام دوستان.این قطعه کد برای تبدیل base64 به
عکس هست.حالا چطور میشه عکس رو توی حافظه با مسیر دلخواهمون ذخیره کنیم؟

[محمدرضا شاهپیری 5,579]

برای ذخیره bitmap از روش زیر میتونید استفاده کنید

Dim x As B4XBitmap = YourBitmap
Dim out As OutputStream = File.OpenOutput(File.DirDefaultExternal, "1.png", False)
x.WriteToStream(out, 100, "PNG")
out.Close

 

[shb4a Mm 0]

بله درست شد ممنون.فقط مثل اینکه کد تبدیل base64به عکس مشکل داره چون وقتی فایل رو ذخیره میکنم تصویر ناقص ذخیره میشه یعنی نصف عکس فقط سیاه هستش