Mime-Version: |
1.0 (Apple Message framework v753.1) |
Sender: |
|
Date: |
Mon, 14 Jul 2008 18:20:18 +0200 |
Reply-To: |
|
Subject: |
|
From: |
|
Content-Transfer-Encoding: |
7bit |
In-Reply-To: |
|
Content-Type: |
text/plain; charset=US-ASCII; delsp=yes; format=flowed |
Comments: |
|
Parts/Attachments: |
|
|
Thanks Mark,
Just tried the code and it seems it is very close to perfect for me.
Together with the stuff I got it looks like the solution :) :)
Many thanks
Andreas
On 14.07.2008, at 17:28, Mark Lively wrote:
> 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.
|
|
|