vfp 如何获取音乐文件的可播放时长

[pjy111]

vfp 如何获取音乐文件的可播放时长

[十豆三]

wav文件： H=Fopen("C:\test.wav") s=Fread(H,200) Fclose(H) byteps=Asc(Substr(s,29,1))+Asc(Substr(s,30,1))*256+Asc(Substr(s,31,1))*65536 && 每秒字节数(采样频率*声道数) aa=At("data",s)+4 && 数据量位置 dt1=Asc(Substr(s,aa,1))+Asc(Substr(s,aa+1,1))*256 dt2=Asc(Substr(s,aa+2,1))+Asc(Substr(s,aa+3,1))*256 nDelay=Int(1000*(dt1+dt2*65536)/byteps) && 得出毫秒数 MessageBox(nDelay)