返回顶部

收藏

使用 libZPlay 播放音乐文件

更多

libZPlay 集成了所有支持格式( mp3, mp2, mp1, ogg, flac, ac3, aac, oga, wav and pcm )的编码解码器。库本身是由WINAPI编写,你无须额外的库,也不需要MFC / .NET的支持,只能在Windows下运行。

Imports ConsoleApplication1.libZPlay
Module Module1
    Sub Main()
        Console.WriteLine("Playing test.mp3. Press Q to quit.")
        Dim player As New ZPlay()
        If player.OpenFile("test.mp3", TStreamFormat.sfAutodetect) = False Then
            Console.WriteLine(player.GetError())
            Return
        End If
        Dim info As New TStreamInfo()
        player.GetStreamInfo(info)
        Console.WriteLine("Length: {0:G}:{1:G}:{2:G}:{3:G}", info.Length.hms.hour, info.Length.hms.minute, info.Length.hms.second, info.Length.hms.millisecond)

        player.StartPlayback()

        Dim status As New TStreamStatus()
        Dim time As New TStreamTime()
        status.fPlay = True
        Dim cki As ConsoleKeyInfo

        Do While status.fPlay
            player.GetPosition(time)
            Console.Write("Pos: {0:G}:{1:G}:{2:G}:{3:G}" & Constants.vbCr, time.hms.hour, time.hms.minute, time.hms.second, time.hms.millisecond)
            player.GetStatus(status)
            System.Threading.Thread.Sleep(50)
            If Console.KeyAvailable Then
                cki = Console.ReadKey(True)
                If cki.Key = ConsoleKey.Q Then
                    player.StopPlayback()
                End If
            End If
        Loop
    End Sub
End Module
//该片段来自于http://outofmemory.cn

标签:VB,基础

收藏

0人收藏

支持

0

反对

0

相关聚客文章
  1. 博主 发表 2013-03-27 17:01:00 Java基础知识之Annotation
  2. C7210 发表 2013-06-23 06:17:53 iOS7界面设计规范(7) - UI基础 - 交互性与反馈
  3. Chen Zhidong 发表 2010-10-02 01:49:09 以Awesome为基础打造一个强大桌面系统
  4. learnhard 发表 2014-01-09 05:57:05 [原创]Python基础知识小结(1)
  5. Terry Zhang 发表 2014-04-26 08:05:35 [正则] Matcher 类中的方法
  6. ticmy 发表 2012-11-08 12:42:26 对象实例化的顺序
  7. tanglei 发表 2014-05-28 15:08:01 struct与class区别联系
  8. 博主 发表 2011-11-23 14:24:00 R语言基础入门之六(完):Logistic回归
  9. 美团技术团队 发表 2014-06-05 22:16:00 剖析 Promise 之基础篇
  10. 博主 发表 2015-01-16 10:24:01 JavaScript基础
  11. 浅墨 发表 2013-08-02 03:36:34 线程眼中的线性地址空间
  12. root 发表 2015-04-17 03:26:01 Yaf零基础学习总结5-Yaf类的自动加载