获得wav语音文件时长

用代码获取文件时长。

直接读取wav文件头信息，从文件起始地址偏移28个字节长度为4个字节保存的是每秒钟播放的字节数，

从文件起始地址偏移40个字节长度为4个字节保存的是声音数据的总的字节数，相除就是播放时间。 

var

fileStream: TFileStream;
{文件头标志}
fileHeadArr: array[0..3] of Byte;
//每秒钟播放的字节数
//声音数据的总的字节数，相除就是播放时间
nSecByte, nCountByte: Integer;
begin
Result := -1;
fileStream := TFileStream.Create(strSourceFile, fmOpenRead or fmShareDenyNone);
try
try 
fileStream.Position := 28;
fileStream.Read(fileHeadArr, SizeOf(fileHeadArr));

nSecByte := StrToInt('$' + IntToHex(fileHeadArr[3], 2) + IntToHex(fileHeadArr[2], 2) +
IntToHex(fileHeadArr[1], 2) + IntToHex(fileHeadArr[0], 2));

fileStream.Position := 508;
fileStream.Read(fileHeadArr, SizeOf(fileHeadArr));
nCountByte := StrToInt('$' + IntToHex(fileHeadArr[3], 2) + IntToHex(fileHeadArr[2], 2) +
IntToHex(fileHeadArr[1], 2) + IntToHex(fileHeadArr[0], 2));

Result := nCountByte div nSecByte;
except
on e:Exception do
begin
       输出日志('GetFileDuration: ' + e.Message);
end; 
end;
finally
fileStream.Free;
end;