.::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)