Eine Playlist fuer den Quicktimeplayer

set x to choose several files with prompt "hol dir die mp3´s"
set z to count of x
repeat with n from 1 to z
  tell application "QuickTime Player"
     set susie to open item n of x
     play susie

   repeat while playing of susie
     delay 5
   end repeat
  end tell
end repeat



Eine Mp3 im Quicktimeplayer oeffnen

set x to choose file with prompt "get garb.mp3"
tell application "QuickTime Player"
   set y to open x
   --present x
   get name of y
   get duration of y
   get class of y
end tell

Quicktime-Daten in FilemakerPro auswerten

property theName : ""
property dura : 0
property drin : false


set mov to choose file with prompt "wähle eine neue mp3"
set x to "Macintosh HD:Demos:FileMaker Pro Demo:ente"

tell application "QuickTime Player"
   set y to open mov
   set theName to name of y
   set dura to duration of y
end tell

tell application "FileMaker Pro"
   open x
   set len to count of records
   repeat with i from 1 to len
     set rec to record i
     set lied to cell 1 of record i
     set dur to cell 2 of record i
     if lied = theName then
       if dur = dura then
       set drin to true
     end if
   end if
end repeat
if (not drin) then
   create record
     set cell 1 of record (count of records) to theName
     set cell 2 of record (count of records) to dura
   end if
end tell

Verzeichnis abspielen

set x to choose folder with prompt "choose the directory for playing"
set y to list folder x
set z to count of y
repeat with n from 1 to z
   set susie to item n of y
   tell application "Finder"
   set playme to file susie of x
end tell
tell application "QuickTime Player"
   set mov to open playme
   play mov
     repeat while playing of mov
       delay 5
     end repeat
   end tell
end repeat



Verzeichnis spielen

set x to (choose folder)
tell application "Finder"
   set listchen to files of x
end tell
repeat with i from 1 to (count of listchen)
   set liedchen to item i of listchen as string
   doPlaying(liedchen)
end repeat


on doPlaying(temp)
   set te to (temp as string)
   if te ends with ".mp3" then
     tell application "QuickTime Player"
       set erwin to open te
       erwin play
       get favorite 1
       repeat while playing of erwin
       delay 5
     end repeat
     end tell
   end if
end doPlaying