如何将一个SWF文件转换EXE成文件?高分重谢!

microluck 2002-11-20 03:53:37
请教:
如何将一个SWF文件转换EXE成文件?
...全文
49 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
dingyanwei 2002-12-02
  • 打赏
  • 举报
回复
用自带的播放器播放flash时,在文件菜单中,有个工程嘛。看看吧!
lqdmafeng 2002-12-02
  • 打赏
  • 举报
回复
拿DELPHI吗?
FLASH MX 可以的啊,!何必呢?
xtzhaobo 2002-12-02
  • 打赏
  • 举报
回复
flash 自带的播放器就有这个功能。
文件-》创建exe
atyzy 2002-12-01
  • 打赏
  • 举报
回复
flash mx里没有这个程序吗?
xrenboy 2002-11-23
  • 打赏
  • 举报
回复
tomicroluck (风流也被雨打风吹去...) :
给分啊!
xrenboy 2002-11-22
  • 打赏
  • 举报
回复
function Swf2Exe(SourceSwf, DestinyExe, Linker: string): boolean;
var
// Source、Destiny、Linker分别是swf、exe和Standalone Player的文件名
SourceStream, DestinyStream, LinkStream: TFileStream;
flag: Cardinal;
SwfFileSize: integer;
begin
result := false;
// 建立EXE文件
DestinyStream := TFileStream.Create(DestinyExe, fmCreate);
try
// 追加Standalone Player

LinkStream := TFileStream.Create(Linker, fmOpenRead or fmShareExclusive);
try
DestinyStream.CopyFrom(LinkStream, 0);
finally
LinkStream.Free;
end;

// 追加SWF文件
SourceStream := TFileStream.Create(SourceSwf, fmOpenRead or fmShareExclusive);
try
DestinyStream.CopyFrom(SourceStream, 0);
// 追加FA123456标志
flag := $FA123456;
DestinyStream.WriteBuffer(flag, sizeof(integer));
// 追加SWF文件长度
SwfFileSize := SourceStream.Size;
DestinyStream.WriteBuffer(SwfFileSize, sizeof(integer));
result := true;
beep;/////////////////////////////////
finally
SourceStream.Free;
end;

finally
DestinyStream.Free;
end;
end;

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧