网络电视全编译程序
（仅供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;
}
}
//-------------------------------------------------------------------
