如何利用的delphi编写real player播放器。(5分)

  • 主题发起人 主题发起人 青云
  • 开始时间 开始时间

青云

Unregistered / Unconfirmed
GUEST, unregistred user!
我的机器的操作系统是日文的,可是网上总找不到相应的real player播放器,所以我想
自己编写一个,我知道这不难,可是要加控件,我不知道那里相应的控件,或者有ocx也行。
 
rmoc3260.dll是一个real控件可以试试看

 
装了real player后,在delphi中就可以加载它的activeX了,找一下,之后的事应该会了吧
 
procedure TForm1.N2Click(Sender: TObject);
begin

if OpenDialog1.Execute then

RealAudio1.Source:=OpenDialog1.FileName;
RealAudio1.DoPlay;
end;

RealAudio1.contros:=imagewindow,controlpanel,statusbar;
procedure TForm1.N7Click(Sender: TObject);
begin

RealAudio1.SetFullScreen;
end;

 
Real 的控件RMOC3260.DLL,就这样加载进去是没有什么作用的,用它写相关的程序时会报错,你必须把注册表中的相关内容也加载进日文WIN的注册表中才行!
 
怎么只有5分,你也太小气了吧! :)
 
可以用这一句来注册
WinExec('Regsvr32.exe /s rmoc3260.dll',0);
 
后退
顶部