程序里调用shockwaveflash的打包(50)

我做了一个程序调用ShockwaveFlash1播放动画请问在打包分发程序时应该做哪些工作？

http://www.delphibbs.com/keylife/iblog_show.asp?xid=30668利用 FlashAX控件 内存播放FLASH

运行的机器上安装flash播放器即可

FlashAX控件,一定要有的。运行的机器上安装flash播放器

不需要什么动态链接库之类注册什么的东西么？

to lqcros要不要这么复杂呵我是个初学者，看不懂你的程序给我一个简单点吧，要不要吧播放器也打包呵

to qiyafeihttp://www.delphibbs.com/keylife/iblog_show.asp?xid=30668利用 FlashAX控件 内存播放FLASH从这个地址里http://www.delphibbs.com/keylife/images/u229024/FlashAX.rar下载控件安装到你的delphi里再新建一个项目，在窗体上添加 安装的控件 TShockwaveFlashList把名称改成 player一个简单的例子： 新建一个文本文档，添加以下内容： CrnFlash RC_DATA "test.swf" 然后保存为1.rc 把上面的1.rc添加到工程中，然后在窗体上放置一个Memo和一个Button，在Button的点击事件中： procedure TForm1.Button1Click(Sender: TObject);var// mem: TMemoryStream;
rs: TResourceStream;
begin
Player.Items.Add.Create(Player.items);
// 建立一个 TSWFItem 就是 Player.Items[0]。不写这句就要在窗体设计时建立 with TOpenDialog.Create(self)do
begin
Filter := 'SWF|*.swf';
if Execute then
begin
rs := TResourceStream.Create(HInstance, 'CrnFlash', 'RC_DATA');
rs.Position := 0;
// mem := TMemoryStream.Create;// mem.LoadFromFile(FileName);// mem.Position := 0;
Player.Items[0].SWF.LoadMovieFromStream(rs);// mem.Free; rs.free;
end;

Free;
end;
end;

编译，就可以看到效果。 以上代码实现的从资源中读取Flash资源

谢谢各位了前阵子比较忙，没时间上网呵呵，不好意思啊