SWF Scout |
Converting FLV into SWF flash movie using SWF Scout lib
See also: Converting AVI video into SWF flash movie video view generated "Video.SWF" flash movie ' Video.vbs W = 640
H = 480
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
Movie.SetBackgroundColor 255,255,255
Font = Movie.AddFont( "Arial",12,true,false,false,false,0)
FontBig = Movie.AddFont("Arial",40,true,false,false,false,DEFAULT_CHARSET)
'//////////////////////////
' VIDEO
'/////////////////////////
Text = Movie.AddText2 ("Video",0,0,0,255,FontBig,
W / 2, 60,2)
Movie.PlaceText Text,Movie.CurrentMaxDepth
' place text
Video= Movie.AddVideoFromFileName("test.flv")
Movie.FramesPerSecond= Movie.VIDEO_FramesPerSecond
Movie.PlaceVideo Video,Movie.CurrentMaxDepth
Movie.PLACE_SetTranslate 190,150
Movie.ShowFrame Movie.VIDEO_FrameCount
+ 10
Movie.EndMovie
Movie.SaveToFile "Video.swf" |
|
|
||