Capturing quicktime chapters

Question

Morning all,
Is there a way to use applescript to capture the frame that a quicktime movie stops at for chapters and then continue onto the next chapter?
I am intending to do this with quicktime movies made from keynote presentations, with the intention of creating a series of image files that will then be imported into Pages to be used as handouts.
Since Keynote will create a Quicktime file with pauses for builds and transitions I thought that might be the easiest way to get the images out for the handouts.
I've looked at the applescript thingie for Quicktime but haven't a clue where to start. I would appreciate any suggestions on getting this to work. I would like to be able to share this as a either an Automator thingie or applescript whatchyamacallit when I am finished, since there are so many people who would benefit from the results.
Gerry
http://pagesuser.com
Oh, if you want sample movies to play with you can find one here. You should be able to click and save from that link.
Message was edited by: Gerry Straathof - added sample movie

Answer 1

That's very close, but it saves each frame of each
chapter, making 466 images.
Is there a way to make it so it only captures the
last frame of a chapter?
Hi Gerry
Ok, if it's to save the last image in each chapter, it would be better with (save as picture), because it save the image at the movie current time.
This script is much faster, 10 seconds instead of 71 seconds, because (copy ,cut, paste) is not necessary any more.
71 seconds : the image sequence settings is 4 frames per seconds, format: JPEG )
property Main_folder : missing value
set Main_folder to choose folder
tell application "QuickTime Player"
if not (exists movie 1) then error "No movies are open."
stop movies
tell front movie to set {currMovie, T_name, duration_list} to ¬
{it, text 1 thru -5 of (get name), duration of chapters of (get first track whose kind is "Sprite")}
set T_target to my makeFolder(T_name)
repeat with i from 1 to (count duration_list)
tell currMovie
set current time to (item i of duration_list)
export to (T_target & T_name & " Chapter " & i) as picture using settings preset "Photo-JPEG" -- or "Uncommpressed", or "PNG"
end tell
end repeat
end tell
on makeFolder(n)
tell application "Finder" to return (make new folder at Main_folder with properties {name:"Images from Movie " & n}) as Unicode text
end makeFolder
PowerMac G5   Mac OS X (10.4.8)