我把realaudio 的control属性改成了IMAGEWINDOW,CONTROLPANEL,STATUSBAR
然后再在下列事件中添加如下代码,也是只有声音,没有图像,但是swf文件就只有图像,没有声音了procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute
then
begin
RealAudio1.source:=OpenDialog1.FileName;
RealAudio1.doplay; //打开并启动播放器
End;
end;procedure TForm1.N1Click(Sender: TObject);
begin
Application.terminate; //终止程序运行
end;end.
然后再在下列事件中添加如下代码,也是只有声音,没有图像,但是swf文件就只有图像,没有声音了procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute
then
begin
RealAudio1.source:=OpenDialog1.FileName;
RealAudio1.doplay; //打开并启动播放器
End;
end;procedure TForm1.N1Click(Sender: TObject);
begin
Application.terminate; //终止程序运行
end;end.
只要设 imagewindow 就够了。
只有声音,没有图像,但是swf文件就只有图像,没有声音了
这要多亏周建平的帮忙了。