K
kenmnb2000
Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何将Flash文件嵌入到程序中，并播放？
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
J
japhe
Unregistered / Unconfirmed
GUEST, unregistred user!
用TShockwaveFlash控件
ShockwaveFlash1.Movie := 'c:/test.swf';
ShockwaveFlash1.Play;
ShockwaveFlash1.Movie := 'c:/test.swf';
ShockwaveFlash1.Play;
一
一份子
Unregistered / Unconfirmed
GUEST, unregistred user!
先增加TOCX控件,好像在系统WINDOW底下的目录,
在DELPHI里增加了这样TACTIIVE控件后就可以调用了
里面的方法,具体你再查一下,很简单的
在DELPHI里增加了这样TACTIIVE控件后就可以调用了
里面的方法,具体你再查一下,很简单的
B
bjaman
Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi IDE主菜单Component下点Import ActiveX Controls,选中ShockWaveFlash(Version1.0) 就可在ActiveX面板上添加TShockWaveFlash控件了
J
Johnny_du
Unregistered / Unconfirmed
GUEST, unregistred user!
japhe方法可以
S
sunnyfairy
Unregistered / Unconfirmed
GUEST, unregistred user!
分几步
1.做一个rc文件，里面编辑相关内容
2.用Brcc32.exe 在bin目录下，编译成RES文件
3.用ShockwaveFlash1播放。
ShockwaveFlash1.Movie := 'c:/test.swf';
ShockwaveFlash1.Play;
你可以查一下离线资料，有详细的说明。
1.做一个rc文件，里面编辑相关内容
2.用Brcc32.exe 在bin目录下，编译成RES文件
3.用ShockwaveFlash1播放。
ShockwaveFlash1.Movie := 'c:/test.swf';
ShockwaveFlash1.Play;
你可以查一下离线资料，有详细的说明。
K
kenmnb2000
Unregistered / Unconfirmed
GUEST, unregistred user!
我的意思是把Flash文件嵌入到程序中，最终交给用户的只有一个exe文件
J
japhe
Unregistered / Unconfirmed
GUEST, unregistred user!
这样啊，可以用sunnyfairy的方法，做成资源文件，不过我不会，呵呵。
但是我有个自己的笨方法，
就是把文件读入到二进制流中，
然后强行附加在EXE文件的尾部（不会影响EXE文件的运行，具体原因参照PE资料--其实我是不知道怎么解释），
要用的时候再从EXE文件尾部把文件读出来保存在本地文件夹中。
但是我有个自己的笨方法，
就是把文件读入到二进制流中，
然后强行附加在EXE文件的尾部（不会影响EXE文件的运行，具体原因参照PE资料--其实我是不知道怎么解释），
要用的时候再从EXE文件尾部把文件读出来保存在本地文件夹中。
K
kenmnb2000
Unregistered / Unconfirmed
GUEST, unregistred user!
有没有加入到exe文件中，又不需要读出保存到磁盘，然后再调用的方法？
我主要是希望Flash不被别人盗去或运行过程中被替换掉
我主要是希望Flash不被别人盗去或运行过程中被替换掉
J
japhe
Unregistered / Unconfirmed
GUEST, unregistred user!
这样啊，那就需要找一个能播放FLASH文件流的控件，刚才研究了下，发现TShockwaveFlash控件有个MovieData属性，不过是WideString类型，不知道行不行。
其实问题也比较容易解决，你可以把文件保存在一个比较隐蔽的地方，不要用SWF做后缀名，这样就算别人看到你的文件也不致于怀疑是FLASH文件
其实问题也比较容易解决，你可以把文件保存在一个比较隐蔽的地方，不要用SWF做后缀名，这样就算别人看到你的文件也不致于怀疑是FLASH文件
网
网中戏
Unregistered / Unconfirmed
GUEST, unregistred user!
放在资源里。用时释放到临时目录
S
sunnyfairy
Unregistered / Unconfirmed
GUEST, unregistred user!
说得很清楚了,就是不试试.
S
shunzi1220
Unregistered / Unconfirmed
GUEST, unregistred user!
FlashPlayercontrol，最新版本3.0，前几天刚破解好，不用OCX就可以播放FLASH，支持从资源文件载入。
Delphi 3, 4, 5, 6, 7, 2005, 2006 and Builder 3, 4, 5, 6 are supported. Macromedia Flash Player ActiveX 3, 4, 5, 6, 7, 8, 9 are supported.
原版下载：
http://www.f-in-box.com/
留下邮箱，我发给你。
Delphi 3, 4, 5, 6, 7, 2005, 2006 and Builder 3, 4, 5, 6 are supported. Macromedia Flash Player ActiveX 3, 4, 5, 6, 7, 8, 9 are supported.
原版下载：
http://www.f-in-box.com/
留下邮箱，我发给你。
L
lifangchao2008
Unregistered / Unconfirmed
GUEST, unregistred user!
首先你要添加一个ActiveX--------TShockwaveFlash控件!
添加完毕之后!将会在ActiveX组件选项卡中显示TShockwaveFlash
然后将他放置到窗口中,
最后写入如下代码! ----------------------------哈哈详细吧!
ShockwaveFlash1.Movie := 'c:/test.swf';
ShockwaveFlash1.Play;
添加完毕之后!将会在ActiveX组件选项卡中显示TShockwaveFlash
然后将他放置到窗口中,
最后写入如下代码! ----------------------------哈哈详细吧!
ShockwaveFlash1.Movie := 'c:/test.swf';
ShockwaveFlash1.Play;
C
chen_liang
Unregistered / Unconfirmed
GUEST, unregistred user!
shunzi1220发我一份，谢谢
26106505@qq.com
26106505@qq.com
网
网络3K
Unregistered / Unconfirmed
GUEST, unregistred user!
在窗体上放个TShockwaveFlash控件，然后设置Base的值为FLASH文件路径就行了。
按F9运行，编译成EXE，试试把SWF文件删掉，运行EXE看看是不是SWF文件已经嵌入
到程序里了。。。。。。
按F9运行，编译成EXE，试试把SWF文件删掉，运行EXE看看是不是SWF文件已经嵌入
到程序里了。。。。。。
K
kenmnb2000
Unregistered / Unconfirmed
GUEST, unregistred user!
kenmnb2000@163.com
L
liuchong
Unregistered / Unconfirmed
GUEST, unregistred user!
发给我一份，谢谢
x.boy@sina.com
x.boy@sina.com
L
liyong0775
Unregistered / Unconfirmed
GUEST, unregistred user!
shockwaveflash1控件
var
swf:string;
begin
opendialog1.execute;
swf:=opendialog1.filename;
shockwaveflash1.Movie:=swf;
shockwaveflash1.play;
end;
var
swf:string;
begin
opendialog1.execute;
swf:=opendialog1.filename;
shockwaveflash1.Movie:=swf;
shockwaveflash1.play;
end;
K
kenmnb2000
Unregistered / Unconfirmed
GUEST, unregistred user!
请问FlashPlayercontrol试用版有什么限制？kenmnb2000@163.com