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

hawind 2003-10-28 05:43:10

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

...全文

98 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

hawind 2003-11-07

打赏
举报

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