اطلاعات فایل موزیک

اندرویدستان · 10 تیر، ۱۳۹۶

کسی میدونه چطوری میشه اطلاعات یک فایل موزیک (MP3) رو از قبیل اسم و تصویر بدست آورد؟

تصویر مهمتره

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

اندرویدستان · 17 تیر، ۱۳۹۶

در در 1396/04/11, 21:37:53، shekaf گفته است :

شما میتونی ID3 موزیک هاروتو سرور بسازی و json بفرستی تا app نشون بده
یا از کتابخانه id3 تو خود app استفاده کن


Dim ID3 as ID3


ID3.Initialize(myDir, myFile)
If ID3.hasPictures then
   Dim bmp as Bitmap
   bmp = ID3.Cover
   '...do something with the cover bitmap
End if

اینم خوندن اطلاعات


Sub ReadID3Tag (Dir As String, Filename As String)
   Dim i       As Int
   Dim ID3     As ID3
   Dim Frame   As ID3_Frame
   Dim Pic     As ID3_Picture
   Dim Comment As ID3_Comment
   Dim Other   As ID3_OtherData
    '   
   ID3.Initialize(myFolder, myFile)
   If ID3.Exists = False Then lv.AddTwoLines(myFile, "no ID3 Tag found.")
      
   If ID3.version >= 3 Then 'id3v2.2 not supported
       
      If ID3.hasPictures Then lv.AddTwoLinesAndBitmap(myFile, "", ID3.Cover)
      
      lv.AddTwoLines("Title",             ID3.Title)
      lv.AddTwoLines("Artist",            ID3.Artist)
      lv.AddTwoLines("Album",             ID3.Album)
       lv.AddTwoLines("Genre",             ID3.Genre)
      lv.AddTwoLines("Track",             ID3.Track)
      lv.AddTwoLines("Comment",           ID3.Comment)
      lv.AddTwoLines("Copyright",         ID3.Copyright)
      lv.AddTwoLines("BPM",             ID3.bpm)
      
      'Get all attached pictures: 
       For i = 0 To ID3.Pictures.Size-1
           Pic = ID3.Pictures.Get(ID3.Pictures.GetKeyAt(i))
          lv.AddTwoLinesAndBitmap(Pic.Label, Pic.Description,ID3.GetBitmap(Pic.Picuretype))
      Next
      
      'Get all standard text information frames:
      For i = 0 To ID3.Frames.Size-1
           Frame = ID3.Frames.Get(ID3.Frames.GetKeyAt(i))
          lv.AddTwoLines(Frame.Name & " - " & Frame.label, Frame.Content)
       Next
      
      'Get all comments:
      For i = 0 To ID3.Comments.Size-1
           Comment = ID3.Comments.Get(ID3.Comments.GetKeyAt(i))
          lv.AddTwoLines(Comment.Label & " " & Comment.Language & " " & Comment.Description,Comment.Content)
       Next
      
      'Get all other frames:
      For i = 0 To ID3.OtherData.Size-1
           Other = ID3.otherdata.Get(ID3.otherdata.GetKeyAt(i))
          lv.AddTwoLines(Other.Name & " - " & Other.Label, Other.Content)
       Next
      lv.AddTwoLines("Version", "id3v2." & ID3.Version & "." & ID3.Revision)
      
   
   Else
   
       ID3.ReadVersion1
      lv.AddTwoLines("Title",    ID3.V1.Title)
      lv.AddTwoLines("Artist",   ID3.V1.Artist)
      lv.AddTwoLines("Album",    ID3.V1.Album)
       lv.AddTwoLines("Genre",    ID3.V1.Genre)
      lv.AddTwoLines("Track",    ID3.V1.Track)
      lv.AddTwoLines("Comment",  ID3.V1.Comment)
      
      lv.AddTwoLines("Version", "id3v1")
   End If
      
   If ID3.errCode > 0 Then
      lv.AddTwoLines("Error in id3 tag found", "Error " & ID3.ErrCode & " at Position " & ID3.ErrPosition)
    End If
      
End Sub

در در 1396/04/11, 21:37:53، shekaf گفته است :

شما میتونی ID3 موزیک هاروتو سرور بسازی و json بفرستی تا app نشون بده
یا از کتابخانه id3 تو خود app استفاده کن


Dim ID3 as ID3


ID3.Initialize(myDir, myFile)
If ID3.hasPictures then
   Dim bmp as Bitmap
   bmp = ID3.Cover
   '...do something with the cover bitmap
End if

اینم خوندن اطلاعات


Sub ReadID3Tag (Dir As String, Filename As String)
   Dim i       As Int
   Dim ID3     As ID3
   Dim Frame   As ID3_Frame
   Dim Pic     As ID3_Picture
   Dim Comment As ID3_Comment
   Dim Other   As ID3_OtherData
    '   
   ID3.Initialize(myFolder, myFile)
   If ID3.Exists = False Then lv.AddTwoLines(myFile, "no ID3 Tag found.")
      
   If ID3.version >= 3 Then 'id3v2.2 not supported
       
      If ID3.hasPictures Then lv.AddTwoLinesAndBitmap(myFile, "", ID3.Cover)
      
      lv.AddTwoLines("Title",             ID3.Title)
      lv.AddTwoLines("Artist",            ID3.Artist)
      lv.AddTwoLines("Album",             ID3.Album)
       lv.AddTwoLines("Genre",             ID3.Genre)
      lv.AddTwoLines("Track",             ID3.Track)
      lv.AddTwoLines("Comment",           ID3.Comment)
      lv.AddTwoLines("Copyright",         ID3.Copyright)
      lv.AddTwoLines("BPM",             ID3.bpm)
      
      'Get all attached pictures: 
       For i = 0 To ID3.Pictures.Size-1
           Pic = ID3.Pictures.Get(ID3.Pictures.GetKeyAt(i))
          lv.AddTwoLinesAndBitmap(Pic.Label, Pic.Description,ID3.GetBitmap(Pic.Picuretype))
      Next
      
      'Get all standard text information frames:
      For i = 0 To ID3.Frames.Size-1
           Frame = ID3.Frames.Get(ID3.Frames.GetKeyAt(i))
          lv.AddTwoLines(Frame.Name & " - " & Frame.label, Frame.Content)
       Next
      
      'Get all comments:
      For i = 0 To ID3.Comments.Size-1
           Comment = ID3.Comments.Get(ID3.Comments.GetKeyAt(i))
          lv.AddTwoLines(Comment.Label & " " & Comment.Language & " " & Comment.Description,Comment.Content)
       Next
      
      'Get all other frames:
      For i = 0 To ID3.OtherData.Size-1
           Other = ID3.otherdata.Get(ID3.otherdata.GetKeyAt(i))
          lv.AddTwoLines(Other.Name & " - " & Other.Label, Other.Content)
       Next
      lv.AddTwoLines("Version", "id3v2." & ID3.Version & "." & ID3.Revision)
      
   
   Else
   
       ID3.ReadVersion1
      lv.AddTwoLines("Title",    ID3.V1.Title)
      lv.AddTwoLines("Artist",   ID3.V1.Artist)
      lv.AddTwoLines("Album",    ID3.V1.Album)
       lv.AddTwoLines("Genre",    ID3.V1.Genre)
      lv.AddTwoLines("Track",    ID3.V1.Track)
      lv.AddTwoLines("Comment",  ID3.V1.Comment)
      
      lv.AddTwoLines("Version", "id3v1")
   End If
      
   If ID3.errCode > 0 Then
      lv.AddTwoLines("Error in id3 tag found", "Error " & ID3.ErrCode & " at Position " & ID3.ErrPosition)
    End If
      
End Sub

از کجا کتابخانه برای بیسیک4اندروید رو گیر بیارم؟

هرچی گشتم نبود.

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

فدایت

shekaf · 11 تیر، ۱۳۹۶

شما میتونی ID3 موزیک هاروتو سرور بسازی و json بفرستی تا app نشون بده
یا از کتابخانه id3 تو خود app استفاده کن

Dim ID3 as ID3


ID3.Initialize(myDir, myFile)
If ID3.hasPictures then
   Dim bmp as Bitmap
   bmp = ID3.Cover
   '...do something with the cover bitmap
End if

اینم خوندن اطلاعات

Sub ReadID3Tag (Dir As String, Filename As String)
   Dim i       As Int
   Dim ID3     As ID3
   Dim Frame   As ID3_Frame
   Dim Pic     As ID3_Picture
   Dim Comment As ID3_Comment
   Dim Other   As ID3_OtherData
    '   
   ID3.Initialize(myFolder, myFile)
   If ID3.Exists = False Then lv.AddTwoLines(myFile, "no ID3 Tag found.")
      
   If ID3.version >= 3 Then 'id3v2.2 not supported
       
      If ID3.hasPictures Then lv.AddTwoLinesAndBitmap(myFile, "", ID3.Cover)
      
      lv.AddTwoLines("Title",             ID3.Title)
      lv.AddTwoLines("Artist",            ID3.Artist)
      lv.AddTwoLines("Album",             ID3.Album)
       lv.AddTwoLines("Genre",             ID3.Genre)
      lv.AddTwoLines("Track",             ID3.Track)
      lv.AddTwoLines("Comment",           ID3.Comment)
      lv.AddTwoLines("Copyright",         ID3.Copyright)
      lv.AddTwoLines("BPM",             ID3.bpm)
      
      'Get all attached pictures: 
       For i = 0 To ID3.Pictures.Size-1
           Pic = ID3.Pictures.Get(ID3.Pictures.GetKeyAt(i))
          lv.AddTwoLinesAndBitmap(Pic.Label, Pic.Description,ID3.GetBitmap(Pic.Picuretype))
      Next
      
      'Get all standard text information frames:
      For i = 0 To ID3.Frames.Size-1
           Frame = ID3.Frames.Get(ID3.Frames.GetKeyAt(i))
          lv.AddTwoLines(Frame.Name & " - " & Frame.label, Frame.Content)
       Next
      
      'Get all comments:
      For i = 0 To ID3.Comments.Size-1
           Comment = ID3.Comments.Get(ID3.Comments.GetKeyAt(i))
          lv.AddTwoLines(Comment.Label & " " & Comment.Language & " " & Comment.Description,Comment.Content)
       Next
      
      'Get all other frames:
      For i = 0 To ID3.OtherData.Size-1
           Other = ID3.otherdata.Get(ID3.otherdata.GetKeyAt(i))
          lv.AddTwoLines(Other.Name & " - " & Other.Label, Other.Content)
       Next
      lv.AddTwoLines("Version", "id3v2." & ID3.Version & "." & ID3.Revision)
      
   
   Else
   
       ID3.ReadVersion1
      lv.AddTwoLines("Title",    ID3.V1.Title)
      lv.AddTwoLines("Artist",   ID3.V1.Artist)
      lv.AddTwoLines("Album",    ID3.V1.Album)
       lv.AddTwoLines("Genre",    ID3.V1.Genre)
      lv.AddTwoLines("Track",    ID3.V1.Track)
      lv.AddTwoLines("Comment",  ID3.V1.Comment)
      
      lv.AddTwoLines("Version", "id3v1")
   End If
      
   If ID3.errCode > 0 Then
      lv.AddTwoLines("Error in id3 tag found", "Error " & ID3.ErrCode & " at Position " & ID3.ErrPosition)
    End If
      
End Sub

اندرویدستان · 6 مرداد، ۱۳۹۶

کسی بلد نیست

مجید آرتا · 6 مرداد، ۱۳۹۶

در در 1396/04/17, 07:47:04، farsroom گفته است :

از کجا کتابخانه برای بیسیک4اندروید رو گیر بیارم؟

هرچی گشتم نبود.

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

فدایت

سلام

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

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

اینجا کافیه از کلاس MediaMetadataRetriever استفاده کنید که مخصوص فایل خاصی نیست و با تمامی فایل ها می تونید کار کنید.

تصویر »

سورس کد » ( فک کردم حجم فایل 1.8 مگ غافل از موضوع 18 مگ بخاطر فایل ها).

رمز: answercenter.ir

Media Info.rar

ورود

اطلاعات فایل موزیک

سوال

اندرویدستان 90

لینک ارسال

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

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

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

اندرویدستان 90

لینک ارسال

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

shekaf 30

لینک ارسال

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

اندرویدستان 90

لینک ارسال

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

مجید آرتا 5,874

لینک ارسال

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

بایگانی شده

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

فهرست بخش ها

فعالیت ها

فروشگاه