Delphi SWF SDK (with source code)Delphi SWF SDK contains pure Object Pascal library for creating SWF files, without any external DLLsPlatforms: Windows 95/98/ME/NT/2000/XP/2003 Size: 2.30 M Cost: $299
Descriptions Delphi SWF SDK (with source code):
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;
|
