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

Play an AVI movie

Total Hit ( 3692)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article

Rating


 


If you want to play an AVI movie from VB you can use MCI functions. The main MCI function is mciSendString, that sends command strings to the system and execute them:

Click here to copy the following block
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

The first argument is the command string, lpstrReturnString receives return information (if needed), uReturnLength indicates the size, in characters, of lpstrReturnString, and hwndCallback is used for system notification. Remember that every command string described in this tip must be sent to the system with:

Click here to copy the following block
CommandString = "Your MCI command here"
RetVal = mciSendString(CommandString, vbNullString, 0, 0)

First you must open the AVI device with

Click here to copy the following block
CommandString = "Open " + FileName + " type avivideo alias AVIFile"

Notice that FileName must be in the short format 8.3 characters; lpstrReturnString is null because you don't need any return information. "AVIFile" is an arbitrary name that you'll use in subsequent command strings as an alias of the filename. Once you've opened the file you you can start playing it with the following command:

Click here to copy the following block
CommandString = "Play AVIFile wait"

You can also play it full screen with:

Click here to copy the following block
CommandString = "Play AVIFile fullscreen wait"

The execution is synchronous, but you can play the file asynchronously and receive notifications with one of these commands:

Click here to copy the following block
' play an AVI movie with callback notifications
CommandString = "Play AVIFile notify"
RetVal = mciSendString(CommandString, vbNullString, 0, MyForm.hWnd)

' play an AVI movie full screen with callback notifications
CommandString = "Play AVIFile fullscreen notify"
RetVal = mciSendString(CommandString, vbNullString, 0, MyForm.hWnd)

where MyForm is the form you are using. The system sends your form a MM_MCINOTIFY message when the playback is finished. To intercept this message you have to create a custom window procedure and use a subclassing technique.
By default playback begins at the current position and stops at the end of the content, but you can play only a part of the file with:

Click here to copy the following block
CommandString = "Play AVIFile from X to Y"

X and Y are two different positions. It's often useful to specify X and Y in milliseconds, so before Play command you might use this command:

Click here to copy the following block
CommandString = "Set AVIFile time format milliseconds"

With asynchronous executions, you can pause / resume and stop playback with

Click here to copy the following block
' pause an AVI file
CommandString = "Pause AVIFile"
' resume a paused AVI file
CommandString = "Resume AVIFile"
' stop an AVI file
CommandString = "Stop AVIFile"

To play a movie without the audio send this string before the play command:

Click here to copy the following block
CommandString = "set AVIFile audio all off"

and you can also play just the audio track:

Click here to copy the following block
CommandString = "Set AVIFile video off"

When you have finished to work with the AVI device, you must close it with

Click here to copy the following block
CommandString = "Close AVIFile"



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.