{"id":168,"date":"2005-12-20T00:52:40","date_gmt":"2005-12-19T23:52:40","guid":{"rendered":"http:\/\/www.craigmurphy.com\/blog\/?p=168"},"modified":"2005-12-20T01:00:08","modified_gmt":"2005-12-20T00:00:08","slug":"creating-swf-movies-in-delphi","status":"publish","type":"post","link":"http:\/\/www.craigmurphy.com\/blog\/?p=168","title":{"rendered":"Creating SWF movies in Delphi"},"content":{"rendered":"

I reviewed Delphi+Flash<\/a> for The Delphi Magazine<\/a>: it’s a great product and is especially useful if you need to add animation to your application. <\/p>\n

\"Merry<\/p>\n

Here are a couple of sample animations:<\/p>\n

Example SWF 1<\/a>
\nExample SWF 2<\/a><\/p>\n

And some sample code:<\/p>\n


\n var Movie: TFlashMovie;
\n label1, label2, label3, label4: TSWFOffsetMarker;
\n EA: TSWFExportAssets;
\nbegin
\n Movie := TFlashMovie.Create(0, 0, 400 * twips, 200 * twips, 20);
\n Movie.Version := 6;
\n Movie.SystemCoord := scPix;<\/p>\n

Movie.AddRectangle(0, 0, 400, 300).SetLinearGradient(SWFRGBA($663300), SWFRGBA($CCFF99), 270);
\n Movie.PlaceObject(Movie.Shapes[0], 1);
\n Movie.BackgroundColor.RGB := SWFRGB(0,0,0);<\/p>\n

{ Text }
\n Movie.AddFont(Font, false);
\n With Movie.Fonts[0] do
\n begin
\n Size := 2 * twips;
\n Name := 'Times New Roman';
\n Bold := true;
\n end;
\n Movie.AddText('The Delphi Magazine', cswfWhite, Movie.Fonts[0], Point(0, 100), taRight);
\n Movie.AddSprite;
\n With Movie.Sprites[0] do
\n begin
\n PlaceObject(Movie.Texts[0], 10);
\n with PlaceObject(Movie.Texts[0], 9) do
\n begin
\n SetTranslate(2, 2);
\n InitColorTransform(true, -$FF, -$FF, -$FF, -150, false, 0, 0, 0, 0, true);
\n end;
\n end;
\n Movie.PlaceObject(Movie.Sprites[0], 10000).SetTranslate(395, 0);<\/p>\n

{ one snow }
\n Movie.AddStar(0, 0, 3, -3, 4).SetSolidColor(SWFRGBA($EE, $EE, $FF, $DD));<\/p>\n

Movie.AddSprite;
\n With Movie.Sprites[1] do
\n begin
\n PlaceObject(Movie.Shapes[1], 1);
\n With FrameActions do
\n begin
\n ConstantPool(['this', '_x', '_y', 'ZielX', 'ZielY']);
\n Push([400, 0], [vtInteger, vtConstant8]);
\n GetVariable;
\n Push([1], [vtConstant8]);
\n GetMember;
\n Less2;
\n _Not;
\n label1 := _If.BranchOffsetMarker;
\n PushConstant(0);
\n GetVariable;
\n Push([1, 10], [vtConstant8, vtInteger]);
\n SetMember;
\n SetMarker(label1);
\n PushConstant(0);
\n GetVariable;
\n Push([1], [vtConstant8]);
\n GetMember;
\n Push(0);
\n Less2;
\n _Not;
\n label2 := _If.BranchOffsetMarker;
\n PushConstant(0);
\n GetVariable;
\n Push([1, 250], [vtConstant8, vtInteger]);
\n SetMember;
\n SetMarker(label2);
\n PushConstant(0);
\n GetVariable;
\n PushConstant(2);
\n GetMember;
\n Push(0);
\n Less2;
\n _Not;
\n label3 := _If.BranchOffsetMarker;
\n PushConstant(0);
\n GetVariable;
\n Push([2, 250], [vtConstant8, vtInteger]);
\n SetMember;
\n SetMarker(label3);
\n Push([300, 0], [vtInteger, vtConstant8]);
\n GetVariable;
\n PushConstant(2);
\n GetMember;
\n Less2;
\n _Not;
\n label4 := _If.BranchOffsetMarker;
\n PushConstant(0);
\n GetVariable;
\n Push([2, 10], [vtConstant8, vtInteger]);
\n SetMember;
\n SetMarker(label4);
\n Push([3, 4], [vtConstant8, vtInteger]);
\n RandomNumber;
\n SetVariable;
\n Push([4, 4], [vtConstant8, vtInteger]);
\n RandomNumber;
\n SetVariable;
\n PushConstant(0);
\n GetVariable;
\n PushConstant([1, 3]);
\n GetVariable;
\n PushConstant(0);
\n GetVariable;
\n PushConstant(1);
\n GetMember;
\n Add2;
\n SetMember;
\n PushConstant(0);
\n GetVariable;
\n PushConstant([2, 4]);
\n GetVariable;
\n PushConstant(0);
\n GetVariable;
\n PushConstant(2);
\n GetMember;
\n Add2;
\n SetMember;
\n end;
\n ShowFrame;
\n RemoveObject(1);
\n FrameActions.GotoFrame(0);
\n FrameActions.Play;
\n ShowFrame;
\n end;<\/p>\n

EA := TSWFExportAssets.Create;
\n EA.Assets.Objects[EA.Assets.Add('bot')] := Pointer(LongInt(Movie.Sprites[1].CharacterId));
\n Movie.ObjectList.Add(EA);<\/p>\n

With Movie.FrameActions do
\n begin
\n ConstantPool(['max', 'i', 'zufall', 'bot', 'attachMovie', '_root', '_x', '_y', '_xscale', '_yscale', '_alpha']);
\n Push([0, 100], [vtConstant8, vtInteger]);
\n SetVariable;
\n Push([1, 0], [vtConstant8, vtInteger]);
\n SetVariable;
\n label2 := SetMarker;
\n PushConstant(1);
\n GetVariable;
\n PushConstant(0);
\n GetVariable;
\n Less2;
\n _Not;
\n label1 := _If.BranchOffsetMarker;
\n Push([2, 150], [vtConstant8, vtInteger]);
\n RandomNumber;
\n SetVariable;
\n Push([1], [vtConstant8]);
\n GetVariable;
\n PushConstant([3, 1]);
\n GetVariable;
\n Add2;
\n Push([3, 3, 4], [vtConstant8, vtInteger, vtConstant8]);
\n CallFunction;
\n Pop;
\n PushConstant(5);
\n GetVariable;
\n PushConstant([3, 1]);
\n GetVariable;
\n Add2;
\n GetMember;
\n Push([6, 800], [vtConstant8, vtInteger]);
\n RandomNumber;
\n SetMember;
\n PushConstant(5);
\n GetVariable;
\n Push([3, 1], [vtConstant8, vtConstant8]);
\n GetVariable;
\n Add2;
\n GetMember;
\n Push([7, 360], [vtConstant8, vtInteger]);
\n RandomNumber;
\n SetMember;
\n PushConstant(5);
\n GetVariable;
\n PushConstant([3, 1]);
\n GetVariable;
\n Add2;
\n GetMember;
\n PushConstant([8, 2]);
\n GetVariable;
\n SetMember;
\n PushConstant(5);
\n GetVariable;
\n PushConstant([3, 1]);
\n GetVariable;
\n Add2;
\n GetMember;
\n PushConstant([9, 2]);
\n GetVariable;
\n SetMember;
\n PushConstant(5);
\n GetVariable;
\n PushConstant([3, 1]);
\n GetVariable;
\n Add2;
\n GetMember;
\n PushConstant([10, 2]);
\n GetVariable;
\n SetMember;
\n PushConstant([1, 1]);
\n GetVariable;
\n Increment;
\n SetVariable;
\n Jump.BranchOffsetMarker := label2;
\n label2.JumpToBack := true;
\n SetMarker(label1);
\n end;<\/p>\n

Movie.ShowFrame;
\n Movie.MakeStream;
\n Movie.SaveToFile('demo.swf');
\n Movie.Free;<\/p>\n

ShellExecute(handle, 'open', 'demo.swf', nil, nil, SW_Normal);<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

I reviewed Delphi+Flash for The Delphi Magazine…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[15,4,3],"tags":[],"class_list":["post-168","post","type-post","status-publish","format-standard","hentry","category-net","category-delphi","category-development"],"_links":{"self":[{"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/168","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=168"}],"version-history":[{"count":0,"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/168\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=168"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=168"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.craigmurphy.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=168"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}