有关RealAudio控件的一个小问题 ( 积分: 100 )

我想取得RM文件的播放时间，但不知为什么，GETLENGTH函数取得总为0？

procedure TForm1.Button2Click(Sender: TObject);
var TheLength: LongInt;
begin
edit1.Text :='';
Edit2.Text:='';
if not Opendialog1.Execute then Exit;
with RealAudio1 do
begin
RealAudio1.Source := OpenDialog1.FileName;
doplay;
Thelength :=GETLength;//这句总为0，不知为什么？

end;
with HMSRec(TheLength) do
begin
edit1.Text := '文件时间长度：'+IntToStr(thelength div 60000 div 60)+':'+IntToStr(thelength div 60000 mod 60)+':'+IntToStr(thelength div 1000 mod 60);
end;
end;

我想取得RM文件的播放时间，但不知为什么，GETLENGTH函数取得总为0？

procedure TForm1.Button2Click(Sender: TObject);
var TheLength: LongInt;
begin
edit1.Text :='';
Edit2.Text:='';
if not Opendialog1.Execute then Exit;
with RealAudio1 do
begin
RealAudio1.Source := OpenDialog1.FileName;
doplay;
Thelength :=GETLength;//这句总为0，不知为什么？

end;
with HMSRec(TheLength) do
begin
edit1.Text := '文件时间长度：'+IntToStr(thelength div 60000 div 60)+':'+IntToStr(thelength div 60000 mod 60)+':'+IntToStr(thelength div 1000 mod 60);
end;
end;

有没有按F8跟踪一下，执行到DoPlay后，是不是播放完之后才能执行下面这一句Thelength :=GETLength;//这句总为0，

在Doplay后是不是需要在事件中处理时间取得呀

多人接受答案了。