devxlogo

PlayAVIAudioOFF – Playing an AVI file synchronously without the audio track

PlayAVIAudioOFF – Playing an AVI file synchronously without the audio track

 Shared Function _    GetShortPathName(ByVal lpszLongPath As String, _    ByVal lpszShortPath As System.Text.StringBuilder, _    ByVal cchBuffer As Integer) As IntegerEnd Function' Play an AVI file synchronously without the audio track.'' fileName is a string containing the full path of the file.'' Notes: requires the ExecuteMCICommand routineSub PlayAVIAudioOFF(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 audio OFF    commandString = "set AVIFile audio all 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

devx-admin

Share the Post: