提取SWF中的声音文件程序源代码.docVIP

■ Flash深入研究之二——编程提取SWF中的声音文件 ————————————————以下为程序代码————————————— unit SWFBlue_u1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ActnList, StdActns, StdCtrls, Buttons, ShlObj, Zlib; type TMain = class(TForm) b_open: TButton; Button3: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; OpenDialog1: TOpenDialog; Label4: TLabel; e_dir: TEdit; SpeedButton1: TSpeedButton; procedure b_openClick(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } FileLength : LongWord; //SWF文件尺寸 FileBuf : Array of Byte; //将SWF文件读入内存存放 end; var Main: TMain; implementation {$R *.dfm} procedure TMain.b_openClick(Sender: TObject); var f : File; fws : string[3]; //标示信息 version : Byte; //SWF文件版本号 b,b1,b2 : Byte; Buf : Array of Byte; FrameRate : real; //速率 FrameCount : Word; //总帧数 s : string; TagID : Word; //Tag标示 TagLength : LongWord; //Tag长度 CurrentPos,FileLengthPos,TagPos,tmpPos : Integer; //CurrentPos记录当前读写位置 //FileLengthPos记录FileLength参数位置 //TagPos记录当前TagID位置 Filename : string; //存放SWF文件名（去掉了路径和扩展名） l : LongWord; SoundID : Word; //Event Sounds的Sound ID SoundInfo : Byte; //Event Sounds的声音信息 SoundSampleCount : LongWord; StreamHeadb1,StreamHeadb2 : Byte; //Stream Sounds的声音信息 StreamSoundSampleCount : Word; SoundFile : string; //记录生成的声音文件的扩展名，根据None、ADPCM和mp3不同分为.WAV和.MP3 SoundCount : Word; //Stream Sounds类型的文件计数 fw : File; Unknow1 : Word; UnKnow2 : LongWord; begin if not OpenDialog1.Execute then exit; FileMode:=fmOpenRead; AssignFile(f,OpenDialog1.FileName); Reset(f,1); SetLength(FileBuf,FileSize(f)); BlockRead(f,FileBuf[0],Filesize(f)); //将文件读入内存 CloseFile(f); //下面为读取SWF文件的文件头Header部分 CurrentPos:=0; //读取FWS标示