100分求助！关于realAudio控件的问题！

Question

RealAudio1.source:=opendialog1.filename;
RealAudio1.DoPlay;

Answer 1

希望可以对您有所帮助！procedure TForm1.openbtnClick(Sender: TObject);
begin
  if opendialog1.Execute then      //打开文件
  realaudio1.SetSource(opendialog1.FileName);
end;procedure TForm1.closebtnClick(Sender: TObject);
begin
  close;
end;procedure TForm1.urlbtnClick(Sender: TObject);
begin
    RealAudio1.Source:='http://www.englishvoa.com/film/film03.rm';
    Realaudio1.DoPlay;
    RealAudio1.SetControls('ImageWindow'); //设置图像窗口显示
    RealAudio1.Visible:=True; //显示图像窗口
end;procedure TForm1.playbtnClick(Sender: TObject);
begin
  if opendialog1.FileName<>'' then
      begin
       RealAudio1.Visible:=true;       RealAudio1.DoPlay; //打开后自动播放
       RealAudio1.SetControls('ImageWindow'); //设置图像窗口显示
       RealAudio1.SetMaintainAspect(True); //使窗体的大小采用原默认画质（或者是压缩率的大小）
       RealAudio1.Visible:=True; //显示图像窗口//     RealAudio1.SetControls('ControlPanel'); //控制栏
//     RealAudio1.SetControls('StatusBar'); //状态条
      end;end;procedure TForm1.pausebtnClick(Sender: TObject);
begin
     RealAudio1.DoPlayPause; // 暂停播放
end;procedure TForm1.stopbtnClick(Sender: TObject);
begin
     RealAudio1.DoStop;//停止播放
end;procedure TForm1.quanbtnClick(Sender: TObject);
begin
     RealAudio1.SetFullScreen;//全屏播放
end;