رفتن به مطلب
  • 0

لود کردن آهنگ


mehran3d

سوال

سلام دوستان

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

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
	If Success Then
		LogColor(FileName,Colors.Green)
		LogColor(Dir,Colors.Blue)
		LogColor(File.Combine(Dir,""),Colors.Red)
	End If
End Sub

اگه فایل رو از روت توی امولاتور بگیرم

اینو برگشت میده

/storage/emulated/0/a174.mp3
به رنگ سبز

 fromroot.PNG

 

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

content://media/external/file/1007   به رنگ سبز
ContentDir آبی
ContentDir قرمز

fromdownloads.PNG

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

و صد البته نیاز دارم که بعدا بصورت

(file.dirrootexternal,"nameoffile.mp3) استفادش کنم

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

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

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

با تابع زیر میتونی مسیر فایل رو بگیری

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
	If Success Then
		Dim FilePath As String = GetPathFromContentResult(FileName)
		LogColor(FilePath ,Colors.Blue)
		
		LogColor(FileName,Colors.Green)
		LogColor(Dir,Colors.Red)
	End If
End Sub
Sub GetPathFromContentResult(UriString As String) As String
    If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image
    Dim Proj() As String
    Proj = Array As String("_data")
    Dim Cursor As Cursor
    Dim r As Reflector
    Dim Uri As Object
    Uri = r.RunStaticMethod("android.net.Uri", "parse", _
        Array As Object(UriString), _
        Array As String("java.lang.String"))
    r.Target = r.GetContext
    r.Target = r.RunMethod("getContentResolver")
    Cursor = r.RunMethod4("query", _
    Array As Object(Uri, Proj, Null, Null, Null), _
    Array As String("android.net.Uri", _
        "[Ljava.lang.String;", "java.lang.String", _
        "[Ljava.lang.String;", "java.lang.String"))
    
    Cursor.Position = 0
    Dim res As String
    res = Cursor.GetString("_data")
    Cursor.Close
    Return res
End Sub

 

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

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
	If Success Then
		Dim FilePath As String = GetPathFromContentResult(FileName)
		LogColor(FilePath ,Colors.Blue)
		Mediaplayer.load("" , FilePath) 
		Mediaplayer.Play

		LogColor(FileName,Colors.Green)
		LogColor(Dir,Colors.Red)
	End If
End Sub

این قسمت رو جایگزین کنید.

 

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

بایگانی شده

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

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

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