返回顶部

收藏

使用 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-01 00:00:00 旅游规划编制的基础思路
  2. c7210 发表 2013-06-15 16:12:58 iOS7界面设计规范(2) - UI基础 - iOS应用解析
  3. c7210 发表 2013-06-29 07:29:44 iOS7界面设计规范(12) - UI基础 - 品牌
  4. 瑶瑶 发表 2013-09-10 05:25:25 【041期】板式设计基础
  5. Terry Zhang 发表 2014-04-18 05:19:53 [NIO.2] 编写一个文件移动应用
  6. Terry Zhang 发表 2014-05-03 06:33:32 [集合框架] List 接口
  7. 博主 发表 2012-07-11 07:00:00 前端基础点
  8. 阿狸小喵 发表 2014-05-02 10:24:00 Ruby基础语法(2): Object More
  9. 田俊 发表 2014-09-10 11:32:36 (4)一起用python之基础篇——入门书
  10. 博主 发表 2014-05-29 00:00:00 Saltstack:基础服务部署
  11. jasl 发表 2014-11-21 00:36:59 CSS 基础语法
  12. 博主 发表 2014-02-21 16:00:00 Python基础入门

发表评论