怎样获取一首曲子的播放时间长度呢?
解决方案 »
- 请问关于cxCombobox控件输入中文乱码的问题
- DBGrid cell选中后的高亮颜色问题?
- 帮忙看看这是那里出的错,谢谢
- 请问如何设置StringGrid 的表头
- 请问如何将char[]转换成string型?
- 如何使用Strtodate()函数?
- delphi和sql server中时间日期类型是如何转换的?
- delphi中TCHART的MARKS的LABELS的重叠问题(PIESERIES)
- 请教: 如何将Open对话框中的所选的拖到我自已的窗体中呢?我怎么知是对话框中拖动的内容,我怎么判断它的合法性?
- 急,关于SQl返回查询结果问题!
- 如何用捕捉其他程序的输入
- 如何控制子窗口的排列方式
begin
Self.MediaPlayer1.FileName := Self.OpenDialog1.FileName;
Self.MediaPlayer1.Open;
Self.MediaPlayer1.TimeFormat := tfMilliseconds;
ShowMessage(IntToStr(Self.MediaPlayer1.Length DIV 1000));
end;TimeFormat 用于指定时间的格式,由四个字节的整数组成,取值及含义:
tfMilliseconds : 四个字节为一个变量以毫秒为单位
tfHMS : 时、分、秒、未用
tfMSF : 分、秒、Frames、未用
tfFrames : 四个字节为一个变量以帧为单位
tfSMPTE24 : 以 24-Frame 计数:时、分、秒、Frames
tfSMPTE25 : 以 25-Frame 计数:时、分、秒、Frames
tfSMPTE30 : 以 30-Frame 计数:时、分、秒、Frames
tfSMPTE30Drop : 以 30-Drop-Frame 计数:时、分、秒、Frames
tfBytes : 时间按字节存储四字节整数
tfSamples : 时间按Samples存储四字节整数
tfTMSF : 轨道、分、秒、Frames