萧月禾急询：可否将FLASH动画编译到应用程序之中(100分)

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #1

今天把做好的界面原型带给客户看，希望借此获取新的意见，
结果发现忘了把一个界面上要用到的一个重要的FLASH动画的文件一并刻录到光盘上
（该动画并非只做装饰用），虽然未被上司K，但亦心感不安，
若能将该动画直接编译到应用程序中便不会有此类的失误，
故萧某急询将FLASH动画编译到应用程序之中的方法，望各位前辈、同道不吝指教。

（若能提供相应的例子，在下更是不胜感激）

 

X

xwings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #2

可以阿. 把flash 文件copy到exe的末尾.
读取的时候定位到指定位置.取出来写道临时文件里就可以了.

因该还可以用资源文件把.我不清楚了.

 

B

beggar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #3

容易吗，安装一个FLASH的控件文件，就可以了

 

A

ailine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #4

打包进资源文件然后程序运行在释放

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-23

• #5

抱歉，在下是用TShockwaveFlash在窗体上显示FLASH的，但该控件是通过指定FLASH的
文件路径来将其显示的，这个FLASH则要和应用程序一起拷贝，我是想直接把这个FLASH
装进应用程序中。如果是使用资源文件，不知道如何将它读取并显示？另外，我还要控制
该FLASH跳到某一桢继续播放（TShockwaveFlash可以做到），请各位大虾继续指教，
萧某感激！

 

A

ailine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-23

• #6

如果要指定路径,那就把资源文件中的flash 拷贝到指定路径就行了么!比如/system/,还算隐蔽,呵呵!
呵呵, 这类东西我做过,不过不是flash文件,是拷贝format.com,干坏事!!!代码好像还在!

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-23

• #7

To ailine:
代码还在啊！！嬉嬉！！给我一份可以吗？luyearli@163.com

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-24

• #8

请问如何把该flash文件保存在资源文件中？
如果保存 进去了，又如何将其读出并显示于程序窗体上？
用TShockwaveFlash似乎做不到这点！

看来该问题不算太简单，或各大虾不屑答之
在下唯有将分数提高至300分，望莫嫌之

能帮在下解决此问题者，在下将另加予200分，决不食言！！

 

D

donkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-25

• #9

用流来读写非常的简单，你要的答案论坛里有，可以搜索一下

 

陈

陈晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-29

• #10

真的有我看过了不过还没有试验

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-30

• #11

寫入資源文件不行?

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #12

萧某愚钝，实在找不到呀
真的没人愿意帮在下吗？

 

A

Ary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #13

首先新建一个资源文件“MyRes.rc”（文本文件），并加入如下一行：
MyFlash RCDATA "MyFlashFile.swf"　
“MyFlash”是指资源文件的名称，“MyFlashFile.swf”是指你要编入EXE的动画文件。
然后编译资源文件：
brcc32 C:/MyRes.rc
“BRCC32.EXE”在Delphi的BIN目录下，编译后得到“MyRes.res”。
在程序中加入：
{$R MyRes.res}
将资源文件编入EXE中。

以下是将资源文件中EXE中读出并写入特定的文件的代码：
var
ResStream: TResourceStream;
FileStream: TFileStream;
begin
ResStream := TResourceStream.Create(0, 'MyFlash', RT_RCDATA);
try
FileStream := TFileStream.Create('C:/MyFlashFile.swf', fmCreate);
try
FileStream.CopyFrom(ResStream, 0);
finally
FileStream.Free;
end;
finally
ResStream.Free;
end;
end;

最后再建议你看一看：http://www.delphipages.com/news/detaildocs.cfm?ID=38，不懂E文就算了。

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-08

• #14

楼上的就行啦.另外,你完成后做一个安装档,把所有的东东都加进去,怎么会出如此错误呢?
你加在EXE档中并不好,会造成可执行档太大,加在资源档中是一个法子,照上面的来啦.

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-12

• #15

多人接受答案了。