Length (time) of QuickTime clip

[General]

Hi,

I’m having some difficulty using AppleScript to extract from a QuickTime movie its total length in terms of time.

I’ve tried to utilize frame (which I found by looking at QT dictionary), but I’m either not using it correctly or it just isn’t working.

Also, I’m able, of course, to position the QuickTime “in point” at the end of the clip and it returns a number (not time based) for that particular frame. How do I interpret that number in terms of time (hh:mm:ss:ff)?

This is very frustrating as QT makes the clip length available in serveral places in the interface (on the player timeline, movie properties, et al).

Thanks for the help…

bd

[jonn8]

This should work in QT 5 or later:

tell application “QuickTime Player”
if not (exists movie 1) then return “No movies are open.”
set movie_name to name of movie 1
set time_scale to time scale of movie 1
set movie_duration to duration of movie 1
set movie_length to my convert_seconds_to_hms(movie_duration div time_scale)
return {movie_name:movie_name, movie_length:movie_length}
end tell

on [color=green]convert_seconds_to_hms/color
set the_minutes to (the_seconds div 60)
if the_minutes is greater than or equal to 60 then
set the_hours to (((the_minutes div 60) as string) & “:”)
set the_minutes to (the_minutes mod 60)
if the_minutes < 10 then set the_minutes to “0” & the_minutes
else
set the_hours to “”
end if
set the_seconds to (the_seconds mod 60)
if the_seconds < 10 then set the_seconds to “0” & the_seconds
return the_hours & (the_minutes as string) & “:” & (the_seconds as string)
end convert_seconds_to_hms

–this script was automatically tagged for
–color coded syntax by Script to Markup Code

Jon