Delphi SWF SDK contains pure Object Pascal library for creating
SWF files, without any external dynamic libraries.
Released features:
visual objects creating (shape, button, text);
advanced objects (morphing shape, sprite);
all types of filling (solid, gradient, image);
device and embedding fonts;
sound (events, streaming);
video;
action commands;
any transition and transformation; etc.
There is an ActiveX programming library based on the Delphi SWF SDK. So, Visual Basic, Visual Basic.NET, ASP, ASP.NET, Visual C++ and Visual C# programmers can use all features of the Delphi SWF SDK with the SWF Scout ActiveX
The example of a simple movie creating which shows rectangle moving
and circle transforming is below.
Procedure MakeSWF;
var Movie: TFlashMovie;
Shape1, Shape2: TFlashShape;
begin
Movie := TFlashMovie.Create(0, 0, 400 * twips, 400 * twips, 12);
Movie.Compressed := true;
Movie.SystemCoord := scPix;
Shape1 := Movie.AddCircle(0, 0, 50);
Shape1.SetRadialGragient(cswfWhite, SWFRGBA(clNavy), 35, 35);
Shape2 := Movie.AddRectangle(0, 0, 150, 50);
Shape2.SetSolidColor(SWFRGBA(clRed, $cc));
For il := 0 to 20 do begin With Movie.PlaceObject(Shape1, 1) do begin
SetScale(1+il / 10, 1+il / 20);
SetTranslate(200, 200);
if il>0 then RemoveDepth := true;
end;
With Movie.PlaceObject(Shape2, 2) do begin
SetTranslate(20+il, il*6);
if il>0 then RemoveDepth := true;
end;
Movie.ShowFrame;
end;
...
Movie.MakeStream;
Movie.SaveToFile('demo.swf');
Movie.Free;
end;
please wait.