AppleScripting QuickTime Pro 7 para exportar archivos .png

Question

AppleScripting QuickTime Pro 7 para exportar archivos .png

Preguntado el 6 de Mayo, 2015: Cuando se hizo la pregunta
718 visitas: Cuantas visitas ha tenido la pregunta
2 Respuestas: Cuantas respuestas ha tenido la pregunta
Resuelta: Estado actual de la pregunta

¿Cómo puedo utilizar AppleScript para guardar archivos .png desde el principio y el final de los archivos .mp4 con QuickTime? Esto es algo que estoy haciendo mucho y sería bueno automatizarlo. Tengo algo de experiencia en scripts pero no mucha.

Estoy utilizando QuickTime Pro 7 versión 7.6.6. Estoy utilizando el comando de exportación para obtener fotogramas que tengan el mismo tamaño que mi archivo de vídeo.

 (* 
Disclaimer: IMPORTANT: This Apple software is supplied to you by Apple Inc. ("Apple") in consideration of your agreement to the following terms, and your use, installation, modification or redistribution of this Apple software constitutes acceptance of these terms. If you do not agree with these terms, please do not use, install, modify or redistribute this Apple software.

In consideration of your agreement to abide by the following terms, and subject to these terms, Apple grants you a personal, non-exclusive license, under Apple's copyrights in this original Apple software ( the "Apple Software" ), to use, reproduce, modify and redistribute the Apple Software, with or without modifications, in source and / or binary forms; provided that if you redistribute the Apple Software in its entirety and without modifications, you must retain this notice and the following text and disclaimers in all such redistributions of the Apple Software. Neither the name, trademarks, service marks or logos of Apple Inc. may be used to endorse or promote products derived from the Apple Software without specific prior written permission from Apple. Except as expressly stated in this notice, no other rights or licenses, express or implied, are granted by Apple herein, including but not limited to any patent rights that may be infringed by your derivative works or by other works in which the Apple Software may be incorporated.

The Apple Software is provided by Apple on an "AS IS" basis. APPLE MAKES NO WARRANTIES, EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION THE IMPLIED WARRANTIES OF NON - INFRINGEMENT, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, REGARDING THE APPLE SOFTWARE OR ITS USE AND OPERATION ALONE OR IN COMBINATION WITH YOUR PRODUCTS.

IN NO EVENT SHALL APPLE BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION ) ARISING IN ANY WAY OUT OF THE USE, REPRODUCTION, MODIFICATION AND / OR DISTRIBUTION OF THE APPLE SOFTWARE, HOWEVER CAUSED AND WHETHER UNDER THEORY OF CONTRACT, TORT ( INCLUDING NEGLIGENCE ), STRICT LIABILITY OR OTHERWISE, EVEN IF APPLE HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Copyright ( C ) 2011 Apple Inc. All Rights Reserved.
*)

(* INSTRUCTIONS
This droplet is designed to process one or more files, or folders containing files, whose icons are dragged onto the droplet icon.
The droplet processes recursively, and will examine the contents of every dragged-on folder, and every sub-folder within those folders, to find and process any files who kind matches the indicated types.
You can set the droplet to process only files of a specific type, such as images, by adding the appropriate data types, name extensions, and type IDs to the values of the properties listed at the top of this script.
Place your script code for processing the found files, within the process_file() sub-routine at the bottom of this script.
*)

(* TO FILTER FOR SPECIFIC FILES, ENTER THE APPROPRIATE DATA IN THE FOLLOWING LISTS: *)
property type_list : {"M4V ", "mpg4"} -- e.g.: {"PICT", "JPEG", "TIFF", "GIFf"} 
property extension_list : {"mp4", "m4v", "mpg"} -- e.g.: {"txt", "text", "jpg", "jpeg"}, NOT: {".txt", ".text", ".jpg", ".jpeg"}
property typeIDs_list : {"public.mpeg-4"} -- e.g.: {"public.jpeg", "public.tiff", "public.png"}

(* IMAGE FILTERING *)
(*
-- QuickTime supported image formats
property type_list : {"JPEG", "TIFF", "PNGf", "8BPS", "BMPf", "GIFf", "PDF ", "PICT"}
property extension_list : {"jpg", "jpeg", "tif", "tiff", "png", "psd", "bmp", "gif", "jp2", "pdf", "pict", "pct", "sgi", "tga"}
property typeIDs_list : {"public.jpeg", "public.tiff", "public.png", "com.adobe.photoshop-image", "com.microsoft.bmp", "com.compuserve.gif", "public.jpeg-2000", "com.adobe.pdf", "com.apple.pict", "com.sgi.sgi-image", "com.truevision.tga-image"}
*)

(* MOVIE FILTERING *)
(*
-- iDVD supported movie formats
property type_list : {"dvc!", "MooV", "M4V ", "mpg4"}
property extension_list : {"mov", "mp4", "dv", "m4v","mpg"}
property typeIDs_list : {"public.mpeg-4", "com.apple.quicktime-movie"}
*)

-- This droplet processes files dropped onto the applet 
on open these_items
    repeat with i from 1 to the count of these_items
        set this_item to item i of these_items
        set the item_info to info for this_item
        if folder of the item_info is true then
            process_folder(this_item)
        else
            try
                set this_extension to the name extension of item_info
            on error
                set this_extension to ""
            end try
            try
                set this_filetype to the file type of item_info
            on error
                set this_filetype to ""
            end try
            try
                set this_typeID to the type identifier of item_info
            on error
                set this_typeID to ""
            end try
            if (folder of the item_info is false) and (package folder of the item_info is false) and (alias of the item_info is false) and ((this_filetype is in the type_list) or (this_extension is in the extension_list) or (this_typeID is in typeIDs_list)) then
                process_file(this_item)
            end if
        end if
    end repeat
end open

-- this sub-routine processes folders 
on process_folder(this_folder)

    tell application "Finder" to set f to name of this_folder
    log "Processing folder: " & f

    set these_items to list folder this_folder without invisibles
    repeat with i from 1 to the count of these_items
        set this_item to alias ((this_folder as Unicode text) & (item i of these_items))
        set the item_info to info for this_item
        if folder of the item_info is true then
            process_folder(this_item)
        else
            try
                set this_extension to the name extension of item_info
            on error
                set this_extension to ""
            end try
            try
                set this_filetype to the file type of item_info
            on error
                set this_filetype to ""
            end try
            try
                set this_typeID to the type identifier of item_info
            on error
                set this_typeID to ""
            end try
            if (folder of the item_info is false) and (package folder of the item_info is false) and (alias of the item_info is false) and ((this_filetype is in the type_list) or (this_extension is in the extension_list) or (this_typeID is in typeIDs_list)) then
                process_file(this_item)
            end if
        end if
    end repeat
end process_folder

-- this sub-routine processes files 
on process_file(this_item)
    -- NOTE that during execution, the variable this_item contains a file reference in alias format to the item passed into this sub-routine
    -- FILE PROCESSING STATEMENTS GO HERE
    tell application "QuickTime Player 7"
        set play movie from beginning when opened to false

        open this_item

        tell front document

            # Remove extension from filename
            set n to (this_item as string)
            set n to text 1 thru ((offset of "." in n) - 1) of n

            # Use .png since it will be overwritten later on...
            set xFileStart to n & "_start.png"
            set xFileEnd to n & "_end.png"

            # Positions (in seconds) in video to stop and take frames
            set sPos to 0
            set ePos to 0

            # Move for start frame
            set current time to (time scale * sPos)
            export to xFileStart as BMP using default settings with replacing

            # Move for end frame
            set current time to (duration - (time scale * ePos))
            export to xFileEnd as BMP using default settings with replacing

            close
        end tell

        # Do the actual conversion to PNG
        tell application "Image Events"
            set bmpFile to open file xFileStart
            save bmpFile as PNG
            set bmpFileEnd to open file xFileEnd
            save bmpFile as PNG
        end tell

    end tell
end process_file

Preguntado el 6 de Mayo, 2015 por WarrenBurstein

Answer 1

2 Respuestas

Answer 2

0voto

SPRBRN Puntos 1008

Aquí está mi script para exportar a PNG escrito para Snow Leopard. Usted puede ajustar para adaptarse a sus necesidades con bastante facilidad...

EDITAR: Aquí está su código incorporando el código original que publiqué. Esto funciona como usted describió que quería que el applet funcionara.

property type_list : {"M4V ", "mpg4"} -- e.g.: {"PICT", "JPEG", "TIFF", "GIFf"} 
property extension_list : {"mp4", "m4v", "mpg"} -- e.g.: {"txt", "text", "jpg", "jpeg"}, NOT: {".txt", ".text", ".jpg", ".jpeg"}
property typeIDs_list : {"public.mpeg-4"} -- e.g.: {"public.jpeg", "public.tiff", "public.png"}

on open these_items
    repeat with i from 1 to the count of these_items
        set this_item to item i of these_items
        set the item_info to info for this_item
        if folder of the item_info is true then
            process_folder(this_item)
        else
            try
                set this_extension to the name extension of item_info
            on error
                set this_extension to ""
            end try
            try
                set this_filetype to the file type of item_info
            on error
                set this_filetype to ""
            end try
            try
                set this_typeID to the type identifier of item_info
            on error
                set this_typeID to ""
            end try

            if (folder of the item_info is false) and (package folder of the item_info is false) and (alias of the item_info is false) and ((this_filetype is in the type_list) or (this_extension is in the extension_list) or (this_typeID is in typeIDs_list)) then
                process_file(this_item)
            end if
        end if
    end repeat
end open

-- this sub-routine processes folders 
on process_folder(this_folder)

    # Debug
    tell application "Finder" to set f to name of this_folder
    log "Processing folder: " & f

    set these_items to list folder this_folder without invisibles
    repeat with i from 1 to the count of these_items
        set this_item to alias ((this_folder as Unicode text) & (item i of these_items))
        set the item_info to info for this_item
        if folder of the item_info is true then
            process_folder(this_item)
        else
            try
                set this_extension to the name extension of item_info
            on error
                set this_extension to ""
            end try
            try
                set this_filetype to the file type of item_info
            on error
                set this_filetype to ""
            end try
            try
                set this_typeID to the type identifier of item_info
            on error
                set this_typeID to ""
            end try

            if (folder of the item_info is false) and (package folder of the item_info is false) and (alias of the item_info is false) and ((this_filetype is in the type_list) or (this_extension is in the extension_list) or (this_typeID is in typeIDs_list)) then
                process_file(this_item)
            end if
        end if
    end repeat
end process_folder

-- this sub-routine processes files 
on process_file(this_item)
    tell application "QuickTime Player 7"
        set play movie from beginning when opened to false

        open this_item

        tell front document

            # Remove extension from filename
            set n to (this_item as string)
            set n to text 1 thru ((offset of "." in n) - 1) of n

            # Use .png since it will be overwritten later on...
            set xFileStart to n & "_start.png"
            set xFileEnd to n & "_end.png"

            # Positions (in seconds) in video to stop and take frames
            set sPos to 1
            set ePos to 1

            # Move for start frame
            set current time to (time scale * sPos)
            export to xFileStart as BMP using default settings with replacing

            # Move for end frame
            set current time to (duration - (time scale * ePos))
            export to xFileEnd as BMP using default settings with replacing

            close
        end tell

        # Do the actual conversion to PNG
        tell application "Image Events"
            set bmpFile to open file xFileStart
            save bmpFile as PNG
            set bmpFileEnd to open file xFileEnd
            save bmpFile as PNG
        end tell

    end tell
end process_file

Respondido el 9 de Mayo, 2015 por SPRBRN (1008 Puntos )

Answer 3

0voto

Malik hassan Puntos 16

El Applescript que estás usando para Quicktime es incorrecto y le estás pidiendo que haga comandos que son de las adiciones estándar. I camino a

QuickTime no entenderá esto y fallará. De la misma manera:

set frameOne of this_item to track (beginning)
set frameEnd of this_item to track (end)

QT no sabrá qué Inicio y fin son

Deberías leer el diccionario de Quicktime 7 para entender su sintaxis.

En el Editor de script ve a la Ventana-> Biblioteca menú

Esto hará que aparezca la ventana de la Biblioteca del Diccionario de Aplicaciones.

Dudo que QT7 esté en la lista, así que ve al buscador y localiza QT7. Normalmente está en el /Aplicaciones/Utilidades carpeta.

Arrástrelo a la ventana de la Biblioteca del Diccionario de Aplicaciones.

A continuación, haga doble clic en él.

Se abrirá un diccionario. Léalo para comprender lo que QT7 puede entender.

Ahora el script.

No he tocado ninguna de las comprobaciones de los archivos.

Lo que he cambiado es el procesar_archivo() contenido del manejador. Y añadir algo de Objective - C para simplificar la obtención de la ruta y el nombre del archivo.

No te preocupes demasiado por lo de Objective -c. Puedes seguir utilizando el Applescript convencional que entiendas si quieres sólo sustituirlo.

Las partes importantes son:

Establecer la posición de la cabeza de reproducción y la exportación de la película. Como estamos usando BMP sólo se exportará el fotograma actual.

Fíjate que he puesto el inicio a 0 y el final a la duración completa de la película - 20.

Por lo que entiendo las medidas son en milisegundos. Así que tener -20 del final no debería hacer mucha diferencia en lo que se captura. Pero lo hago porque uno de mis videos de prueba tenía un problema para obtener el último fotograma en la duración completa. Me salía un error diciendo que el fotograma no era válido. Cambiándolo a un poco antes se solucionó el problema.

También uso un poco la línea de comandos para convertir el bmp en un png.

De nuevo, para simplificar las cosas (al menos para mí), puedes utilizar tu propio método si quieres.

use scripting additions
use framework "Foundation"

(* TO FILTER FOR SPECIFIC FILES, ENTER THE APPROPRIATE DATA IN THE FOLLOWING LISTS: *)
property type_list : {"M4V ", "mpg4"} -- e.g.: {"PICT", "JPEG", "TIFF", "GIFf"} 
property extension_list : {"mp4", "m4v", "mpg"} -- e.g.: {"txt", "text", "jpg", "jpeg"}, NOT: {".txt", ".text", ".jpg", ".jpeg"}
property typeIDs_list : {"public.mpeg-4"} -- e.g.: {"public.jpeg", "public.tiff", "public.png"}

-- This droplet processes files dropped onto the applet 
on open these_items
    repeat with i from 1 to the count of these_items
        set this_item to item i of these_items
        set the item_info to info for this_item
        if folder of the item_info is true then
            process_folder(this_item)
        else
            try
                set this_extension to the name extension of item_info
            on error
                set this_extension to ""
            end try
            try
                set this_filetype to the file type of item_info
            on error
                set this_filetype to ""
            end try
            try
                set this_typeID to the type identifier of item_info
            on error
                set this_typeID to ""
            end try
            if (folder of the item_info is false) and (package folder of the item_info is false) and (alias of the item_info is false) and ((this_filetype is in the type_list) or (this_extension is in the extension_list) or (this_typeID is in typeIDs_list)) then
                process_file(this_item)
            end if
        end if
    end repeat
end open

-- this sub-routine processes folders 
on process_folder(this_folder)
    set these_items to list folder this_folder without invisibles
    repeat with i from 1 to the count of these_items
        set this_item to alias ((this_folder as Unicode text) & (item i of these_items))
        set the item_info to info for this_item
        if folder of the item_info is true then
            process_folder(this_item)
        else
            try
                set this_extension to the name extension of item_info
            on error
                set this_extension to ""
            end try
            try
                set this_filetype to the file type of item_info
            on error
                set this_filetype to ""
            end try
            try
                set this_typeID to the type identifier of item_info
            on error
                set this_typeID to ""
            end try
            if (folder of the item_info is false) and (package folder of the item_info is false) and (alias of the item_info is false) and ((this_filetype is in the type_list) or (this_extension is in the extension_list) or (this_typeID is in typeIDs_list)) then
                process_file(this_item)
            end if
        end if
    end repeat
end process_folder

-- this sub-routine processes files 
on process_file(this_item)
    tell application "QuickTime Player 7"
        set thisDoc to open this_item -- This will open the file in Quicktime
        tell thisDoc
            set xFolder to its path
            set duro to its duration

        end tell

    end tell

    -->> Objective - c to get the name and file path
    set xFolder to current application's NSString's stringWithString:(xFolder as string)

    set file_path to ((xFolder's stringByDeletingLastPathComponent) as string) & "/"

    set file_name to xFolder's lastPathComponent

    set file_name to (file_name's stringByDeletingPathExtension) as string
    --<<

    tell application "QuickTime Player 7"
        tell thisDoc
            set current time to 0
            set xFileStart to file_path & file_name & "_start.png"

            export track 1 to xFileStart as BMP using default settings with replacing
            delay 1
            do shell script ("sips -s format png " & (quoted form of xFileStart)) -- convert to png
            set current time to (duro - 20)
            set xFileEnd to file_path & file_name & "_end.png"
            export track 1 to xFileEnd as BMP using default settings with replacing
            delay 1
            do shell script ("sips -s format png " & (quoted form of xFileEnd)) -- convert to png
        end tell
        close thisDoc
    end tell
end process_file

Respondido el 12 de Mayo, 2015 por Malik hassan (16 Puntos )

AppleScripting QuickTime Pro 7 para exportar archivos .png

Respuestas

Preguntas Destacadas

Etiquetas mas usadas

AppleAyuda.com

Powered by:

AppleScripting QuickTime Pro 7 para exportar archivos .png

Respuestas

Preguntas relacionadas

Preguntas Destacadas

Etiquetas mas usadas

En nuestra red

AppleAyuda.com

Powered by: