CSDN博客

img ch_builder

网络电视全编译程序

发表于2004/2/4 9:57:00  2010人阅读

网络电视全编译程序

(仅供CSDN使用,如若需要请与作者联系)

 

前不久写了一个网络电视的程序,不少网友看到后想要这个源代码,但由于我用BCB6打包程序总出问题,没办法又改写了一个全编译的程序,其原码如下:

说明:1)原程序的电视节目及广播节目来源,出于对原官方网站的尊敬,这里将不给出;

2)全编译程序与原程序不一样,主要在从数据库读取信息,而程序的大部分功能来自数据库,包括升级及节目增加,并且窗体设计及组件组合会有很大差距。等我解决BCB6打包问题后会提供可升级的那个网络电视的源代码,但不保证提供全部;

3)以下前缀请注意:frm(窗体),wmp(media player组件,为ActiveX组件),rad(realplayer组件,为ActiveX组件),rgp(单选分组框);

4)全编译程序只有700K,需要的可与作者联系。当然你完全可以按照下面的原代码,自选设计一个更好的程序。

 

//-------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

 

#include "CHTV.h"

//-------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "RealAudioObjects_OCX"

#pragma link "WMPLib_OCX"

#pragma resource "*.dfm"

TfrmCHTV *frmCHTV;

//-------------------------------------------------------------------

__fastcall TfrmCHTV::TfrmCHTV(TComponent* Owner)

        : TForm(Owner)

{

}

//-------------------------------------------------------------------

void __fastcall TfrmCHTV::frmCHTVCreate(TObject *Sender)

{

        wmpCHTV->Show();

        radCHTV->Hide();

 

}

//-------------------------------------------------------------------

//单选分组框事件,电视栏

void __fastcall TfrmCHTV::rgpTVClick(TObject *Sender)

{

        String  TVtype,TVadress;

        switch(rgpTV->ItemIndex)

        {

                case 0:TVtype="mms";//播放类型

                        TVadress="mms……";//网址

                        break;

                case 1:TVtype="mms";

                        TVadress="mms……";

                        break;

                ……

                default:break;

        }

                wmpCHTV->close();//关闭原来的播放内容

                radCHTV->DoStop();//关闭原来的播放内容

     if(TVtype=="rtsp")//用realplayer来播放

     {

          wmpCHTV->Hide();

          radCHTV->Show();

          radCHTV->Source=TVadress;//指定播放文件

          radCHTV->DoPlay();//播放文件

     }

     else//用mediaplayer来播放

     {

        radCHTV->Hide();

        wmpCHTV->Show();

        wmpCHTV->URL=TVadress;//指定并打开播放文件

     }

 

}

//-------------------------------------------------------------------

//单选分组框事件,广播栏

void __fastcall TfrmCHTV::rgpRadioClick(TObject *Sender)

{

        String  TVtype,TVadress;

        switch(rgpRadio->ItemIndex)

        {

                case 0:TVtype="rtsp";

                        TVadress="rtsp……";

                        break;

                case 1:TVtype="rtsp";

                        TVadress="rtsp……";

                        break;

……

                default:break;

        }

                wmpCHTV->close();

                radCHTV->DoStop();

     if(TVtype=="rtsp")

     {

          wmpCHTV->Hide();

          radCHTV->Show();

          radCHTV->Source=TVadress;

          radCHTV->DoPlay();

     }

     else

     {

        radCHTV->Hide();

        wmpCHTV->Show();

        wmpCHTV->URL=TVadress;

     }

}

//-------------------------------------------------------------------

0 0

相关博文

我的热门文章

img
取 消
img