کمک در لود فایل های صوتی و پخش آنلاین

[mostafaHD 44]

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

ساده ترین روش ممکن رو میخوام بهم معرفی کنید.

با rss هرکار کردم نشد.حتی از سورس رزبلاگ هم کمک گرفتم.

ممنون.

[alirezakazemizaroomi 437]

سلام

تو انجمن هست سرچ کنی می یابی  

[مهدی ایزدی 9,203]

درود

دوست عزیز ببینید دو تا بحث هست :

1- لینک فایل ها به صورت آنلاین هست یا آفلاین ؟

2- قبل از پخش آهنگ دانلود بشه و پخش بشه یا خیر ؟

 

سوال کلا ناقصه

[hunter0010 62]

درود

دوست عزیز ببینید دو تا بحث هست :

1- لینک فایل ها به صورت آنلاین هست یا آفلاین ؟

2- قبل از پخش آهنگ دانلود بشه و پخش بشه یا خیر ؟

 

سوال کلا ناقصه

سلام 

 لینک انلان باشه 

 قبل از پخش دانلود نشه 

ممنون میشم راهنماییم کنید

[alijenab 12]

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

با تشکر از اساتید محترم.

[mostafaHD 44]

لین ک ها رو به همراه اسم صدا ها رو از سرور لیست کنه و فقط پخش کنه.کلا دانلود نمیخوام.

بهترین و آسون ترین روشو میخوام

1 rss

2 دیتابیس آنلاین

3 php

با هر سه تاش میشه اما من هرکار کردم اخرش نتونستم

[مهدی ایزدی 9,203]

کار با دیتابیس آنلاین رو که بلد هستید ؟ الان فقط مشکل پخش رو دارید دیگه ؟

[hunter0010 62]

کار با دیتابیس آنلاین رو که بلد هستید ؟ الان فقط مشکل پخش رو دارید دیگه ؟

بله کار با دیتابیس رو بلدم

فایل رو هم پخش کردم اما تو قسمت گزاشتن دکمه که با کلیک روی اون اهنگ متوقف بشه و دوباره با کلیک روی همون فایل استارت بشه یعنی از اول پخش نشه و ادامش پخش بشه

ممنون از شما

[مهدی ایزدی 9,203]

ببینید برای پخش آنلاین باید از MediaPlayerStream استفاده کنید

Sub Globals
Dim mp As MediaPlayerStream
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	mp.Initialize("mp")
End Sub

Sub Button1_Click
	    mp.Load("http://dl.nex1music.ir/1394/05/13/Ali%20Pishtaz%20&%20Samir%20-%20Dastaye%20To%20%5B128%5D.mp3")
End Sub

Sub mp_StreamReady
    ToastMessageShow("شروع پخش",False)
    mp.Play
End Sub
Sub mp_StreamError (ErrorCode As String, ExtraData As Int)
    ToastMessageShow("Error: " & ErrorCode & ", " & ExtraData, True)
End Sub
Sub mp_StreamBuffer(Percentage As Int)
	ToastMessageShow(Percentage &"%",False)
End Sub 

همه چیز مشخصه دیگه !!!

اون لینک آهنگی که گذاشتم هم قشنگه . دانلود کنید   شبایی که ... تو نیستی خیلی تاریکه

موفق باشید

[مهدی ایزدی 9,203]

بله کار با دیتابیس رو بلدم

فایل رو هم پخش کردم اما تو قسمت گزاشتن دکمه که با کلیک روی اون اهنگ متوقف بشه و دوباره با کلیک روی همون فایل استارت بشه یعنی از اول پخش نشه و ادامش پخش بشه

ممنون از شما

شما برای ادامه پخش و ... فقط باید از Play و Pause استفاده کنید

دیگه کاری رو Load نداشته باشید

[hunter0010 62]

ببینید برای پخش آنلاین باید از MediaPlayerStream استفاده کنید

Sub Globals
Dim mp As MediaPlayerStream
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	mp.Initialize("mp")
End Sub

Sub Button1_Click
	    mp.Load("http://dl.nex1music.ir/1394/05/13/Ali%20Pishtaz%20&%20Samir%20-%20Dastaye%20To%20%5B128%5D.mp3")
End Sub

Sub mp_StreamReady
    ToastMessageShow("شروع پخش",False)
    mp.Play
End Sub
Sub mp_StreamError (ErrorCode As String, ExtraData As Int)
    ToastMessageShow("Error: " & ErrorCode & ", " & ExtraData, True)
End Sub
Sub mp_StreamBuffer(Percentage As Int)
	ToastMessageShow(Percentage &"%",False)
End Sub 

همه چیز مشخصه دیگه !!!

اون لینک آهنگی که گذاشتم هم قشنگه . دانلود کنید   شبایی که ... تو نیستی خیلی تاریکه

موفق باشید

ممنونم از راهنماییتون 

اگه میشه در مورد progressbar که میزان پیشرفت اهنگو نشون بده در مورد همین کد یه توضیح مختصر بدید لطفا

[مهدی ایزدی 9,203]

ممنونم از راهنماییتون 

اگه میشه در مورد progressbar که میزان پیشرفت اهنگو نشون بده در مورد همین کد یه توضیح مختصر بدید لطفا

خواهش میکنم

شما از طریق همین Sub :

Sub mp_StreamBuffer(Percentage As Int)
	ToastMessageShow(Percentage &"%",False)
End Sub 

میتونید ProgressBar رو تنظیم کنید

[KMOHAMMAD 10]

در در 1394/05/16, 14:29:22، hunter0010 گفته است :

ممنونم از راهنماییتون 

اگه میشه در مورد progressbar که میزان پیشرفت اهنگو نشون بده در مورد همین کد یه توضیح مختصر بدید لطفا

 

در در 1394/05/16, 14:09:09، مهدی ایزدی گفته است :

ببینید برای پخش آنلاین باید از MediaPlayerStream استفاده کنید

Sub Globals
Dim mp As MediaPlayerStream
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	mp.Initialize("mp")
End Sub

Sub Button1_Click
	    mp.Load("http://dl.nex1music.ir/1394/05/13/Ali%20Pishtaz%20&%20Samir%20-%20Dastaye%20To%20%5B128%5D.mp3")
End Sub

Sub mp_StreamReady
    ToastMessageShow("شروع پخش",False)
    mp.Play
End Sub
Sub mp_StreamError (ErrorCode As String, ExtraData As Int)
    ToastMessageShow("Error: " & ErrorCode & ", " & ExtraData, True)
End Sub
Sub mp_StreamBuffer(Percentage As Int)
	ToastMessageShow(Percentage &"%",False)
End Sub 

همه چیز مشخصه دیگه !!!

اون لینک آهنگی که گذاشتم هم قشنگه . دانلود کنید   شبایی که ... تو نیستی خیلی تاریکه

موفق باشید

یه سوال:
شما الان اومدید یه لینک فایل صوتی گذاشتید
اگر من لینک هام داخل دیتابیس باشه(لینک فایل)

اونو  هم میشه با  همین طریق پخش آنلاین کرد با نه؟
اگر میشه برای پخش انلاین باید چه لینکیاز فایل را داخل دیتابیس بذاریم؟
من الان لینک مسقیم دانلود را دارم ،همینه یه چیز دیگر هست؟

[مجید آرتا 5,874]

در در 1397/11/29, 22:57:47، KMOHAMMAD گفته است :

 

یه سوال:
شما الان اومدید یه لینک فایل صوتی گذاشتید
اگر من لینک هام داخل دیتابیس باشه(لینک فایل) 

اونو  هم میشه با  همین طریق پخش آنلاین کرد با نه؟
اگر میشه برای پخش انلاین باید چه لینکیاز فایل را داخل دیتابیس بذاریم؟
من الان لینک مسقیم دانلود را دارم ،همینه یه چیز دیگر هست؟

سلام

تفاوتی نداره لینکتون رو از کجا میگیرید

فقط برای پخش نیاز به لینک مستقیم داره.

حالا میتونید از طریق دیتابیس لینک رو بهش بدید

میتونید توی فایل txt  باشه

میتونه از دیتابیس انلاین بگیرید و . . . .

[mostafaHD 44]

تاپیک رو من باز کردم ولی جواب نگرفتم.

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

بهترین روش رو میخوام.

برای پخش مشکل ندارم.

[KMOHAMMAD 10]

در 12 ساعت قبل، مجید آرتا گفته است :

سلام

تفاوتی نداره لینکتون رو از کجا میگیرید

فقط برای پخش نیاز به لینک مستقیم داره.

حالا میتونید از طریق دیتابیس لینک رو بهش بدید

میتونید توی فایل txt  باشه

میتونه از دیتابیس انلاین بگیرید و . . . .

سلام من کدهای آقای ایزدی را برای پخش انلاین دقیقا کپی کردم  تا ویرایش کنم برای کار خودم
ولی اون خط که لینک صوت توش هست را خطا میده و قرمز میشه
هرکارش کردم نشد درست بشه
مشکل کار کجا هست ؟؟؟

[MrMedia 98]

در هم اکنون، KMOHAMMAD گفته است :

سلام من کدهای آقای ایزدی را برای پخش انلاین دقیقا کپی کردم  تا ویرایش کنم برای کار خودم
ولی اون خط که لینک صوت توش هست را خطا میده و قرمز میشه
هرکارش کردم نشد درست بشه
مشکل کار کجا هست ؟؟؟

لطفا تایپیک تازه باز کنید و سوالتون رو با کد هاتون رو بذارید تا چک بشه، این تایپیک قدیمی و مربوط به 3 سال پیش هستش

[MahdiHD 1,748]

دوست عزیز در‌صورتی‌ که در هنگام پخش دانلود شود در صورتی‌که سرعت اینترنت پایین باشد پخش بسیار‌ سخت و کند انجام می شود اما اگر از قبل دانلود شده باشد بدون مشکل و به راحتی کاربر می تواند صوت رو بشنوه! این کار چه مشکلی داره؟

[hunter0010 62]

خواهش میکنم

شما از طریق همین Sub :

Sub mp_StreamBuffer(Percentage As Int)
	ToastMessageShow(Percentage &"%",False)
End Sub 

میتونید ProgressBar رو تنظیم کنید

سلام اگه میشه 

یه توضیحی در مورد این که وقتی یه اهنگ انلاین پخش شد و دوباره روی یه کلیک دیگه واسه پخش یه اهنگ دیگه کلیک شد اهنگ قبلی قطع بشه

ممنون از شما

[پژمان نیکروان 6,054]

سلام اگه میشه 

یه توضیحی در مورد این که وقتی یه اهنگ انلاین پخش شد و دوباره روی یه کلیک دیگه واسه پخش یه اهنگ دیگه کلیک شد اهنگ قبلی قطع بشه

ممنون از شما

سلام.

کلا مشکل شما چیه؟؟

این تاپیک یکم شلوغ پلوغه ، یه تاپیک جدا بزنید مشکلتون رو مطرح کنید.

[hunter0010 62]

سلام 

من سه تا button دارم که هر کدوم یه اهنګ رو به صورت انلاین بخش میکنه

حالا من میخواستم وقتی یه اهنګ در حال بخشه  و روی یه button دیګه کلیک میشه  اهنګ اولی قطع بشه و اهنګ جدید بخش بشه

و نمیخوام از mediaPlayer1.Stop استفاده کنم؟؟؟

تشکر