提取swf中的声音文件程序源代码（Extract SWF sound file source code）.docVIP

提取swf中的声音文件程序源代码（Extract SWF sound file source code） ----------------以下为程序代码------------- 单位swfblue_u1； 接口 使用 Windows消息，SysUtils、变体、类、图形、控件、窗体， 对话框，actnlist，StdActns，StdCtrls，按钮，ShlObj，Zlib； 类型 tmain =类（平台） b_open：TButton； 按钮：TButton； 标签：TLabel； TLabel label2； 中的代码块为label3：TLabel； opendialog1：topendialog； label4：TLabel； e_dir：TEdit； speedbutton1：TSpeedButton； 程序b_openclick（发件人：TObject）； 程序button3click（发件人：TObject）； 程序formshow（发件人：TObject）； 程序speedbutton1click（发件人：TObject）； 私有的 {私人声明} 公众的 {公共声明} 文件长度：LongWord；/ / SWF文件尺寸 filebuf：数组的字节；/ /将SWF文件读入内存存放 结束； VaR 主营：tmain； 实施 { $ R * DFM }。 程序tmain b_openclick（发件人：TObject）； VaR f：文件； FWS：弦[ 3 ]；//标示信息 版本：字节；/ / SWF文件版本号 b，B1，B2：字节； 巴夫：数组的字节； 帧率：/ /速率房； 帧数：词；/ /总帧数 S：字符串； TagID：字；/ /标签标示 taglength：LongWord；/ /标签长度 currentpos，filelengthpos，tagpos，tmppos：整数； / / currentpos记录当前读写位置 / / filelengthpos记录文件长度参数位置 / / tagpos记录当前tagid位置 文件名：字符串；/ /存放SWF文件名（去掉了路径和扩展名） L：LongWord； SoundID：字；/ /事件声音的声音ID SoundInfo：字节；/ /事件声音的声音信息 soundsamplecount：LongWord； streamheadb1，streamheadb2：字节；/ /流声音的声音信息 StreamSoundSampleCount：字； 音乐档案：字符串；/ /记录生成的声音文件的扩展名，根据没有、ADPCM和MP3不同分为。WAV MP3和。 soundcount：词；/ /流声音类型的文件计数 文件名； unknow1：字； unknow2：LongWord； 开始 如果不opendialog1执行然后退出； 我不fmopenread：=； assignfile（F，opendialog1。文件名）；复位（F，1）； 设置缓冲区的长度（filebuf，文件大小（F））； blockread（F，filebuf [ 0 ]，文件大小（F））；//将文件读入内存 关闭一个打开的文件（F）； / /下面为读取SWF文件的文件头头部分 currentpos：= 0； / /读取fws”标示 规定长度（FWS，3）；移动（filebuf [ currentpos ]，和[ 1 ]，3）；公司（currentpos，3）； 如果FWS fws然后开始 设置缓冲区的长度（filebuf，0）； 被（“该文件不是Flash SWF文件！”）； 出口; 结束； / /读取版本号 移动（filebuf [ currentpos ]，版本，Sizeof（版））；公司（currentpos，Sizeof（版））； 如果版本 5然后开始 设置缓冲区的长度（filebuf，0）； 被（“该SWF文件不是Flash 5以上版本，本程序当前仅识别Flash 5以上格式SWF文件！”）； 出口; 结束； / /读取SWF文件长度 filelengthpos：= currentpos； （filebuf [移动] Sizeof（currentpos，文件长度，文件长度））；公司（currentpos、Sizeof（文件长度））； / /读取Xmax，XMin，YMin，YMax / /这里仅读出此四个值的存储字节存放到buf中，没有计算它们的实际值 移动（filebuf [ currentpos ]，B，1）；公司（currentpos，1）； b = SHR 3； / /得到位数（位） B2：= 5 + B2×4；而（B2 mod 8） 0做公司（B2）；/ /计算共有多少位点数 B2：=