SWF Scout |
How to create SWF flash animations
movies using SWF Scout library in ASP.NET environment. "Hello,
World!" example
You can download the source code of this example here: swfscout_asp_net.zip This page contains step by step tutorial how to create SWF flash animation file in ASP.NET using SWF Scout library. IMPORTANT NOTE: To use SWF Scout library on
web-server you have to have additional "Web License"
SWF Scout library is capable
of generating of in-memory SWF files so file needn't to be stored as
a file on hard drive and can be streamed right into the browser window.
There is a special "GenerateInMemoryFile"
property for such purposes. Set this property to TRUE
and the library will generate and keep your SWF as in-memory stream
without using of any temporary files.
1) Install
SWF Scout
library on your computer
and run Visual Studio.NET
2) Go
to File menu
and select New Project:
![]() Select ASP.NET
Web Application project
type and click OK
![]() 3) Visual
Studio.NET will create
new empty ASP.NET
project. Double-click
on the empty space of the form:
![]() This will open source code editor
window on procedure handling Page_Load
event. We will place
our code for SWF flash animation generation into this procedure:
![]() 4)
Use the following code for procedure (you can simply copy and paste
this code from this page into ASP.NET
source code editor window):
'Put user code to initialize
the page here
Dim
Movie
Dim
Size As Long
Dim
MemoryImage As
System.Array
Movie = CreateObject("SWFScout.FlashMovie")
Movie.InitLibrary("demo", "demo")
Movie.BeginMovie(0, 0, 640, 480, 1, 12, 6)
Movie.Compressed = True
Movie.GenerateInMemoryFile = True
Movie.SetBackgroundColor(255, 255, 255) '
set background color to white
Dim
Font As Long
Font = Movie.AddFont("Arial", 18, True,
False,
False,
False,
0) ' add font
' create and place text
Dim
Text As Long
Text = Movie.AddText("Hello, World!", 0, 0, 0, 255, Font, 0, 100, 250,
160)
Movie.PlaceText(Text, Movie.CurrentMaxDepth) '
place text into current depth
Movie.PLACE_FadeOut(0.5) '
fade out text
Dim
Shape As Long
Shape = Movie.AddShape '
add new shape
Movie.SHAPE_Rectangle(0, 140, 150, 285) '
draw rectangle
Movie.SHAPE_SetSolidColor(50, 255, 50, True,
255) ' set solid fill
for shape
Movie.PlaceShape(Shape, Movie.CurrentMaxDepth) '
place shape into current depth
Movie.ShowFrame(10) '
show 10 frames
Movie.EndMovie() ' end
movie generation
' get size of generated
in-memory SWF file
Size = Movie.BinaryImageSize
' create new buffer
with size equal to generated SWF file
Dim
Buffer(CInt(Size))
As Byte
' get in-memory swf
file as byte stream
MemoryImage = Movie.BinaryImage
' copy byte stream into
buffer
Array.Copy(MemoryImage, Buffer, Size)
' clear http output
Response.Clear()
' set the content type
to SWF
Response.ContentType = "application/x-shockwave-flash"
' add content type header
Response.AddHeader("Content-Type", "application/x-shockwave-flash")
' set the content disposition
Response.AddHeader("Content-Disposition", "inline;filename=shapes.swf")
' write the buffer with
swf file to the output
Response.BinaryWrite(Buffer)
Response.End()
' disconnect from library
Movie = Nothing
5) Now run ASP.NET
project using Debug
| Start command:
![]() Visual Studio.NET
will run ASP.NET
project on web-server and you will see Internet
Explorer window with
generated SWF flash animation:
![]()
|
|
|
||