AppleScript + Quicktime: запуск и остановка записи фильма и его экспорт на диск

Question

Попытка начать запись экрана, подождите несколько секунд, остановить запись и экспортировать сохраненную запись на диск.

Версии

• AppleScript 2.2.4
• QuickTime: 10,2

AppleScript

set filePath to "" & (path to desktop)

tell application "QuickTime Player"
    set newMovieRecording to new movie recording
    tell newMovieRecording
        start
        delay 2 --(seconds)
        stop
        export newMovieRecording in (filePath & "movie") using settings preset "25 fps"
    end tell
end tell

Команды останова и запуска работают правильно, но команда export дает сбой с этой ошибкой:

movie_record.scpt:215:294: execution error: QuickTime Player got an error: Can’t get document "Movie Recording". (-1728)

Answer 1

Нашел решение. Обратите внимание, что есть небольшая задержка (около ~ 2 секунд) с момента запуска сценария до фактического начала записи.

(*********************************************
Record a Single `QuickTime` Movie
Args:
    1. name: The name of the movie.
    2. seconds: The length of the movie you want to record in seconds.
Usage:
    > osascript movie_record.scpt 'name' 5
    > osascript movie_record.scpt <file_name> <seconds>
**********************************************)
on run argv
    set movieName to item 1 of argv
    set delaySeconds to item 2 of argv
    set filePath to (path to desktop as text) & movieName
    set f to a reference to file filePath

    tell application "QuickTime Player"
        set newMovieRecording to new movie recording

        tell newMovieRecording
            start
            delay delaySeconds
            pause
            save newMovieRecording in f
            stop
            close newMovieRecording
        end tell
    end tell
end run