|
|
How to make a movie like a pro...
|
|
.::SWF::VideoStream(3pm) User Contributed Perl Documentation .::SWF::VideoStream(3pm) NAME
SWF::VideoStream - SWF Video class SYNOPSIS
use SWF::VideoStream; $videostream = new SWF::VideoStream("test.flv"); DESCRIPTION
SWF::VideoStream is a helper class useful for playing videos via SWF applications, either via embedded video data, or controlled by ActionScript. METHODS
$videostream = new SWF::VideoStream($filename) Creates a SWF::VideoStream object. If the file can't be opened the constructor will return an empty object. The filename is not limited to 'flv' extension. $frames = $videostream->getNumFrames() This method returns the number of video-frames of an object of SWF::VideoStream, this works only for embedded streams. In case of error you will get result of -1. $videostream->setDimension(width, height) This method sets width and height for streamed videos, this works only on streamed videos (progressive download or rtmp). $bool = $videostream->hasAudio() A test whether the embedded FLV stream also has audio data. $videostream->setFrameMode($mode) If the mode == SWFVIDEOSTREAM_MODE_AUTO (default) on every SWF movie frame a video frame is added. In SWFVIDEOSTREAM_MODE_MANUAL mode, the user needs to call the nextFrame() method to change the video's frame. This works only with embedded video streams. Does return the previous mode or -1 if an invalid mode was passed. $result = $videostream->nextFrame() Switch to next video frame. Works only with embedded video streams. Returns -1 if an error happend. Here follows some demo code how to use SWF::VideoStream objects (without ActionScript): use SWF qw(:ALL); # to be lazy $movie = new SWF::Movie(); $movie->setRate( 25 ); # $movie->setRate( 5 ); # e.g. 5 for slow motion # here movie set background etc. etc. # $video=new SWF::VideoStream('MyTestVideo.flv'); die if (-1 == $v->getNumFrames()); # abort if something went wrong # $video->setFrameMode(SWF::Constants::SWFVIDEOSTREAM_MODE_MANUAL); $video->seek(1000, 0); # for example only $displayitem = $movie->add($video); # # 250 for a 10 seconds movie part (at rate of 25 per minute) for(my $n = 0; $n < 250; ++$n) { $video->nextFrame(); $movie->nextFrame(); } $movie->save("MyTestVideo.swf",9); # that's all, folks $result = $videostream->seek($frame, $whence) This functions allows seeking $frame in video stream, returning the old video frame position. As value of $whence use one of the following: 0 for seeking from beginning 1 for seeking from current position 2 for seeking from end of file AUTHOR
developers of ming ming.sourceforge.net SEE ALSO
SWF, SWF::Action, SWF::Movie, SWF::MovieClip, SWF::Sound, SWF::SoundStream, SWF::Constants perl v5.14.2 2011-10-26 .::SWF::VideoStream(3pm)
