<REMARK-JK:Oct2005 > On Mac OS X, you can control iTunes via AppleScript using the Tclapplescript extension, or you can even send raw apple events using the TclAE extension. You can pretty much control everything in this way, playing specific songs, managing playlists, and so on.For an example of this, implementing an iTunes controller inside Alpha, see http://mat.uab.es/~kock/alpha-tcl/iTunesController.tcl.gz (Recall that Alpha is an extremely powerful editor, written mostly in Tcl -- it's really paradise for Tcl scripters!)The Windows example below (the initial content of this page, by an anonymous author) implements a global hotkey. To do this in OSX, you should probably have a look at the hotkey example provided by DAS using ffidl. <END-OF-REMARK-BY-JK>
The examples below really only make sense on Windows.
The setup: with geoshell [3], hotkeys can be (fairly) easily created to do things like control the volume of the machine, mute, etc. These hotkeys are global hotkeys since they do not depend on any particular application to have focus. itunes for windows has some hotkeys to handle volume, pause, etc, but they are not global. I prefer to keep itunes minimised and peeking out from the system tray, so giving focus to itunes can be problematic at times. So, I wrote a series of tcl scripts to control itunes via COM.(for those without geoshell, a short cut of these tcl scripts can be used to create a hotkey. twapi [4] can be used to create shortcuts as well. An example of this here [5].)First, pause/play. When run, this script will pause and unpause itunes. This is very sensitive to context, though: whatever item the cursor is on is what gets played.
package require tcom set iTunes [::tcom::ref createobject "iTunes.Application"] $iTunes PlayPause exitSimple enough. Next, I create a hotkey for geoshell. When pressing control+window+p, the following command gets executed
"c:\tcl\bin\wish.exe" "C:\Documents and Settings\wl\batch\itunes_pause_play.tcl"and all seems good.To expand on this, I next create a pair of tcl scripts to control the volume
package require tcom set interval -2 set iTunes [::tcom::ref createobject "iTunes.Application"] set vol [$iTunes SoundVolume] if {[incr vol $interval] <= 0} { set vol 0 } $iTunes SoundVolume $vol exitand
package require tcom set interval 2 set iTunes [::tcom::ref createobject "iTunes.Application"] set vol [$iTunes SoundVolume] if {[incr vol $interval] >= 100} { set vol 100 } $iTunes SoundVolume $vol exitI create hotkeys for control+window+down to call the first script, and control+window+up to call the second script. I think what I really should have done is used one script that accepts arguments, and pass the arguments to change the volume.
After playing around with the COM and itunes a bit more, I wanted an easier way testing these ideas out. So, I created a little server to control itunes. A person telnets to port 9630 and issues a series of commands to control itunes. The interface is a bit clunky, though. The point of this isn't really to create a networked version of itunes, although adding something like Skype [6] could be really fun to play with.... I had some weird crashes when multiple people were using this, so I'm enforcing a one user at a time rule.Is this longer than appropriate for a wiki addition? Maybe, maybe not. Either way, I'm moving these things to a webserver: http://wliao.freeshell.org/tcl/itunes_server/itunes_server.txtFirst, a sample session of this:
> blah you got nothing. Try: info album | artist | bpm | coment | kind | name | time pause playlist kind | list | name | tracks [ n ] volume [ n ] quit | exit quit | exit > info name sleepy sunday show #20 > info kind MPEG audio file > playlist tracks 1 sleepy sunday show #20 2 tartanpodcast #62 3 tartanpodcast #63 4 tp - finniston live! 5 tp64 - tartanpodcast #64; the marathon 6 tpsss21 - sleepy sunday show #21 > playlist track 5 Playing track 5 -- tp64 - tartanpodcast #64; the marathon > playlist list 9 playlists 1 Library 923 tracks 2 Party Shuffle 21 tracks 3 all_songs 916 tracks 4 Recently Added 4 tracks 5 Recently Played 213 tracks 6 spods 6 tracks 7 super_shuffle 150 tracks 8 Podcasts 6 tracks 9 stream 8 tracks > playlist list 2 Playing first track of playlist 2 (Party Shuffle) > info album Trailer Park > info name Tangent > info artist Beth Orton >The script is at the url above. I didn't do a lot of error checking, and some of the phrasing is very clunky, I think... me no likey.One thing I know doesn't work is if nothing is playing, the track commands will usually (always?) fail. And of course, there's a ton of things I'd like to add to this ... over time, of course.
The original author of this page and the snippets is WL
Category Application - Category Music