QTVideoTrack Class
A QuickTime video track.
More information available in parent classes: QTTrack:Object
Notes
The SelectCompressionSettings method displays the Compressor Settings dialog box that allows the user to choose the compressor, the quality, the frames per second, and the frequency of the key from Some video formats add an Options button below the Quality slider control.
Example
The following example creates a QuickTime movie from two images and a user-selected video effect.
Dim sequence as QTEffectSequence
Dim i,effectID as Integer
Dim theEffect as QTEffect
Dim track as QTVideoTrack
Dim m as EditableMovie
Dim f as FolderItem
Dim mybool as Boolean
f= GetFolderItem("Movie")
m=f.CreateMovie //create null movie
If radiobutton1.value then //get user's chosen effect
theEffect= GetQTCrossFadeEffect
else
theEffect= GetQTSMPTEEffect( Val(EffectsList.cell(EffectsList.ListIndex,1)))
end if
sequence= New QTEffectSequence(theEffect,ImageWell1.Image, _
ImageWell2.Image,96)
track=m.NewVideoTrack(ImageWell1.Image.width, _
ImageWell1.Image.height, 32)
mybool=track.SelectCompressionSettings
For i=1 to 96
sequence.frame=i
track.appendpicture sequence.image
progressBar1.value=i
Next
f.launch //open movieplayer
Dim i,effectID as Integer
Dim theEffect as QTEffect
Dim track as QTVideoTrack
Dim m as EditableMovie
Dim f as FolderItem
Dim mybool as Boolean
f= GetFolderItem("Movie")
m=f.CreateMovie //create null movie
If radiobutton1.value then //get user's chosen effect
theEffect= GetQTCrossFadeEffect
else
theEffect= GetQTSMPTEEffect( Val(EffectsList.cell(EffectsList.ListIndex,1)))
end if
sequence= New QTEffectSequence(theEffect,ImageWell1.Image, _
ImageWell2.Image,96)
track=m.NewVideoTrack(ImageWell1.Image.width, _
ImageWell1.Image.height, 32)
mybool=track.SelectCompressionSettings
For i=1 to 96
sequence.frame=i
track.appendpicture sequence.image
progressBar1.value=i
Next
f.launch //open movieplayer
See Also
EditableMovie, FolderItem, QTEffect, QTEffectSequence, QTTrack classes; GetCrossFadeEffect, GetQTSMPTEEEffect functions.