HMSRec=record //自定义一个记录类型。用于获取播放文件的时间数据
HOurs:byte;
Minutes:byte;
Seconds:byte;
NotUsed:byte;
end;..............
procedure TbrowserForm.Timer1Timer(Sender: TObject);
var l:longInt;
begin
MediaPlayer1.TimeFormat:=tfHMS;
scrollBar1.Position:=MediaPlayer1.Position;l:=MediaPlayer1.Position;with HMSRec(l) do
begintoolButton11.Caption:=IntToStr(Hours);
toolButton12.Caption:=IntToStr(Minutes);
toolButton13.Caption:=IntToStr(Seconds);
end;
得到的显示效果,非常不理想:hours,Minutes,Seconds老是再变帮帮忙啊!
[email protected]
HOurs:byte;
Minutes:byte;
Seconds:byte;
NotUsed:byte;
end;..............
procedure TbrowserForm.Timer1Timer(Sender: TObject);
var l:longInt;
begin
MediaPlayer1.TimeFormat:=tfHMS;
scrollBar1.Position:=MediaPlayer1.Position;l:=MediaPlayer1.Position;with HMSRec(l) do
begintoolButton11.Caption:=IntToStr(Hours);
toolButton12.Caption:=IntToStr(Minutes);
toolButton13.Caption:=IntToStr(Seconds);
end;
得到的显示效果,非常不理想:hours,Minutes,Seconds老是再变帮帮忙啊!
[email protected]
解决方案 »
- 用DELPHI调用CODESOFT模板打印时,Method 'DocObjects' not supported by automation object
- 大哥哥,大姐姐,大于127的16进制(比如E7),串口控件就发不出去,我该怎么处理才能发送出去啊?
- 我注入了另一个程序,请问怎么操作他的控件呢?
- 如何像鼠标单击任务栏程序一样,激活并显示程序界面?
- Delphi中的数据库
- 如何在DBGrid组件里边,其逻辑字段用打勾来表示
- 从graphiccontrol继承,就是想画一矩形,哪儿错啦????
- nmhttp控件实现上传下载doc文档功能!
- 如何将Ascii转换成unicode
- EmbeddedWB右键显示图片
- 局域网机器通过internet上实现点对点的难题(高手帮忙)
- 如何在报表控件中 查找控件(如TQRLabel)以实现 在报表中动态改变 报表输入
const char* AliasName="AviDev";
//打开文件
wsprintf(cmd,"open %s type sequencer alias %s ",LPCTSTR(FileName),AliasName);
mciSendString(cmd,NULL,0,NULL);
//设置时间格式
wsprintf(cmd,"set %s time format ms",AliasName);
mciSendString(cmd,NULL,0,NULL);
//得到播放时间,精确到毫秒
wsprintf(cmd,"status %s length",AliasName);
mciSendString(cmd,lpstrLength,len,NULL);
VC中的写法,Delphi中可能有些不同。
不明白!
最后要delphi的???
:)
media1player.position表示当前位置。
一般人们用的方法是这上面两个量除以1000变成秒(我忘了是否是1000),然后你再继续把它变成分和小时。
不过,让我试试看!!!
thx
[email protected]
thx!