libZPlay documentation (Win32)
IndexReferenceHome
PreviousUpNext
Play disk file

Simple example of playing disk file to sound card output.

This example will show how to play disk file test.mp3.

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

 

Copyright (c) 2010. Zoran Cindori - All rights reserved.

Web: http://libzplay.sourceforge.net/

Email: zcindori@inet.hr