中国第一Ajax站长门户:www.okajax.com   虚拟主机 域名注册 云主机

VB和c#取得mp3长度 - okajax.com - Ajax中国

我要投稿 会员登陆 RSS订阅 本站推荐:
您的位置主页 > 网页编程 > .net > VB和c#取得mp3长度

VB和c#取得mp3长度

2009-05-03    文章来源:互联网    浏览次数:

<< VB.Net >>

  1. Imports System.IO  
  2. Imports Microsoft.Win32 
  1. ' API 宣告  
  2. Private Declare Function mciSendStringA Lib "Winmm.dll" _  
  3.     (ByVal lpszCommand As StringByVal lpszReturnString As String, _  
  4.     ByVal cchReturn As IntegerByVal hwndCallback As IntPtr) As Integer 

 

  1. Private Sub Button1_Click(ByVal s As ObjectByVal e As EventArgs) Handles Button1.Click  
  2.  
  3.     MessageBox.Show(Cvt2HMS(GetMediaLen("C:\音樂欣賞\Candy Shop.mp3")))  
  4.     MessageBox.Show(Cvt2HMS(GetMediaLen("C:\音樂欣賞\國境之南.wmv")))  
  5.     MessageBox.Show(Cvt2HMS(GetMediaLen("C:\音樂欣賞\Time to say goodbye.wma")))  
  6.     MessageBox.Show(Cvt2HMS(GetMediaLen("C:\音樂欣賞\寶貝.flv")))  
  7.  
  8. End Sub 

 

  1. ' 取得多媒體檔案長度  
  2. Private Function GetMediaLen(ByVal File As StringAs Long 
  3.  
  4.     Dim key As String = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\MCI Extensions" 
  5.     Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey(key)  
  6.     Dim FileExt As String = (Path.GetExtension(File).Replace("."""))  
  7.     Dim tp As String = RegKey.GetValue(FileExt, "MPEGVideo")  
  8.     RegKey.Close()  
  9.  
  10.     Dim tm As New String(Chr(0), 128)  
  11.     Dim cmd As String 
  12.     cmd = "open """ & File & """ type " & tp & " alias Media" 
  13.  
  14.     If mciSendStringA(cmd, vbNullString, 0, 0) = 0 Then 
  15.         If mciSendStringA("status Media length", tm, tm.Length, 0) = 0 Then 
  16.             If tm <> "" Then GetMediaLen = Convert.ToInt32(tm) \ 1000  
  17.         End If 
  18.         mciSendStringA("close Media", vbNullString, 0, 0)  
  19.     End If 
  20.  
  21. End Function 

 

  1. ' 轉換成時分秒  
  2. Private Function Cvt2HMS(ByVal sec As LongAs String 
  3.  
  4.     Dim h, m, s As Integer 
  5.     Cvt2HMS = "" 
  6.     h = sec \ 3600  
  7.     If h > 0 Then Cvt2HMS &= h.ToString & "時" 
  8.     m = (sec Mod 3600) \ 60  
  9.     If m > 0 Then Cvt2HMS &= m.ToString & "分" 
  10.     s = (sec Mod 3600) Mod 60  
  11.     If s > 0 Then Cvt2HMS &= s.ToString & "秒" 
  12.  
  13. End Function 

Get Media Length 

<< C# >>

  1. using System.IO;  
  2. using Microsoft.Win32; 
  1. // API 宣告  
  2. [DllImport("winmm.dll", EntryPoint = "mciSendString", CharSet = CharSet.Auto)]  
  3. public static extern int mciSendString(  
  4.     string lpstrCommand, string lpstrReturnString,  
  5.     int uReturnLength, int hwndCallback); 

 

  1. private void button1_Click(object s, EventArgs e)  
  2. {  
  3.     MessageBox.Show(GetMediaLen(@"D:\音樂欣賞\Dirty.mp3").ToString() + " Sec");  

 

  1. // 取得多媒體檔案長度  
  2. private long GetMediaLen(string File)  
  3. {  
  4.     long RetVal = 0;  
  5.     string key = "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\MCI Extensions";  
  6.     RegistryKey RegKey = Registry.LocalMachine.OpenSubKey(key);  
  7.     string FileExt = Path.GetExtension(File).Replace(".""");  
  8.     string tp = RegKey.GetValue(FileExt, "MPEGVideo").ToString();  
  9.     RegKey.Close();  
  10.  
  11.     string tm = new string((char)0, 128);  
  12.     if (mciSendString("open \"" + File + "\" type " + tp + " alias Media"null, 0, 0) == 0)  
  13.         {  
  14.         if (mciSendString("status Media length", tm, tm.Length, 0) == 0)  
  15.         {  
  16.             tm = tm.Trim((char)0);  
  17.             if (!string.IsNullOrEmpty(tm)) RetVal = Convert.ToInt64(tm) / 1000;  
  18.         }  
  19.         mciSendString("close Media"null, 0, 0);  
  20.     }  
  21.     return RetVal;  

 

文章评论(查看全部)

看不清楚?单击换一张。
loading.. 评论加载中....
关于我们 - 广告服务 - 版权隐私 - 免责声明 - RSS地图 - 网站地图 - 使用帮助 - 返回顶部