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

[hawind]

我想实现exe文件和swf文件的双边转换，即exe->swf和swf->exe
都行。
mymail:[e-mail]
请给出例程和源码。
收到给分。
万分感谢！

[tanqth]

up,不一定行的，
关注

[hawind]

行，没问题！
那就多谢楼上的了。

[hawind]

分不够可以在加。：）

[Taken]

挺简单的，可惜我现在在公司，手头没有那个程序，我曾经自己做过一个。就是按照一些标志位把文件拆开。

[hawind]

这个问题只是个索引。
请问楼上的，有关文件类形的转换到底是怎么进行的。
我是新手，对这方面还不怎么明白。
多谢！

[aiirii]

我已经给你发了邮件, 请查收!!!

[sailer_shi]

你要是肯等的话，我想我这两天就会给你发过去的

[aiirii]

to hawind(蓝色的风) :
sorry, 那是我根據網上的討論寫下來的, 太久了, 我都不知道裹面的內容, 但我覺得, 能生成, 也就能夠分開啊, 就是簡單的流操作而已!!

[hawind]

我对文件的转换实在不太清楚。
怎么说呢！说不能明白其中的转换机制是什么？
若各位有知晓的，还望指点一二了，成分感谢！

[hawind]

多谢楼上的。
但你发给我的只是swf2exe
我更需要exe->swf的了。

[flyinwuhan]

那里有什么文件转换！
exe格式的swf文件不过是一个flash播放器程序后面跟着一个swf文件，两个文件写在一起，然后再在文件末尾写入swf文件的大小和“FA123456”标示。

所谓的swf->exe就是这么做的。
exe->swf反过来就可以了！从文件末尾得到内嵌的swf文件大小，然后新建一个空白的扩展名为.swf的文件，把内嵌的swf文件写入这个新文件就可以了！

[flyinwuhan]

很简单的，给你一个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;

[hawind]

to: aiirii(ari)
用你发给我的程序，我进行转换时。
可以成功，但之后什么也放不不出来！

[hawind]

怎么都没人回答了，
自己UP一下，不介意吧！

[flyinwuhan]

哥！
难道我给你讲的还不够明白！！！

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

你就等着吧，看谁能给你更满意的答案！！！！！

[aiirii]

to hawind(蓝色的风) :我以前试过, 绝对没有问题的, 因为我收藏的代码, 全部都是测试没有问题的, 如你还有问题, 直接给我留言, 这样快点!!!

[hawind]

我给你们发短信了。

[hawind]

Uping

[hawind]

UP