Click here to Skip to main content
15,569,858 members
Articles / Programming Languages / Visual Basic
Posted 3 Sep 2013


26 bookmarked

Mplayer Control by VB.NET used in Veron Media Player

Rate me:
Please Sign up or sign in to vote.
4.61/5 (28 votes)
16 Jul 2015CPOL4 min read
Code describing how we can easily control mplayer in VB.NET Winform application


This article will demonstrate how we can use mplayer to easily control in VB.NET WinForm application without using any COM/ActiveX control. Downloaded source code is sample part of Veron Media Player 1.9. At first, we need mplayer.exe in our main application's start path. It can be downloaded from here.


Mplayer is a command line audio & video player. It can play audio or video file using several different output drivers. There were no previous examples of how to use mplayer to play audio or video in VB.NET winform application. C++ examples that were found to control mplayer but it is more easy and reliable if we use VB.NET program.



Process object, Window handle control, Input and Output redirection.

Using the Code

We will use Process class of System.Diagnostics namespace to launch an instance of mplayer to play files. We'll redirect input & output so that we can send commands to mplayer and get information about the file.

Here is the code that we use to declare variables and initialize process:

Delegate Sub ChangeTextsSafe(ByVal percent As String)

' To declare Variables :-
  Dim args, time_length, time_pos, buffer, CDP As String
  Dim posh, tdr As Long
  Dim ps As Process = Nothing

' To initialize process :-
  ps = New Process()
  ps.StartInfo.ErrorDialog = False
  ps.StartInfo.UseShellExecute = False
  ps.StartInfo.RedirectStandardInput = True
  ps.StartInfo.RedirectStandardOutput = True
  ps.StartInfo.FileName = "mplayer.exe"
  ps.StartInfo.CreateNoWindow = True

Here, args will hold the arguments that will be passed to process except file name. ps is the process object which will use it to keep a reference to the mplayer process.

We will use "-slave" option because we want to run mplayer in 'slave' mode where it will read commands from another process and do actions accordingly. -nofs option for not to run in full screen mode. -wid option will tell the id of window where we want to display video output. Here we want to display in Panel1, so we get its handle and pass it after -wid. -af-add equalizer=0 : 0 : 0 : 0 : 0 : 0 : 0 : 0 : 0 : 0 used for giving audio effects command.

We used BackgroundWorker1 because we want to run mplayer on a separate way. So that we do not need timer to read mplayer's each line after 1 ms continuously. A timer can sometimes freeze the form.

When user clicks on open file, a dialog will open and after a file is selected, mplayer will run that file.

Code for playing file is as follows:

 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        End If

' mplay() procedure :-
  Public Sub mplay()
        args = "-nofs -noquiet -identify -slave -af-add equalizer=0:0:0:0:0:0:0:0:0:0 -volume " _
	& TrackBar1.Value & " -nomouseinput -sub-fuzziness 1 -vo direct3d, -ao dsound -osdlevel _
	0 -wid " & CInt(Panel1.Handle.ToInt32) & CDP
        ps.StartInfo.Arguments = args & " """ & OpenFileDialog1.FileName & """"
        CDP = ""
        posh = 1
        tdr = 1
    End Sub

' stp() procedure :-
    Public Sub stp()
        posh = 0
        End Try
        time_length = ""
        time_pos = ""
        Button1.Text = "Pause"
        ProgressBar1.Value = 0
        Label1.Text = "00:00:00"
        Label2.Text = "00:00:00"
    End Sub

First, we want to make sure that any previous instance of mplayer started by us is closed. So, ps.Kill in try catch used that if the process has already exited or not started, the error does not show. For special purposes, timer1 is used and I will discuss later. timer2 for activating effect if pre-selected. timer2 interval will be 1s to 3s, otherwise if less, sometimes it will not work. CDP is declared as string for adding argument to play CD.

We can send commands to mplayer to control the file that is being played. Each command must end with vbLf. SendCommand function will perform the task of sending commands to mplayer process.

Public Sub SendCommand(ByVal cmd As String)
         If ps IsNot Nothing AndAlso ps.HasExited = False Then
             ps.StandardInput.Write(cmd & vbLf)
         End If
     End Try
 End Sub

We can give any slave mode command to mplayer by this SendCommand function. All slave mode commands can be found in here.

DoWork event in BackgroundWorker1:

  Dim safedelegate As New ChangeTextsSafe(AddressOf ChangeTexts)
                If posh = 1 Then
                    Dim sLine As String = ps.StandardOutput.ReadLine
                    If sLine.Contains("ANS_LENGTH") Or sLine.Contains("ANS_TIME_POSITION") Then
                        Me.Invoke(safedelegate, sLine)
                    End If
                End If
            End Try

' ChangeTexts() procedure :-
Public Sub ChangeTexts(ByVal per As String)
            If posh = 1 Then
                If per.Contains("ANS_LENGTH") Then
                    ConvertTimeHHMMSS(per.Replace("ANS_LENGTH=", ""), 1)
                    ConvertTimeHHMMSS(per.Replace("ANS_TIME_POSITION=", ""), 0)
                End If
            End If
        End Try
    End Sub

Now, description about timer1. It is used to get file's duration & time position.

If tdr = 1 Then
       End If

Interval of timer1 must be 250 to 500ms. The value of tdr will be zero, when we will get file's time length. After zero, timer1 will send time-position command. Mplayer shows file's time position in seconds and we want to see it HH:MM:SS format. Therefore, ConvertTimeHHMMSS function was used. The following code is used for that function:

Public Sub ConvertTimeHHMMSS(ByVal timeInSeconds As Double, ByVal strx As Long)
        If timeInSeconds >= 0 Then
            Dim iSecond As Double = timeInSeconds
            Dim iSpan As TimeSpan = TimeSpan.FromSeconds(iSecond)
            If strx = 1 Then
                time_length = iSpan.Hours.ToString.PadLeft(2, "0"c) & _
                ":" & iSpan.Minutes.ToString.PadLeft(2, "0"c) & _
                ":" & iSpan.Seconds.ToString.PadLeft(2, "0"c)
                ProgressBar1.Maximum = timeInSeconds
                tdr = 0
                time_pos = iSpan.Hours.ToString.PadLeft(2, "0"c) & ":" _
                & iSpan.Minutes.ToString.PadLeft(2, "0"c) & ":" _
                & iSpan.Seconds.ToString.PadLeft(2, "0"c)
                ProgressBar1.Value = timeInSeconds
            End If
            Label1.Text = time_pos
            Label2.Text = time_length
        End If
    End Try
End Sub

Here, TimeSpan.FromSeconds method is used which returns a timespan that represents a specified number of seconds, where the specification is accurate to the nearest millisecond.

Code for MouseDown event in progressbar1:

           If e.Button = Windows.Forms.MouseButtons.Left And Button1.Text = "Pause" Then
               Dim dValue As Double
               dValue = (Convert.ToDouble(e.X) / Convert.ToDouble(ProgressBar1.Width)) * _
       (ProgressBar1.Maximum - ProgressBar1.Minimum)
               ProgressBar1.Value = Convert.ToInt32(dValue)
               SendCommand("seek " & ProgressBar1.Value & " 2")
           End If
       End Try

We can Rip/Read CD by mplayer. So, the argument will be then:

' To read CD, just add string in CDP :-
 Public Sub cdplay(ByVal r1 As String, ByVal r2 As String)
        CDP = " cdda://" & r1 & " -cdrom-device " & r2
    End Sub
' r1= Track Number, r2= cd drive name 

' To Rip CD :-
ps.StartInfo.Arguments = "-nofs -noquiet -identify -slave _
	-nomouseinput cdda://" & ListBox1.SelectedIndex + 1 & " _
	-cdrom-device " & ComboBox1.SelectedItem.ToString.Replace("\", "") & " -ao pcm"

' Show CD/DVD drives name :-
            For Each drive As DriveInfo In DriveInfo.GetDrives().Where_
		(Function(d) d.DriveType = DriveType.CDRom)
            ComboBox1.SelectedIndex = 0
        End Try

We can also listen to internet radio by mplayer with record option.

' To Stream :-
  ps.StartInfo.Arguments = "-nofs -noquiet -identify -slave -volume " & _
	TrackBar1.Value & " -nomouseinput -sub-fuzziness 1 " _
                & TextBox2.Text & " -capture"
' Here Textbox2 must contains Stream url and -capture command for recording. 
' It will record in mp3 format & file name is stream.dump

' To Record :- 
            If Button3.Text = "Record" Then
                    System.IO.File.Delete(Application.StartupPath & "\stream.dump")
                End Try
                Button3.Text = "Stop"
                SendCommand("capturing 0")
                Button3.Text = "Record"
            End If
        End Try

For audio effects:

Form1.SendCommand("af_eq_set_bands " & a1 & ":" & a2 & ":" & a3 & ":" & _
a4 & ":" & a5 & ":" & a6 & ":" & a7 & ":" & a8 & ":" & a9 & ":" & a10)
' Other effects can be found in downloaded project file

We can write config file of mplayer to set stream cache size and activate screenshot, video effects. We can add commands in argument if we do not like to write in config file. Config file written process will be:

# cache setting

Points of Interest

Mplayer is a really great command line application program and obviously VB.NET Program is one of the best to control mplayer. However, Mplayer has no audio visualization, but it can be possible by using FFT algorithm.


  • 03 September, 2013 - First release
  • 09 December, 2013 - Second release
  • 12 July, 2015 - Third release


This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Written By
United States United States
B.Sc in Electrical & Electronics Engineering
Interest in Power electronics & Computer programming

Comments and Discussions

GeneralRe: show video in mirror image Pin
Patrick McGorty20-Oct-13 14:46
Patrick McGorty20-Oct-13 14:46 
GeneralRe: show video in mirror image Pin
S.M.A.Faisal21-Oct-13 0:48
S.M.A.Faisal21-Oct-13 0:48 
GeneralRe: show video in mirror image Pin
Patrick McGorty21-Oct-13 6:28
Patrick McGorty21-Oct-13 6:28 
GeneralRe: show video in mirror image Pin
Patrick McGorty22-Oct-13 3:38
Patrick McGorty22-Oct-13 3:38 
GeneralRe: show video in mirror image Pin
S.M.A.Faisal22-Oct-13 5:25
S.M.A.Faisal22-Oct-13 5:25 
GeneralRe: show video in mirror image Pin
Patrick McGorty22-Oct-13 6:38
Patrick McGorty22-Oct-13 6:38 
GeneralMy vote of 5 Pin
Volynsky Alex4-Sep-13 3:02
professionalVolynsky Alex4-Sep-13 3:02 
QuestionA novel approach, gets my 5 Pin
Sacha Barber3-Sep-13 22:39
Sacha Barber3-Sep-13 22:39 
I like the way you rehost the process by using a PictureBox handle. Neat idea
Sacha Barber
  • Microsoft Visual C# MVP 2008-2012
  • Codeproject MVP 2008-2012
Open Source Projects

Your best friend is you.
I'm my best friend too. We share the same views, and hardly ever argue

My Blog :

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.