Atlanta Custom Software Development 

 
   Search        Code/Page
 

User Login
Email

Password

 

Forgot the Password?
Services
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
Programming
  Database
Automation
OS/Networking
Graphics
Links
Tools
» Regular Expr Tester
» Free Tools

PlayAVIVideoOFF - Play only the audio track of an AVI file

Total Hit ( 2829)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article

Rating


 


Click here to copy the following block
Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" _
  (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm" Alias _
  "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, _
  ByVal uLength As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias _
  "GetShortPathNameA" (ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

' Play the audio track of an AVI file.
' FileName is a string containing the full path of the file.

Sub PlayAVIVideoOFF(FileName As String)
  Dim RetVal As Long
  Dim CommandString As String
  Dim ShortFileName As String * 260
  Dim deviceIsOpen As Boolean

  ' Retrieve short file name format
  RetVal = GetShortPathName(FileName, ShortFileName, Len(ShortFileName))
  FileName = Left$(ShortFileName, RetVal)
  
  ' Open the device
  CommandString = "Open " & FileName & " type avivideo alias AVIFile"
  RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
  If RetVal Then GoTo error
  
  ' remember that the device is now open
  deviceIsOpen = True
  
  ' Set video OFF
  CommandString = "Set AVIFile video off"
  RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
  If RetVal Then GoTo error
  
  ' Play the file
  CommandString = "Play AVIFile wait"
  RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
  If RetVal Then GoTo error
  
  ' Close the device
  CommandString = "Close AVIFile"
  RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
  If RetVal Then GoTo error

  Exit Sub
  
error:
  ' An error occurred.
  ' Get the error description
  Dim ErrorString As String
  ErrorString = Space$(256)
  mciGetErrorString RetVal, ErrorString, Len(ErrorString)
  ErrorString = Left$(ErrorString, InStr(ErrorString, vbNullChar) - 1)

  ' close the device if necessary
  If deviceIsOpen Then
    CommandString = "Close AVIFile"
    mciSendString CommandString, vbNullString, 0, 0&
  End If

  ' raise a custom error, with the proper description
  Err.Raise 999, , ErrorString

End Function


Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )


Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.