FLV文件格式分析

FLV文件格式分析

FLV是一个二进制文件，由文件头（FLV header）和很多tag组成。tag又可以分成三类:audio,video,script，分别代表音频流，视频流，脚本流（关键字或者文件信息之类）。 FLV Header

一般比较简单，包括文件类型之类的全局信息，如图：

FLV body就是由很多tag组成的。

FLV文件里面帧的实体就是tag了。每个tag都可以分为两部分，第一部分包含是tag 类型信息，长度固定为15字节，如图：

第二部分为tag data，也就是flv的数据(有音频，视频，脚本等三类数据)，根据不同的tag类型就有不同的数据区，数据区的长度由第一部分的数据区长度字段定义，如图：

FLV文件格式分析

的总长度中不包括上个tag之前的4个描述再上一个tag的长度的4个字节，如图：

FLV文件格式分析

接下来说一下文件尾，在文件尾的最后有四个字节是定义最后一个tag的长度的，如图：

这里我门可以算一下，是00 00 00 DD是221，最后一个tag的长度是221，如图：

下面是不同类型的tag数据区的内容体

FLV文件格式分析

略n字...

下面是自己写的一段根据上面对FLV文件结构的分析读取FLV播放时间的Delphi代码：

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

OpenDialog1.Execute;

Edit1.Text:=OpenDialog1.FileName;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

iFileHandle: Integer;

iFileLength: Integer;

FLV文件格式分析

iBytesRead: Integer;

Buffer: array of Byte;

i: Integer;

str1,str2:String;

tminute,tSecond,tMillisecond,tmptime:Integer;

begin

if Edit1.Text = '' then

begin

ShowMessage('请选择文件！');

exit;

end;

iFileHandle := FileOpen( Edit1.Text , fmOpenRead);

iFileLength := FileSeek(iFileHandle, 0, 2);

FileSeek(iFileHandle, 0, 0);

SetLength(Buffer, iFileLength);

iBytesRead := FileRead(iFileHandle, Buffer[0], iFileLength);

FileClose(iFileHandle);

str1 := '';

for i := iBytesRead - 4 to iBytesRead - 1 do

begin

str1 := str1 + IntToHex(Buffer[i],2);

end;

str2 := '';

for i := iBytesRead - StrToInt('$'+str1) to iBytesRead - (StrToInt('$'+str1)-2) do

begin

str2 := str2 + IntToHex(Buffer[i],2);

end;

tMillisecond:=strtoint('$'+str2);

tminute:=(tMillisecond p 1000) p 60;

tSecond:=(tMillisecond p 1000) mod 60;

tmptime:=tMillisecond mod 1000;

Label2.Caption:=IntToStr(tminute)+'分'+IntToStr(tSecond)+'秒';

Buffer := nil;

end;