Menu

Skip to content
AppleScriptの穴
  • Home
  • Products
  • Docs
  • Events
  • Forum
  • About This Blog
  • License
  • 仕事依頼

AppleScriptの穴

Useful & Practical AppleScript archive. Click '★Click Here to Open This Script' Link to download each AppleScript

QuickTime Playerの最前面のムービーの現在表示中のコマをデスクトップにJPEG画像で保存

Posted on 2月 6, 2018 by Takaaki Naganoya
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

★Click Here to Open This Script 

Posted in 未分類 | Tagged 10.11savvy 10.12savvy 10.13savvy QuickTime Player | Leave a comment

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

電子書籍(PDF)をオンラインストアで販売中!

Google Search

Popular Posts

  • Keynoteの最前面のドキュメントの現在のスライドに指定月の日曜日はじまりカレンダーを表で作成
  • 指定フォルダに指定アイコン画像をつける v3
  • Numbersで選択範囲のセルのデータを取得して重複データを抽出
  • AppleScriptでキースキャン
  • 配列の指定要素を検索する(テキスト)
  • Numbersで選択中の表のセルの範囲を背景色で頻度集計
  • front document
  • 【基礎】AppleScriptの実行を(操作により)中断する
  • SafariでURLをローディング
  • AppleScript上でJavaScriptを実行する
  • 各種GUI要素なしでSafari上に新規ウィンドウ表示
  • スリープおよびスリープ解除Notificationを受信
  • NSProcessInfoでプロセスの各種情報を取得
  • Xcode 12.2betaでIntel/ARM Universal Binaryのビルドを確認
  • 画面上の指定座標にマウスカーソルを強制移動させてクリック
  • 文字置換 v2
  • CotEditorで編集中のMarkdown書類をPDFプレビュー
  • Safariで表示中のURLをwebarchive保存
  • 指定フォルダ内の指定拡張子のファイルのうち、指定キーワードで始まるものを
  • QuickTime Playerでオープン中の全ムービーを頭出しして同時再生

Tags

10.11savvy (1109) 10.12savvy (1249) 10.13savvy (1384) 10.14savvy (504) 10.15savvy (295) 11.0savvy (103) CotEditor (47) Finder (43) iTunes (25) Keynote (58) NSAlert (59) NSAlertSecondButtonReturn (16) NSArray (50) NSBitmapImageRep (20) NSBundle (19) NSButton (33) NSColor (48) NSDictionary (26) NSFileManager (23) NSFont (18) NSImage (40) NSJSONSerialization (20) NSMutableArray (61) NSMutableDictionary (21) NSPredicate (36) NSRunningApplication (55) NSScreen (30) NSScrollView (22) NSString (113) NSURL (93) NSURLRequest (22) NSUTF8StringEncoding (29) NSUUID (18) NSView (33) NSWindow (17) NSWorkspace (19) Numbers (42) Pages (16) Safari (34) System Events (16) WKUserContentController (20) WKUserScript (19) WKUserScriptInjectionTimeAtDocumentEnd (17) WKWebView (21) WKWebViewConfiguration (21)

カテゴリー

  • AirDrop
  • AirPlay
  • Animation
  • AppleScript Application on Xcode
  • Bluetooth
  • boolean
  • Bug
  • Calendar
  • call by reference
  • Clipboard
  • Code Sign
  • Color
  • Custom Class
  • dialog
  • drive
  • exif
  • file
  • File path
  • filter
  • folder
  • Font
  • GAME
  • geolocation
  • GUI
  • GUI Scripting
  • History
  • How To
  • Icon
  • Image
  • Input Method
  • Internet
  • JavaScript
  • JXA
  • Keychain
  • Language
  • list
  • Locale
  • Machine Learning
  • Markdown
  • Menu
  • Metadata
  • MIDI
  • MIME
  • Natural Language Processing
  • Network
  • news
  • Noification
  • Notarization
  • Number
  • OCR
  • OSA
  • PDF
  • Peripheral
  • PRODUCTS
  • QR Code
  • Raw AppleEvent Code
  • Record
  • recursive call
  • regexp
  • Release
  • Remote Control
  • Require Control-Command-R to run
  • REST API
  • RTF
  • Sandbox
  • Screen Saver
  • Script Libraries
  • sdef
  • search
  • Security
  • shell script
  • Sort
  • Sound
  • Spellchecker
  • Spotlight
  • SVG
  • System
  • Tag
  • Telephony
  • Text
  • Text to Speech
  • timezone
  • Tools
  • Update
  • URL
  • UTI
  • Web Contents Control
  • WiFi
  • XML
  • XML-RPC
  • イベント(Event)
  • 未分類

アーカイブ

  • 2021年1月
  • 2020年12月
  • 2020年11月
  • 2020年10月
  • 2020年9月
  • 2020年8月
  • 2020年7月
  • 2020年6月
  • 2020年5月
  • 2020年4月
  • 2020年3月
  • 2020年2月
  • 2020年1月
  • 2019年12月
  • 2019年11月
  • 2019年10月
  • 2019年9月
  • 2019年8月
  • 2019年7月
  • 2019年6月
  • 2019年5月
  • 2019年4月
  • 2019年3月
  • 2019年2月
  • 2019年1月
  • 2018年12月
  • 2018年11月
  • 2018年10月
  • 2018年9月
  • 2018年8月
  • 2018年7月
  • 2018年6月
  • 2018年5月
  • 2018年4月
  • 2018年3月
  • 2018年2月

https://piyomarusoft.booth.pm/items/301502

メタ情報

  • 登録
  • ログイン
  • 投稿フィード
  • コメントフィード
  • WordPress.org
Proudly powered by WordPress
Theme: Flint by Star Verte LLC