امکانش هست یه فایل صوتی رو که در دیتابیس یه شکل blob دخیره شده ، بدون این که داخل sdcard کپی کنیم. پخشش کنیم؟
الان باید بریزمش داخل یک فایل بعدش پخشش کنم
Dim Cursor1 As Cursor
Cursor1 = sql.ExecQuery2("SELECT id,file FROM `files` WHERE id = ? ", Array As String(45))
Cursor1.Position = 0
Dim Buffer() As Byte
Buffer = Cursor1.GetBlob("file")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Msgbox(Buffer.Length,"buffer size")
Dim OutputStream1 As OutputStream
OutputStream1 = File.Openoutput(File.DirRootExternal, "BlobToFile/1.mp3",False)
File.Copy2(InputStream1, OutputStream1)
OutputStream1.Close
playmp3
سوال
rasool.g 135
امکانش هست یه فایل صوتی رو که در دیتابیس یه شکل blob دخیره شده ، بدون این که داخل sdcard کپی کنیم. پخشش کنیم؟
الان باید بریزمش داخل یک فایل بعدش پخشش کنم
Dim Cursor1 As Cursor Cursor1 = sql.ExecQuery2("SELECT id,file FROM `files` WHERE id = ? ", Array As String(45)) Cursor1.Position = 0 Dim Buffer() As Byte Buffer = Cursor1.GetBlob("file") Dim InputStream1 As InputStream InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length) Msgbox(Buffer.Length,"buffer size") Dim OutputStream1 As OutputStream OutputStream1 = File.Openoutput(File.DirRootExternal, "BlobToFile/1.mp3",False) File.Copy2(InputStream1, OutputStream1) OutputStream1.Close playmp3
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.