thedream: 我新建了一个工程,然后在里面添加了一个realaudio,opendialog,mainmenu,然后再下列事件中添加如下代码: 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;但是运行之后,发现没有图像,只有声音,播放*.swf文件时也是没有声音不知怎么解决?
component-->import activex control
再列表中找到realplayer activex controllib,点install
安装好了这个realaudio控件之后,就能够播放rm,ram,swf等文件了,还有很多其他的格式也支持,比如mp3,播放swf文件还可以用flash带的一个ocx控件
我不知道要包含那些东西进去啊,所以直接运行还是打不开那种文件
多谢啊,说清楚一点
thx
要不你去看看我以前做的一个程序
http://www.csdn.net/cnshare/soft/7/7069.shtm
贴上其中的
realaudio1.SetSource(opendialog1.filename); //以文件名列表框的路径打开歌曲文件
realaudio1.doplay;
谢谢
我新建了一个工程,然后在里面添加了一个realaudio,opendialog,mainmenu,然后再下列事件中添加如下代码:
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;但是运行之后,发现没有图像,只有声音,播放*.swf文件时也是没有声音不知怎么解决?
还有,swf用这个控件播放的时候是没有声音的,用flash带的ocx控件可以实现swf的播放