پخش فایل صوتی ذخیره شده در دیتابیش

[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

 

[AMiN.M7892 1,029]

سلام دوست عزیز،

بستگی داره به چه شکلی صدا رو پخش کنید.

لطفا کدهای playmp3 رو هم قرار بدید تا خدمتتون عرض کنم.

[rasool.g 135]

در 1 ساعت قبل، AMiN.M7892 گفته است :

سلام دوست عزیز،

بستگی داره به چه شکلی صدا رو پخش کنید.

لطفا کدهای playmp3 رو هم قرار بدید تا خدمتتون عرض کنم.

سلام. داخل playmp3 از مدیا پلیر پیشفرض خود b4a برای پخش استفاده می کنم.

Dim mp As MediaPlayer 'should be done in Sub Process_Globals
	mp.Initialize2("MP")
	mp.Load(File.DirRootExternal, "BlobToFile/1.mp3")
	mp.Play

فایل ها هم همگی از نوع mp3 هستش.

خواستم از MediaPlayerStram استفاده کنم. ولی فقط URL میگیره.

فکر کنم باید دنبال کلاس و کتابخونه ای بگردم که بتونه فایل mp3 رو بصورت stram پخش کنه.

[AMiN.M7892 1,029]

سلام دوست عزیز،

فکر میکنم چنین کلاسی وجود نداشته باشه و حتی اگه چنین ماژولی پیدا کنید حتما خود اون کلاس قبل از پخش، ورودی شما رو به فایل تبدیل میکنه و بعد پخش میکنه.

شما با همین روش خودتون کار رو انجام بدید فقط با این تفاوت که بجای DirRootExternal ، فایل رو در DirInternalCache پخش کنید.