MACSCRPT Archives

July 2008

MACSCRPT@LISTSERV.DARTMOUTH.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Andreas Kiel <[log in to unmask]>
Reply To:
Macintosh Scripting Systems <[log in to unmask]>
Date:
Mon, 14 Jul 2008 18:04:25 +0200
Content-Type:
text/plain
Parts/Attachments:
text/plain (90 lines)
Thanks Mark,

Yes I could.
But the thing is to have maybe hundreds of movies which have to  
opened and closed. This would be both time consuming and a lot of  
"visual garbage"
So I will try the "other Mark's " suggestion.

Again Thanks to all Marks
Andreas

On 14.07.2008, at 17:28, Mark Lively wrote:

> On Jul 14, 2008, at 10:04 AM, Andreas Kiel wrote:
>
>> Thanks Mark
>>
>> On 14.07.2008, at 02:04, Mark Lively wrote:
>>
>>>>
>>>> typeList
>>>> -> {"Video Track", "vide", 0, 0.0, 0, "Sound Track", "soun", 2,  
>>>> 48.000499725342, 24, "Timecode Track", "tmcd", 0, 0.0, 0}
>>>> so that works and is correct (somehow: the sample rate looks a  
>>>> bit strange)
>>>>
>>>> In both cases it's the same QT file.
>>>>
>>>> Any ideas what I'm doing wrong?
>>>
>>> I think the problem is with system events.
>> ... and for the confirmation that I'm not an idiot
>>
>>>
>>> If you are using Studio you have a few additional options.  You  
>>> can load the movie into a player and use that to get some or all  
>>> of the properties (haven't done this, not sure which ones you can  
>>> get)
>> I got some simple steps there, but my Cocoa knowledge is around   
>> +- 0.
>>>
>>> A second option is to use call method and make cocoa calls the  
>>> quick time libraries.  Once again, I haven't done this but you  
>>> should be able to make a QTMovie and get the QTTracks.
>> See above
>>
>> Thanks
>> Andreas
>>
>
> Very quick and very dirty, but I hope this helps.
>
> on launched theObject
> 	--display dialog name of every text field of window 1
> 	set myMovie to POSIX path of (choose file)
> 	set qtMovie to call method "movieWithFile:error:" of class  
> "QTMovie" with parameters {myMovie, 0}
> 	mylog(myMovie)
> 	set aname to call method "movieAttributes" of qtMovie ---This  
> returns a dictionary the same as an AS record
> 	set aname to call method "description" of aname --Quick and Dirty  
> way to convert it to text
> 	mylog(tab & aname)
> 	set tracklist to call method "tracks" of qtMovie
> 	repeat with atrack in tracklist
> 		--returns a record that you can pull apart
> 		set aname to call method "trackAttributes" of atrack
> 		set trackname to |QTTrackDisplayNameAttribute| of aname
> 		mylog(trackname)
> 		set aname to call method "description" of aname
> 		mylog(tab & tab & aname)
> 		-- to get one attribute
> 		-- set aname to call method "attributeForKey:" of atrack with  
> parameter "QTTrackDisplayNameAttribute"
> 	end repeat
> end launched
>
> on mylog(someText)
> 	set oldcontent to content of text view 1 of scroll view "myBox" of  
> window 1
> 	set content of text view 1 of scroll view "myBox" of window 1 to  
> oldcontent & someText & return
> end mylog
>
>
>
> -Mark
> who should have thought of calling description on a record a LONG  
> LONG time ago.

ATOM RSS1 RSS2