Run ConvertFLVtoSWF.vbs: this will take Video.flv and will convert
into Video.swf
3) Open VideoPlayer.swf. This flash movie will load Video.swf and
will play it.
Source code of VideoPlayer.swf is in VideoPlayer.fla (based on this
sample)
Source code of ConvertingAVItoFLV.vbs (requires freeware
FFMPEG Scout, converts AVI into FLV):
' ////////////////////////////////////////////////
' converting AVI video into FLV using FFMPEG Scout
' ////////////////////////////////////////////////
W = 200
H = 150
Set VideoConverter = CreateObject("FFMpegScout.Application")
VideoConverter.InputFileName = "VideoSample.avi"
VideoConverter.OutputFileName = "Video.flv"
VideoConverter.Width = W
VideoConverter.Height = H
VideoConverter.Execute
Set VideoConverter = Nothing
Source code of ConvertFLVtoSWF.vbs (converts FLV into SWF
video flash movie using SWF Scout):
W = 200
H = 150
Set Movie = CreateObject("SWFScout.FlashMovie")
Movie.InitLibrary "demo", "demo"
' Movie creating and setting parameters
Movie.BeginMovie 0,0,W,H,1,12,6
Movie.Compressed = true
'//////////////////////////
' VIDEO
'/////////////////////////
Video= Movie.AddVideoFromFileName("video.flv")
Movie.FramesPerSecond= Movie.VIDEO_FramesPerSecond
Movie.PlaceVideo Video,Movie.CurrentMaxDepth
Movie.PLACE_SetTranslate 0,0
Movie.ShowFrame Movie.VIDEO_FrameCount
Movie.EndMovie
Movie.SaveToFile "video.swf"
Finally run VideoPlayer.swf - it will use "video.swf"
movie as source video movie to play video: