Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Advanced
May 12, 2003

PlayAVIVideoOFF - Playing the audio track of an AVI file

<System.Runtime.InteropServices.DllImport("kernel32.dll")> Shared Function _
    GetShortPathName(ByVal lpszLongPath As String, _
    ByVal lpszShortPath As System.Text.StringBuilder, _
    ByVal cchBuffer As Integer) As Integer
End Function

' Play the audio track of an AVI file.
' fileName is a string containing the full path of the file.
'
' Notes: requires the ExecuteMCICommand routine

Sub PlayAVIVideoOFF(ByVal fileName As String)
    Dim commandString As String
    Dim shortFileName As New System.Text.StringBuilder(260)

    ' retrieve the file name in the short format (8+3 chars)
    GetShortPathName(fileName, shortFileName, shortFileName.Capacity)
    fileName = shortFileName.ToString()

    ' open the device
    commandString = "Open " & fileName & " type avivideo alias AVIFile"
    ExecuteMCICommand(commandString, False)

    ' set video OFF
    commandString = "Set AVIFile video off"
    ExecuteMCICommand(commandString, True)

    ' play the file
    commandString = "Play AVIFile wait"
    ExecuteMCICommand(commandString, True)

    ' close the device
    commandString = "Close AVIFile"
    ExecuteMCICommand(commandString, True)
End Sub  
Alberto Falossi
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap