QuickTime Playerでオープン中のすべてのムービーを頭出し（再生位置を冒頭に移動）して、同時に再生を開始するAppleScriptです。
とくに工夫も何もない、「必要だから作った」というScript。複数の条件で行った操作を画面を録画してならべ、同時に再生を行わせるという用途で使いました。
頭出しとかいうのは、カセットテープ/ビデオテープ時代の名残りの表現ですが、、、、電子データで頭出しというのは、言うんだか言わないんだか、、、
| AppleScript名：QuickTime Playerでオープン中の全ムービーを頭出しして同時再生 |
| tell application "QuickTime Player" activate set dList to every document repeat with i in dList tell i set current time to 0 end tell end repeat tell every document to play end tell |
| AppleScript名：各画面でムービーを全画面再生 |
| tell application "QuickTime Player" activate set current time of every document to 0 present every document play every document end tell |
| AppleScript名：QuickTime Player X経由でムービー情報を取得 |
–QuickTime Player Xでムービーの情報を取得 tell application id "com.apple.QuickTimePlayerX" tell document 1 properties –> {size:59828718, volume:1.0, modified:false, current audio compression:missing value, name:"戦場の絆 17_07_31 17_09 リボー・コロニー（Ｒ） 4VS4 Aクラス.mp4", current microphone:missing value, output muted:false, duration:305.203077777778, current movie compression:missing value, current screen compression:missing value, data rate:196029, current camera:missing value, preview resolution:false, playing:true, class:document, file:file "Cherry:Users:me:Movies:戦場の絆 17_07_31 17_09 リボー・コロニー（Ｒ） 4VS4 Aクラス.mp4", natural dimensions:{1280, 720}, looping:false, time:1.6761711, rate:1.0} end tell end tell |
| AppleScript名：QuickTime Player Xで録音を開始する |
| tell application id "com.apple.QuickTimePlayerX" set recSound to (new audio recording) tell recSound start end tell end tell |
| AppleScript名：QuickTimeムービーの縦横ドット数を取得する |
| tell application "QuickTime Player" tell document 1 set {aWidth, aHeight} to natural dimensions end tell end tell –>{640, 480} |
| AppleScript名：QT Playerでムービー再生位置を先頭に（巻き戻し） |
| tell application "QuickTime Player" tell document 1 set current time to 0 end tell end tell |
| AppleScript名：オープン中のムービーのファイルにラベルを付ける |
| — Created 2017-10-26 by Takaaki Naganoya — 2017 Piyomaru Software –http://piyocast.com/as/archives/4925 tell application "QuickTime Player" set aDocList to every document end tell repeat with i in aDocList tell application "QuickTime Player" tell i set aProp to properties set aFile to (file of aProp) as alias end tell end tell tell application "Finder" set label index of aFile to 5 end tell end repeat |
| AppleScript名：ムービー再生速度を変更する |
| tell application "QuickTime Player" tell document 1 set rate to 2.0 end tell end tell |
| AppleScript名：QuickTIme Playerの最前面のムービーの現在表示中のコマをデスクトップにJPEG画像で保存 |
| — Created 2018-01-20 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "AppKit" –http://piyocast.com/as/archives/5123 property NSUUID : a reference to current application’s NSUUID property NSString : a reference to current application’s NSString property NSImage : a reference to current application’s NSImage property NSPasteboard : a reference to current application’s NSPasteboard property NSJPEGFileType : a reference to current application’s NSJPEGFileType property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep set the clipboard to "" –Clear Clipboard (=Pasteboard) tell application "QuickTime Player" –No Document check if (count every document) < 1 then display dialog "No Document…" with icon 2 buttons {"OK"} default button 1 return end if –Audio Movie check if natural dimensions of front document = {0, 0} then display dialog "This is an audio file" with icon 2 buttons {"OK"} default button 1 return end if end tell repeat 100 times activate application "QuickTime Player" tell application "System Events" tell process "QuickTime Player" click menu item 5 of menu 1 of menu bar item 4 of menu bar 1 –Edit > Copy end tell end tell delay 0.1 set aRes to dataIsInClipboard for JPEG picture if aRes = true then exit repeat end repeat if aRes = false then return –クリップボードの内容をNSImageに set aNSIMage to my getClipboardASImage() –保存先とファイル名を求める set targFol to POSIX path of (path to desktop) set aUUID to NSUUID’s UUID()’s UUIDString() as text set outPath to targFol & aUUID & ".jpg" set aRes to saveNSImageAtPathAsJPG(aNSIMage, outPath, 1.0) of me — クリップボードの内容をNSImageとして取り出して返す on getClipboardASImage() set theNSPasteboard to NSPasteboard’s generalPasteboard() set imageArray to theNSPasteboard’s readObjectsForClasses:({NSImage}) options:(missing value) set targImage to imageArray’s objectAtIndex:0 return targImage end getClipboardASImage –NSImageを指定パスにJPEG形式で保存、qulityNumは0.0〜1.0。1.0は無圧縮 on saveNSImageAtPathAsJPG(anImage, outPath, qulityNum as real) set imageRep to anImage’s TIFFRepresentation() set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep set pathString to NSString’s stringWithString:outPath set newPath to pathString’s stringByExpandingTildeInPath() set myNewImageData to (aRawimg’s representationUsingType:(NSJPEGFileType) |properties|:{NSImageCompressionFactor:qulityNum}) return (myNewImageData’s writeToFile:newPath atomically:true) as boolean end saveNSImageAtPathAsJPG –http://ashplanning.blogspot.jp/2006/12/blog-post.html on dataIsInClipboard for dataType return (clipboard info for dataType) is not {} end dataIsInClipboard |
