EditableMovie - Create movie from audio file

[Jeff Ayling <jeff at wam dot net dot au>]

Hi all,

I'm trying to take an audio file and a jpg and merge them into a new  
movie file. I'm getting close but I'm not quite there yet.


                   Dim desttrackv,srctrackv as QTVideoTrack
                   Dim desttrack,srctrack as QTSoundTrack
                   Dim m,msound,mpic as EditableMovie
                   Dim f as FolderItem

                   f= GetFolderItem("Movie.mov")
                   m=f.CreateMovie

                   desttrack=m.NewSoundTrack()
                   msound=getfolderitem("track.mp3").OpenEditableMovie
                   srctrack=msound.SoundTrack(1)
                   desttrack.InsertSoundTrackSegment srctrack, 0.0,_
                   srctrack.Duration, Max(0,m.Duration-2), true, false

                   desttrackv=m.NewVideoTrack(p1.width, p1.height, 32)
                   mpic=getfolderitemd("image.jpg").OpenEditableMovie
                   srctrackv=mpic.VideoTrack(1)
                   desttrackv.InsertVideoTrackSegment srctrackv, 0.0,_
                   srctrack.Duration, Max(0,m.Duration-2), true, false

                   f.launch //open qtplayer

Any help to tighten this up would be great - it currently ends up as  
a mov file with the correct audio but white video.

Thanks


Jeff
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>