关于RealAudio控件的问题！！！！！！！！(100分)

北

北狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-06

• #1

我用REALAUDIO的GetPosition和GetLength方法获得的是一串数值，请问怎么样将这一串数值转换成时间
格式显示在LABEL上，比如：[red]0：00：00[/red]。
另外用BUTTON控件怎么控制REALAUDIO的快进和快退？

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-06

• #2

你看用DATEtostr()能否转换

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-06

• #3

一串数值?我猜是毫秒数，你看看是不是

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-07

• #4

是毫秒值，自己转换吧～～

可以用SKIP的命令～

 

北

北狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-07

• #5

我是这样写的函数：
function MSecToStr(_msec: Comp): string;
var _timeStamp : TTimeStamp;
_dateTime : TDateTime;
begin
_timeStamp := MSecsToTimeStamp(_msec);
_timeStamp.Date := 1;
_dateTime := TimeStampToDateTime(_timeStamp);
Result := TimeToStr(_dateTime);
end;
调用：
Label1.Caption := MSecToStr(RealAudio1.GetLength div 10000);

可Label显示为0。
大家帮我看看错在哪里，谢谢！

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-07

• #6

Label1.Caption := MSecToStr(RealAudio1.GetLength div 1000);
~~~~

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-07

• #7

MSecsToTimeStamp 就是 毫秒 转 timestamp 了
RealAudio1.GetLength 就是 毫秒了
所以， Label1.Caption := MSecToStr(RealAudio1.GetLength) 就可以了
不用除于任何数

 

北

北狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-08

• #8

接受答案了.