رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase
  • 0

پخش انلاین موزیک و سیو کردن اون

HAMEDDDR

سوال شده توسط HAMEDDDR,

سوال

HAMEDDDR

HAMEDDDR 15

ارسال شده در
ارسال شده در

سلام بچها من یک برنامه نوشتم برای تست  میایم لینک موزیک بهش میدیم چک میکنه اگر تو حافظه بود پخش میکنه اگر نه دانلود میکنه تا دیروز درست بودا امروز تست کردم بغیر گزینه اول ply1بقیه چک نمیکنه و هر بار میزنیم دانلود پخش میکنه این به کنار فقط با دکمه pas1متو قف میکنه موندم مشگلش چیه؟

راهی داریم چندتا لینک بدیم کاربر به دلخواه دانلود کنه فقط یکبار دانلود کنه ؟مثلان 5تا لینک دانلود بدیم کاربر یکبار دانلود کنه بار بعد دانلود نکنه 

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim ht As HttpJob
	Dim ht1 As HttpJob
	Dim ht2 As HttpJob
	Dim ht3 As HttpJob
	
	'Dim ht1 As HttpJob
	Dim media As MediaPlayer
	Dim media2 As MediaPlayer
	Dim media3 As MediaPlayer
	Dim media4 As MediaPlayer
	'Dim media2 As MediaPlayer
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	
	Private pass1 As Button
	Private play1 As Button
	Private ImageView2 As ImageView
	Private ply2 As Button
	Private pass2 As Button
	Private ImageView3 As ImageView
	Dim IsPlaying As Boolean
	Dim IsPlaying1 As Boolean
	Dim aria As AriaLib
	Private rotatePlay As ImageView
	Private ImageView5 As ImageView
	Private Panel1 As Panel
	Private ply3 As Button
	Private pass3 As Button
	Private pl4 As Button
	Private pas4 As Button
	End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Layout2")
	'IsPlaying=False
	If File.IsDirectory(File.DirRootExternal,"LearningStation.ir") = False Then
		File.MakeDir(File.DirRootExternal, "LearningStation.ir")
		ToastMessageShow("پوشه با نام LearningStation.ir ایجاد شد.",True)
	End If
	'......
	media.Initialize2("media1")
	media2.Initialize2("media2")
	media3.Initialize2("media3")
	media4.Initialize2("media4")

	If media.IsPlaying = True Then
		
	End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub pass2_Click
	media2.Stop
End Sub

Sub ply2_Click
	If media2.IsPlaying = False Then
		If File.Exists(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb2.mp3") = False Then
			Dim res1 As Int
			res1 = Msgbox2("موزیک در حافظه دستگاه شما یافت نشد، مایل به دانلود آن هستید؟"&CRLF&"- موزیک بعد دانلود پخش خواهد شد","یافت نشد","بله","خیر","",Null)
			If res1 = DialogResponse.POSITIVE Then
				If aria.TestInterntConnection = True Then
					ht1.Initialize("ht1",Me)
					ht1.Download("http://www.sibtayn.com/sound/fa/books/Siyahateh-Gharb/Siyahateh-Gharb2.mp3")
					'	Dim dd as  DownloadData
					'	dd.url = ht
					'	dd.EventName = "dd"
					'	dd.Target = Me
					'	CallSubDelayed2(DownloadService, "StartDownload", dd)
					
					
					
					
					
					
					ToastMessageShow("دانلود آغاز شد، صبور باشید...",False)
					ToastMessageShow("در حال دانلود...",True)
					
					ToastMessageShow("لطفا صلواتی برای سلاتی امام زمان ع بفرستید...",True)
					ToastMessageShow("حجم فایل صوتی 2 مگابایت......",True)
					
					
				Else
					ToastMessageShow("لطفا وضعیت اینترنت خود را بررسی کنید",False)
				End If
			End If
		Else	If File.Exists(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb2.mp3") = True Then
			media2.Load(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb2.mp3")
			media2.Play
		Else
			ToastMessageShow("لطفا وضعیت اینترنت خود را بررسی کنید",False)
		End If
	
	End If
End Sub

Sub play1_Click
	If media.IsPlaying = False Then
		If File.Exists(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb1.mp3") = False Then
			Dim res As Int
			res = Msgbox2("موزیک در حافظه دستگاه شما یافت نشد، مایل به دانلود آن هستید؟"&CRLF&"- موزیک بعد دانلود پخش خواهد شد","یافت نشد","بله","خیر","",Null)
			If res = DialogResponse.POSITIVE Then
				If aria.TestInterntConnection = True Then
					ht.Initialize("ht",Me)
					ht.Download("http://www.sibtayn.com/sound/fa/books/Siyahateh-Gharb/Siyahateh-Gharb1.mp3")
					'	Dim dd as  DownloadData
					'	dd.url = ht
					'	dd.EventName = "dd"
					'	dd.Target = Me
					'	CallSubDelayed2(DownloadService, "StartDownload", dd)
					
					
					
					
					
					
					ToastMessageShow("دانلود آغاز شد، صبور باشید...",False)
					ToastMessageShow("در حال دانلود...",True)
					
					ToastMessageShow("لطفا صلواتی برای سلاتی امام زمان ع بفرستید...",True)
					ToastMessageShow("حجم فایل صوتی 2 مگابایت......",True)
					
					
				Else
					ToastMessageShow("لطفا وضعیت اینترنت خود را بررسی کنید",False)
				End If
			End If
		Else	If File.Exists(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb1.mp3") = True Then
			media.Load(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb1.mp3")
			media.Play
		Else
			ToastMessageShow("لطفا وضعیت اینترنت خود را بررسی کنید",False)
		End If
	
	End If
End Sub

Sub pass1_Click
	media.Stop
End Sub
Sub JobDone (job As HttpJob)
	If job.Success = True Then
		
		Dim i1 As InputStream
		
		
		
		Dim o1 As OutputStream
		
		i1 = job.GetInputStream
		o1 = File.OpenOutput(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb1.mp3",False)
		File.Copy2(i1,o1)
		
		ToastMessageShow("موزیک دانلود شد. هم اکنون پخش میشود",True)
	End If
	media.Load(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb1.mp3")
	media.Play
	
	'playy.Text = "متوقف کردن موزیک"

End Sub
Sub JobDone2 (job2 As HttpJob)
	If job2.Success = True Then
	Dim i2 As InputStream
	Dim o2 As OutputStream
	i2 = job2.GetInputStream
		o2 = File.OpenOutput(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb2.mp3",False)
		File.Copy2(i2,o2)
		ToastMessageShow("موزیک دانلود شد. هم اکنون پخش میشود",True)
	End If
	media2.Load(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb2.mp3")
	media2.Play
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode=KeyCodes.KEYCODE_BACK Then
		Activity.Finish
		'AnimateLayout.SetAnimation("file2","file1")
		'	m1.Stop
		media.Stop
		media2.Stop
		media3.Stop
		media4.Stop
		'playy.Visible=True
'	rotatePlay.Visible=False
		StartActivity(list1)
		Return True
	End If
End Sub


Sub pass3_Click
	media3.Stop
End Sub

Sub ply3_Click
	If media3.IsPlaying = False Then
		If File.Exists(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb3.mp3") = False Then
			Dim res2 As Int
			res2 = Msgbox2("موزیک در حافظه دستگاه شما یافت نشد، مایل به دانلود آن هستید؟"&CRLF&"- موزیک بعد دانلود پخش خواهد شد","یافت نشد","بله","خیر","",Null)
			If res2 = DialogResponse.POSITIVE Then
				If aria.TestInterntConnection = True Then
					ht2.Initialize("ht2",Me)
					ht2.Download("http://www.sibtayn.com/sound/fa/books/Siyahateh-Gharb/Siyahateh-Gharb3.mp3")
					'	Dim dd as  DownloadData
					'	dd.url = ht
					'	dd.EventName = "dd"
					'	dd.Target = Me
					'	CallSubDelayed2(DownloadService, "StartDownload", dd)
					
					
					
					
					
					
					ToastMessageShow("دانلود آغاز شد، صبور باشید...",False)
					ToastMessageShow("در حال دانلود...",True)
					
					ToastMessageShow("لطفا صلواتی برای سلاتی امام زمان ع بفرستید...",True)
					ToastMessageShow("حجم فایل صوتی 2 مگابایت......",True)
					
					
				Else
					ToastMessageShow("لطفا وضعیت اینترنت خود را بررسی کنید",False)
				End If
			End If
		Else	If File.Exists(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb3.mp3") = True Then
			media3.Load(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb3.mp3")
			media3.Play
		Else
			ToastMessageShow("لطفا وضعیت اینترنت خود را بررسی کنید",False)
		End If
	
	End If
End Sub
Sub JobDone3 (job3 As HttpJob)
	If job3.Success = True Then
	Dim i3 As InputStream
	Dim o3 As OutputStream
	i3 = job3.GetInputStream
		o3 = File.OpenOutput(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb3.mp3",False)
		File.Copy2(i3,o3)
		ToastMessageShow("موزیک دانلود شد. هم اکنون پخش میشود",True)
	End If
	media3.Load(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb3.mp3")
	media3.Play
End Sub

Sub pas4_Click
	media4.Stop
End Sub

Sub pl4_Click
	If media4.IsPlaying = False Then
		If File.Exists(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb4.mp3") = False Then
			Dim res3 As Int
			res3 = Msgbox2("موزیک در حافظه دستگاه شما یافت نشد، مایل به دانلود آن هستید؟"&CRLF&"- موزیک بعد دانلود پخش خواهد شد","یافت نشد","بله","خیر","",Null)
			If res3 = DialogResponse.POSITIVE Then
				If aria.TestInterntConnection = True Then
					ht3.Initialize("ht3",Me)
					ht3.Download("http://www.sibtayn.com/sound/fa/books/Siyahateh-Gharb/Siyahateh-Gharb4.mp3")
					'	Dim dd as  DownloadData
					'	dd.url = ht
					'	dd.EventName = "dd"
					'	dd.Target = Me
					'	CallSubDelayed2(DownloadService, "StartDownload", dd)
					
					
					
					
					
					
					ToastMessageShow("دانلود آغاز شد، صبور باشید...",False)
					ToastMessageShow("در حال دانلود...",True)
					
					ToastMessageShow("لطفا صلواتی برای سلاتی امام زمان ع بفرستید...",True)
					ToastMessageShow("حجم فایل صوتی 2 مگابایت......",True)
					
					
				Else
					ToastMessageShow("لطفا وضعیت اینترنت خود را بررسی کنید",False)
				End If
			End If
		Else	If File.Exists(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb4.mp3") = True Then
			media4.Load(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb4.mp3")
			media4.Play
		Else
			ToastMessageShow("لطفا وضعیت اینترنت خود را بررسی کنید",False)
		End If
	
	End If
	
End Sub
Sub JobDone4 (job4 As HttpJob)
	If job4.Success = True Then
	Dim i4 As InputStream
	Dim o4 As OutputStream
	i4 = job4.GetInputStream
		o4 = File.OpenOutput(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb4.mp3",False)
		File.Copy2(i4,o4)
		ToastMessageShow("موزیک دانلود شد. هم اکنون پخش میشود",True)
	End If
	media3.Load(File.DirRootExternal & "/LearningStation.ir","Siyahateh-Gharb4.mp3")
	media3.Play
End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

Mr Mansour

Mr Mansour 325

ارسال شده در
ارسال شده در

والله فک نکنم مشکل خاصی بوده باشه -

فقط من موندم چرا این همه رویداد jobdone زدین اونم فک کنم 4 تا :|

نیازی نبود این همه بزنید یکی کافی بود از طریق job.jobname  با یک if میتونی کنترلش کنی

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

 

و در مورد اینکه فقط 5 بار انجام شه

من خودم از ساخت فایل توی یک پوشه ای که کسی دسترسی بش نداشته باشه انجام میدم :|

و بعد از طریق گرفتن تعداد فایل های موجود توی پوشه کنترل میکنم برنامه رو مثلا اگه بیشتر از 5 تا فایل بود دیگه دانلود نکن

شاید یکم با قوانین کد نویسی جور در نیاد ولی من استفاده میکنم دیگ

  

list = File.ListFiles(path)  ' path ادرس پوشه ی مورد نظرت

If  list.Size > 5 Then
	ToastMessageShow("تموم شد :| ",True)
	
	Else
		ToastMessageShow("نه هنو ادامه بده تو میتونی :دی",True)
	
End If

 

 

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر
HAMEDDDR

HAMEDDDR 15

ارسال شده در
  • سازنده
ارسال شده در
در 18 دقیقه قبل، Mr Mansour گفته است :

والله فک نکنم مشکل خاصی بوده باشه -

فقط من موندم چرا این همه رویداد jobdone زدین اونم فک کنم 4 تا :|

نیازی نبود این همه بزنید یکی کافی بود از طریق job.jobname  با یک if میتونی کنترلش کنی

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

 

و در مورد اینکه فقط 5 بار انجام شه

من خودم از ساخت فایل توی یک پوشه ای که کسی دسترسی بش نداشته باشه انجام میدم :|

و بعد از طریق گرفتن تعداد فایل های موجود توی پوشه کنترل میکنم برنامه رو مثلا اگه بیشتر از 5 تا فایل بود دیگه دانلود نکن

شاید یکم با قوانین کد نویسی جور در نیاد ولی من استفاده میکنم دیگ

  


list = File.ListFiles(path)  ' path ادرس پوشه ی مورد نظرت

If  list.Size > 5 Then
	ToastMessageShow("تموم شد :| ",True)
	
	Else
		ToastMessageShow("نه هنو ادامه بده تو میتونی :دی",True)
	
End If

 

 

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

 

سلام یکبار بشتر استفاده بعد براش شرط بزارم؟

این شرط گذاشتید من الان بخوان ظرط بزار م برای کد بالا چطوری بزارم ؟

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر
Mr Mansour

Mr Mansour 325

ارسال شده در
ارسال شده در

خوب شما بیا شرط رو بزار توی دکمه ی play اول چک کنه ببینه چند تا دانلود شده اگه کمتر از 5 تا بود دستور دانلود رو بزاره در غیر اینصورت یه پیام بده بگه تموم شده همه چی :|

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

رفتن به لیست سوال ها

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...