Home » SWF Scout SDK » Tutorials and Samples » Sample: VideoWithPreloader.vbs - using automatic preloader generation in SWF Scout

Sample: VideoWithPreloader.vbs - using automatic preloader generation in SWF Scout

Submitted by eLenka on 21 April, 2011 - 14:31

This sample helps to add preloader to flash movie automatically using SWF Scout library.

SWF Scout is capable of generating preloaders. You can use existing images as logo image for preloader.

Generated flash movie:

VB Source Code:

' VideoWithPreloader.vbs you can find source code of this example along with required image, sound and  video files in  "Examples\More Examples\" sub-folder
  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
 
' adding image for preloader!  
  Image = Movie.AddImageFromFilename("swfscout_logo.jpg")
' adding preloader with logo image  
  Movie.AddPreloader 0, 0,0,0,180, 0,255,0,30, "Loading (%d% completed)...", Image
 
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 "VideoWithPreloader.swf"