网络电视全编译程序

原创 2004年02月04日 09:57:00

网络电视全编译程序<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

(仅供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;

     }

}

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

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />

C#网络电视精灵系统

1.XML文件 *存储频道信息 TypeA 北京电视台 files/北京电视台.xml TypeB 凤凰卫视 files/凤凰卫视.xml ...
  • qq_36074113
  • qq_36074113
  • 2017年03月12日 16:20
  • 522

简单的建立一个网络电视直播软件

网上有很多的软件或者网站都有网络电视直播的功能,电视台非常的丰富,不仅是卫视台,甚至是省市台,国外电视台都有,其实建立这样的一个软件非常简单。           其实整个网络电视就是一个WebBro...
  • yz1311
  • yz1311
  • 2013年10月18日 11:21
  • 1565

网络电视机顶盒的工作原理

1.网络机顶盒的组成   % q) q+ H. d$ D$ W+ I   网络机顶盒由高频头、QAM解调器、TS流解复用器、MPEG一2解码器、PAUNTSC视频编码器、嵌人式CPU系统和外围...
  • lifan_3a
  • lifan_3a
  • 2013年08月20日 23:14
  • 996

中山大学网络电视单播观看地址(IPV4)

中山大学网络电视单播观看地址 版本 1.0.0 2010/6/8 原文链接 无法通过组播方式观看的用户可以直接打开以下地址以单播方式观看 观看方法:打开Microsoft Window...
  • liangliangdetianxia
  • liangliangdetianxia
  • 2014年07月05日 00:44
  • 3077

全卷积网络FCN详解

转载自http://www.cnblogs.com/gujianhan/p/6030639.html?utm_source=itdadao&utm_medium=referral 背景 C...
  • xiaojiajia007
  • xiaojiajia007
  • 2017年02月09日 09:54
  • 2901

TensorFlow 全连接网络实现

神经网络是一种数学模型,大量的神经元相连接并进行计算,用来对输入和输出间复杂的关系进行建模。神经网络训练,通过大量数据样本,对比正确答案和模型输出之间的区别(梯度),然后把这个区别(梯度)反向的传递回...
  • shine19930820
  • shine19930820
  • 2017年10月26日 21:57
  • 643

全卷积网络(FCN)

全卷积网络(FCN)
  • kekong0713
  • kekong0713
  • 2016年09月19日 13:42
  • 2177

解释程序和编译程序的区别

解释程序和编译程序的区别   2011-09-12 20:53:31|  分类: 笔试面试 |  标签:解释程序  编译程序   |举报 |字号 订阅 以...
  • yu132563
  • yu132563
  • 2014年11月06日 10:28
  • 5604

adb连接智能电视

查看电视机的IP 打开运行TCPUDP调试工具 创建连接 开启adb 5.jpg (143.15 KB,...
  • gebitan505
  • gebitan505
  • 2015年01月26日 11:23
  • 2150

神经网络-全连接层(1)

写在前面:感谢@夏龙对本文的审阅并提出了宝贵的意见。 接下来聊一聊现在大热的神经网络。最近这几年深度学习发展十分迅速,感觉已经占据了整个机器学习的“半壁江山”。各大会议也是被深度学习占据,引领了一波潮...
  • GarfieldEr007
  • GarfieldEr007
  • 2016年07月10日 00:05
  • 5612
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:网络电视全编译程序
举报原因:
原因补充:

(最多只允许输入30个字)