怎样实现exe文件和swf文件转换,即exe<->swf

hawind 2003-10-28 05:43:10
我想实现exe文件和swf文件的双边转换,即exe->swf和swf->exe
都行。
mymail:delphi21@163.com
请给出例程和源码。
收到给分。
万分感谢!
...全文
56 19 打赏 收藏 举报
写回复
19 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hawind 2003-11-07
UP
  • 打赏
  • 举报
回复
hawind 2003-11-04
Uping
  • 打赏
  • 举报
回复
hawind 2003-11-03
我给你们发短信了。
  • 打赏
  • 举报
回复
aiirii 2003-11-02
to hawind(蓝色的风) :我以前试过, 绝对没有问题的, 因为我收藏的代码, 全部都是测试没有问题的, 如你还有问题, 直接给我留言, 这样快点!!!
  • 打赏
  • 举报
回复
flyinwuhan 2003-11-02
哥!
难道我给你讲的还不够明白!!!

另外我给你的exe->swf的函数难道不能运行吗!!!!!

你就等着吧,看谁能给你更满意的答案!!!!!
  • 打赏
  • 举报
回复
hawind 2003-11-01
怎么都没人回答了,
自己UP一下,不介意吧!
  • 打赏
  • 举报
回复
hawind 2003-10-31
to: aiirii(ari)
用你发给我的程序,我进行转换时。
可以成功,但之后什么也放不不出来!
  • 打赏
  • 举报
回复
flyinwuhan 2003-10-30
很简单的,给你一个exe->swf的函数:

procedure exe2swf( exeName,swfName: String);
var
SourStream,
DestStream : TFileStream;
SwfFileSize : Cardinal;
i, j : Integer;
begin

SourStream :=TFileStream.Create( exeName, fmOpenRead or fmShareExclusive );
try
SourStream.Seek( -2*SizeOf(Integer), soFromEnd );
SourStream.ReadBuffer( SwfFileSize, SizeOf(Integer) );

if SwfFileSize=$FA123456 then
begin
SourStream.ReadBuffer( SwfFileSize, SizeOf(SwfFileSize) );
SourStream.Seek( -SwfFileSize -2*SizeOf(Integer), soFromEnd );

DestStream :=TFileStream.Create( swfName, fmCreate );
try
DestStream.CopyFrom( SourStream, SwfFileSize );
ShowMessage( '转换成功。' );
finally
DestStream.Free;
end;
end
else begin
ShowMessage( '无法识别的EXE格式Flash影片。' );
end;
finally
SourStream.Free;
end;
end;
  • 打赏
  • 举报
回复
flyinwuhan 2003-10-30
那里有什么文件转换!
exe格式的swf文件不过是一个flash播放器程序后面跟着一个swf文件,两个文件写在一起,然后再在文件末尾写入swf文件的大小和“FA123456”标示。

所谓的swf->exe就是这么做的。
exe->swf反过来就可以了!从文件末尾得到内嵌的swf文件大小,然后新建一个空白的扩展名为.swf的文件,把内嵌的swf文件写入这个新文件就可以了!
  • 打赏
  • 举报
回复
hawind 2003-10-30
多谢楼上的。
但你发给我的只是swf2exe
我更需要exe->swf的了。
  • 打赏
  • 举报
回复
hawind 2003-10-30
我对文件的转换实在不太清楚。
怎么说呢!说不能明白其中的转换机制是什么?
若各位有知晓的,还望指点一二了,成分感谢!
  • 打赏
  • 举报
回复
aiirii 2003-10-30
to hawind(蓝色的风) :
sorry, 那是我根據網上的討論寫下來的, 太久了, 我都不知道裹面的內容, 但我覺得, 能生成, 也就能夠分開啊, 就是簡單的流操作而已!!
  • 打赏
  • 举报
回复
sailer_shi 2003-10-29
你要是肯等的话,我想我这两天就会给你发过去的
  • 打赏
  • 举报
回复
aiirii 2003-10-29
我已经给你发了邮件, 请查收!!!
  • 打赏
  • 举报
回复
hawind 2003-10-29
这个问题只是个索引。
请问楼上的,有关文件类形的转换到底是怎么进行的。
我是新手,对这方面还不怎么明白。
多谢!
  • 打赏
  • 举报
回复
Taken 2003-10-29
挺简单的,可惜我现在在公司,手头没有那个程序,我曾经自己做过一个。就是按照一些标志位把文件拆开。
  • 打赏
  • 举报
回复
hawind 2003-10-29
分不够可以在加。:)
  • 打赏
  • 举报
回复
hawind 2003-10-29
行,没问题!
那就多谢楼上的了。
  • 打赏
  • 举报
回复
tanqth 2003-10-28
up,不一定行的,
关注
  • 打赏
  • 举报
回复
相关推荐
发帖
GAME,图形处理/多媒体
加入

1176

社区成员

Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
申请成为版主
帖子事件
创建了帖子
2003-10-28 05:43
社区公告
暂无公告