我通过在D7中Import Activex control... 这个RealAudio1(安装完REALONE就有这个ACTIVEX组件)begin
RealAudio1.SetSource('rtsp://218.19.259.5/7253895/连续剧/射雕英雄传/01.rmvb') ;
//如果在这里实现让程序打开REALONE(或是REALPLAYER)的真实窗口,进行播放?
//意思是说通过程序来实现向REALAUDIO1 这个组件传去真实的播放地址,类似于在这个组件上右键(用REALPLAYER打开)一样?
end ;请高手们帮帮我,
解决后送分,另,可下载大量电影,说话算话!
QQ:33545712
E_mail:[email protected]

解决方案 »

  1.   

    RealAudio组件的Controls属性中添加如下代码:  IMAGEWINDOW,CONTROLPANEL,STATUSBAR  其中:IMAGEWINDOW、CONTROLPANEL、STATUSBAR分别表示显示视频播放窗口、控制条状态条。
      

  2.   

    ShellExecute(handle,'open',pchar('01.rmvb'),nil,pchar('rtsp://218.19.259.5/7253895/连续剧/射雕英雄传/'),sw_shownormal); 
      

  3.   

    ShellExecute(handle,'open',pchar('rtsp://218.19.259.5/7253895/连续剧/射雕英雄传/01.rmvb'),nil,pchar('),sw_shownormal
      

  4.   

    ShellExecute(handle,'open',pchar('01.rmvb'),nil,pchar('rtsp://218.19.259.5/7253895/连续剧/射雕英雄传/'),sw_shownormal);
      

  5.   

    ShellExecute(handle,'open',pchar('rtsp://218.19.259.5/7253895/连续剧/射雕英雄传/01.rmvb'),nil,pchar('),sw_shownormal
      

  6.   

    //意思是说通过程序来实现向REALAUDIO1 这个组件传去真实的播放地址,类似于在这个组件上右键(用REALPLAYER打开)一样
    我的意思是这样呀。