freebasic获取MP3的播放时长

#include once "Afx/CDSAudio.inc" 
#include once "Afx/CTime64.inc" 
Dim Audio_class  As CDSAudio
Dim Return_code As HRESULT = Audio_class.Load("E:\KuGou\Beyond - 海阔天空.mp3")
if Return_code = S_OK Then Print "加载成功" Else End
Dim Audio_Duration As Long = Audio_class.GetDuration / 10000000'获得的时间单位是100纳秒为单位，转化为秒
Print Audio_Duration &"秒" 'd打印时长，单位为秒。
Dim T As CTimeSpan = CTimeSpan(0, 0, 0, Audio_Duration)
Print  "该音乐时长为" & T.GetMinutes & "分" &T.GetSeconds &"秒"

 

和音乐信息上的时间长度是一致的。