I can't script a QT movie to save to save my life
I can't script a QT movie to save to save my life
- Subject: I can't script a QT movie to save to save my life
- From: "Argyl L. Dickson, Jr." <email@hidden>
- Date: Fri, 05 Oct 2001 09:16:51 -0700
I am not sure why this is but I am relatively new to AS and am hopelessly
lost on solving this problem. I have a handler that is creating a QT movie
from an image sequence. I am unable to save it. I have been trying for
over a week to figure out the problem but I have been completely
unsuccessful. I need to save the created movie to a location as a QT movie
file so that I can have the script loop and create the next movie from
another image sequence. Any ideas would be greatly appreciated. My
unworkable handler is below.
to createMovie(referenceName, referenceFolder, targetFolder, movieNumber,
frameRateVar)
tell application "Finder"
set movieFolder to folder (referenceName & movieNumber as text) of
targetFolder
set firstFile to file 1 of movieFolder
end tell
set firstFile to firstFile as alias
set targetFolder to targetFolder as alias
set newMovieName to (referenceName & movieNumber as text)
tell application "QuickTime Player"
launch
activate
stop every movie
close every movie saving no
open image sequence firstFile frames per second frameRateVar
save movie 1 in newMovieName <--This is where it breaks every time
return name of movie 1
set movieName to result
quit saving no
end tell
tell application "Finder"
display dialog "If you wish to end here hit cancel"
end tell
return movieName
end createMovie