• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 4 رای - 3 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کد بدست اوردن مشخصات mp3(ویژوال بیسیک 6)
حالت خطی
#1
با سورس زیر میتوید تگ فایل mp3 از قبیل Artist و album و year و.... بیشتر شخصات یک فایل mp3 بدست بیارید.
سورس کد:
کد:
Returning information on an MP3 file

The following function reads summary information stored in an MP3 file:

Option Explicit

Public Type MP3Info
    Tag As String * 3
    Songname As String * 30
    Artist As String * 30
    Album As String * 30
    Year As String * 4
    Comment As String * 30
    Genre As String * 1
End Type


'Purpose     :  Returns a type containing information about an MP3 file
'Inputs      :  sFileName           The path and file name of the MP3
'Outputs     :  Returns a type containing information about an MP3 file


Function MP3GetInfo(sFileName As String) As MP3Info
    Dim sTemp As String, iFreeFile As Integer
    
    On Error GoTo ErrFailed
    iFreeFile = FreeFile
    Open sFileName For Binary As iFreeFile
    
    With MP3GetInfo
        Get #1, FileLen(sFileName) - 127, .Tag
        If Not .Tag = "TAG" Then
            Debug.Print "No tag for " & sFileName
        Else
            Get #1, , .Songname
            Get #1, , .Artist
            Get #1, , .Album
            Get #1, , .Year
            Get #1, , .Comment
            Get #1, , .Genre
        End If
    End With
    Close iFreeFile
    
    Exit Function
    
ErrFailed:
    Debug.Print "Error in MP3GetInfo: " & Err.Description
    Close iFreeFile
End Function
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
سورس کد بدست اوردن مشخصات mp3(ویژوال بیسیک 6) - توسط Amin_Mansouri - 05-15-2012، 02:24 PM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 18,466 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 7,061 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 14,632 08-13-2015، 10:08 PM
آخرین ارسال: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 7,997 07-03-2015، 11:14 AM
آخرین ارسال: aaaaaaaaa
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 8,572 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  مشکل با paste بیسیک 6 aghamali 1 3,963 01-18-2015، 08:53 PM
آخرین ارسال: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 7,856 11-07-2014، 04:25 PM
آخرین ارسال: aghamali
  سورس کد ذخیره میخوام روشنا 5 10,423 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 5,970 06-07-2014، 09:19 PM
آخرین ارسال: aleas
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 10,597 05-26-2014، 04:09 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان