快讯
首页 > 软件 > 开发特区 > 开发语言 > Delphi > 正文
世界杯

从问题到结果 ――EXE2SWF的开发手记

2004-02-14 09:34  出处：电脑爱好者  作者：Daffodil  责任编辑：zwg 

在本页浏览全文
btnOpen是用来打开硬盘上EXE形式的Flash文件的，双击之，添加如下的代码: procedure TForm1.btnOpenClick(Sender: TObject); begin // 通过OpenDialog让用户选择EXE形式的Flash if OpenDialog.Execute then begin edtSourceExe.Text := OpenDialog.FileName; // 自动生成.swf格式的文件名，方便用户 edtTargetSwf.Text := ChangeFileExt(edtSourceExe.Text, '.swf'); end; end; btnConvert是用来转换文件格式的按钮，双击之，添加如下代码: procedure TForm1.btnConvertClick(Sender: TObject); var // 分别处理EXE、SWF文件的文件流 SourceStream, DestinyStream: TFileStream; // SWF文件的大小 SwfFileSize: Cardinal; begin // 打开EXE形式的源文件 SourceStream := TFileStream.Create(edtSourceExe.Text, fmOpenRead or fmShareExclusive); try // 读取文件标志 SourceStream.Seek(- 2 * sizeof(integer), soFromEnd); SourceStream.ReadBuffer(SwfFileSize, sizeof(integer)); // 判断读到的文件标志是否和FA123456相同 // 借此判断是否是Macromedia官方格式的Flash文件 if SwfFileSize = $FA123456 then begin // 读取SWF文件的大小 SourceStream.ReadBuffer(SwfFileSize, sizeof(SwfFileSize)); SourceStream.Seek(- SwfFileSize - 2 * sizeof(integer), soFromEnd); // 打开目标SWF文件 DestinyStream := TFileStream.Create(edtTargetSwf.Text, fmCreate); try // 从EXE文件流中读取数据 DestinyStream.CopyFrom(SourceStream, SwfFileSize); ShowMessage('File has been converted successfully!'); finally // OK，释放文件流 DestinyStream.Free; end; end else ShowMessage('Unknown type of executable flash file!'); finally // OK，释放文件流 SourceStream.Free; end; end; 　　程序比较简单，参考代码中的注释，相信程序很好理解。现在按下F9运行，打开一个EXE形式的Flash文件，按下Convert键，相应的SWF形式的Flash便生成了，我们的目的也就达到了。原理分析清楚了，再做一个SWF2EXE也是很简单的事情，只需要在文件头部依次追加Macromedia Flash 5中的Standalone Player、SWF文件、FA123456标志以及SWF文件长度即可。
123在本页浏览全文
键盘也能翻页，试试“← →”键
软件频道本周热门文章
今日聚超值 更多>>
IT热词搜索 来源：360新闻
软件论坛精选 进入论坛>>
软件论坛帖子排行
  1. 1
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  2. 2
    %E8%8A%B1%E5%91%97%E6%80%8E%E4%B9%88%E5%A5%97%E5%87%BA%E7%8E%B0%E9%87%91%E3%80%90%E8%AF%A6%E8%A7%A3%E3%80%91
    楼
  3. 3
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  4. 4
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  5. 5
    ps清理剪贴板技巧分享
    楼
  6. 6
    局域网内网速度慢的原因及解决方法
    楼
  7. 7
    InDesign栏线插入教程分享
    楼
  8. 8
    抖音怎么破解对方的隐私设置 强制看对方隐藏的抖音号方法【详解】
    楼
  1. 1
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  2. 2
    %E8%8A%B1%E5%91%97%E6%80%8E%E4%B9%88%E5%A5%97%E5%87%BA%E7%8E%B0%E9%87%91%E3%80%90%E8%AF%A6%E8%A7%A3%E3%80%91
    楼
  3. 3
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  4. 4
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  5. 5
    ps清理剪贴板技巧分享
    楼
  6. 6
    局域网内网速度慢的原因及解决方法
    楼
  7. 7
    InDesign栏线插入教程分享
    楼
  8. 8
    抖音怎么破解对方的隐私设置 强制看对方隐藏的抖音号方法【详解】
    楼
  1. 1
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  2. 2
    %E8%8A%B1%E5%91%97%E6%80%8E%E4%B9%88%E5%A5%97%E5%87%BA%E7%8E%B0%E9%87%91%E3%80%90%E8%AF%A6%E8%A7%A3%E3%80%91
    楼
  3. 3
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  4. 4
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  5. 5
    ps清理剪贴板技巧分享
    楼
  6. 6
    局域网内网速度慢的原因及解决方法
    楼
  7. 7
    InDesign栏线插入教程分享
    楼
  8. 8
    抖音怎么破解对方的隐私设置 强制看对方隐藏的抖音号方法【详解】
    楼
高清壁纸
相关文章

相关软件：

腾讯QQ2012
大小：52.93 MB 授权：免费
腾讯QQ2012
立即下载
腾讯QQ2013
大小：49.32 MB 授权：免费
腾讯QQ2013
立即下载
最热搜索

无线路由器怎么用 会说话的汤姆猫电脑版 12306网上订火车票 跳舞吧 flash player 下载 PP助手电脑版 Adobe Reader(pdf阅读) iOS6正式版12项新功能 QQ空间克隆器 9158视频KTV 植物大战僵尸辅助工具 Win8怎么关机 QQ空间进不去 2013年春节是几月几号 QQ昵称 QQ空间皮肤 PPT模板 电脑输入法不见了怎么办 2012中秋节是几月几日 word安全模式 qq输入法怎么点亮 IE修复 感恩节是几月几日 CSS布局 PS快捷键 Outlook设置 声卡驱动器官方免费下载 格式工厂怎么用 桌面图标有阴影怎么去掉 Windows RT是什么意思 2013年日历设计 Word打不开怎么办 Win8专区 腾讯微云网 windows8激活工具 剑灵什么时候公测 QQ通讯录怎么用 开心斗地主 拖拉机小游戏 麻将游戏 中国象棋 德州扑克 黄金矿工中文版 保皇扑克游戏 四国军棋 万圣节是几月几日 ps抠图教程 12306订票助手 万圣节小游戏大全 rar文件怎么打开 Photoshop CS6教程 iOS6完美越狱 QQ个性签名