لود کردن آهنگ

[mehran3d 75]

سلام دوستان

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

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
به رنگ سبز

 

 

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

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

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

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

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

[M-CAP7AIN 537]

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

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

 

[mehran3d 75]

ممنون

چطور به مدیا پلیر بفهمونمش؟

Mediaplayer.load(file.dirrootexternal,"example. Mp3")

??

[M-CAP7AIN 537]

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

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

 

[mehran3d 75]

ممنونم

این آدرس برابر همین دستوره؟

File.Combine(dir,"filename")

همون  full path of file?