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]
解决方案 »
- 大家帮忙看看这样的表 用什么表格控件能实现 dbgrideh cxgrid 能实现吗?
- 比较难得问题!数据t1,与下表中字段t_doll中的值比较,如果t1介于a(i)与a(i+1)之间,就取t2=b(i);在线ing,给粉ing!
- 急!急!急!请教各位高手,谁能够提供Delphi的组件开发规范文档?请与我联系!
- Tmenu有个shortcut,可是为什么没有用呢?
- 新手进门,初来此地,敬请关照,献分100,多谢多谢!!!
- 三键鼠标中键的问题
- 如何对一长串字符移位?
- 兄弟帮帮忙啦!!
- 谁有全系列Delphi
- 关于NT上Access库的存取.....
- 局域网机器通过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!