如何获取realaudio控件播入影音文件的总时间和播入时间??

Question

各位大侠，我刚学delphi 不久现在学做一个rm播放器。现在想取出播入时间和播入总时间，请问应用哪个函数或过程。如何来实现。

Answer 1

realaudio1.getLength;
realaduio1.position;

Answer 2

楼上的朋友,realaudio1.position;在delphi中是不是没有啊.非常感谢你能再次回复

Answer 3

也可以在real控件的postionchange事件里这么写procedure TFramePlayer.RAPositionChange(ASender: TObject; lPos,
  lLen: Integer);
begin
   try
      FrmMain.suiTrackPosition.Position :=floor(lPos*100/lLen);
      FrmMain.LabelPositionState.Caption :=' 播放进度:'+msTotime(round(lpos/1000))+'/'+msTotime(round(llen/1000));   except
       on e:exception do
           FrmMain.suiTrackPosition.Position :=0;
   end;end;
//将秒数转成时间
function msToTime(mstime:cardinal):string;
var
  strMiao:string;
  strFen:string;
  StrShi:string;
  intMiao:integer;
  intFen:integer;
  intShi:integer;begin
  intShi:=Floor(mstime/3600);
  intFen:=Floor((mstime mod 3600)/60);
  intMiao:=Floor(mstime mod 60);  strShi:=rightstr('0'+inttostr(intShi),2);
  strFen:=rightstr('0'+inttostr(intFen),2);
  strMiao:=rightstr('0'+inttostr(intMiao),2);  Result:=strShi+':'+strFen+':'+strMiao;
end;

Answer 4

这位大哥,能否解释一下FrmMain.suiTrackPosition.Position 和FrmMain.LabelPositionState.Caption 是什么啊.是一个trackbar控件和一个label控件吗?还有frmmain是你的窗体的名字还是什么.