关于RealAudio控件的问题,急啊，在线等待。(50分)

北

北狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #1

怎么知道RealAudio已经播放完了？该用哪个属性？
我是在程序里将RealAudio设置为不可见状态，当RealAudio播放完一首歌后，如果选择了
循环播放单首，就播放当前歌曲，如果选择了循环播放所有，就播放完当前歌曲自动播放
下一首。该怎么写代码？我对RealAudio不是很熟悉，请赐教。

 

北

北狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #2

高手都睡觉去了吗?

 

S

szf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #3

这段代码够用了吧[]
procedure TForm1.FormCreate(Sender: TObject);
begin
RealAudio1.SetSource('E:/hotdog/aaa/a1201.rm');
RealAudio1.DoPlay;
end;

procedure TForm1.RealAudio1PlayStateChange(Sender: TObject;
lNewState: Integer);
begin
Caption := Caption + IntToStr(lNewState)+ ',';
end;

 

北

北狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #4

lNewState是什么属性？

 

S

szf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #5

OnPlayStateChange是RealAudio接口的播放状态事件句柄，当它的播放状态改变时，
就通过这个句柄把lNewState以整数的形式(为什么是整数？因为它是自动化兼容类型)
传递出来，我的那段代码就是演示RealAudio在播放过程中的lNewState状态变化时，
lNewState值的变化。
其实，在事件中，lNewState=0时，就是播放完毕了。

 

北

北狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #6

接受答案了.