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

  • 主题发起人 主题发起人 qiyafei
  • 开始时间 开始时间
Q

qiyafei

Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个程序调用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资源
 
谢谢各位了前阵子比较忙,没时间上网呵呵,不好意思啊
 
后退
顶部