1#!/usr/bin/perl -w 2 3use SWF qw(:ALL); 4 5die "Usage: ".$0." <sourcedir>\n" unless @ARGV; 6$mediadir="$ARGV[0]/../Media"; 7 8$m = SWF::Movie::newSWFMovieWithVersion(7); 9 10$sound = new SWF::Sound($mediadir."/sound1.mp3", 11 SWF::Constants::SWF_SOUND_MP3_COMPRESSED); 12 13$m->addExport($sound,'sound1.mp3'); 14$m->startSound($sound); 15 16$sound2 = new SWF::Sound($mediadir."/sound1.mp3", 17 SWF::Constants::SWF_SOUND_MP3_COMPRESSED); 18 19$sound2->setInitialMp3Delay(2048); 20 21$m->addExport($sound2,'delaySeeked'); 22 23 24$m->save("test03.swf"); 25