[delphi技术]打造一个自己的网络电视机

在进入Delphi编程之前，要做好以下的准备工作：

一、先搜集各个电视台信号的地址
　　网上有很多网站都号称有网络电视，进入这些网站播放一下网站上的电视节目，如果能够正常播放，恭喜你又找到了一个台了。 如果该电视节目是MediaPlayer格式的，那么在MediaPlayer的“文件”菜单下的“属性”项目下的文件标签下的位置就是该电视节目视频的地址（有各种格式）。

二、设计好电视机的外框
　　
三、设置编程环境
　　Win98/XP+MediaPlayer9.0+Delphi6.0中文版。你的电脑必须要安装MediaPlayer9.0版和RealPlayer软件。

四、引入控件
　　在Delphi6汉化版中的可视化编程环境中，选择“组件”菜单下的“导入ActiveX控件”选项，选中其中的“Windows Media Player”项，并单击“install”，会出现一个安装窗口。
　　如果要把它添加到一个已经存在的包中，在“Into existing package”对话框中的“File name:”窗口中选择你想安装的路径，并单击“OK”，Delphi会弹出一个确认的对话框并问你“Package dclusr.bpk will be rebuilt. Continue?”。单击“Yes”后再确定一次，该控件就安装完毕。
　　如果要把它添加到一个新建的包中，在“Into new package”对话框中的“File name:”窗口中选择你想安装的路径，并新建一个包，假如命名为test，并单击“OK”，Delphi便会问你“Package test.bpk will be built. Continue?”，单击“Yes”后再确定一次，该控件就安装完毕。
　　这时，你会在控件工具箱的ActiveX下发现一个新的控件，类型名为Windows MediaPlayer。依照此方法，加入RealPlayer控件。

编程实战
一、编辑界面
　　新建一个标准的EXE工程，将工程名称命名为“webtv”，窗体名字frmMain，从控件箱中选择附加组中的名为Image控件，在编辑区齐左上放好，设定其“Picture”为前面处理的电视机外框图片。在中间的空白处放入一个控件Panel1，设定其Caption属性为空白（不显示文字），在Panel1中放一个控件WindowsMediaPlayer1。设定其Align属性为“Client”（充满整个Panel区域）。在电视机外框上放入控件BitBtn1和BitBtn2，分别设定其Glyph属性为经过处理的播放按钮和停止按钮图片。另外在电视机外框上放置一个标签Label1，显示当前电视台的名称。

二、设计菜单
　　根据你的电视台地址的收集情况，建立各个类别。如可分为中央电视台、省级电视台、市级台、港台电视台、外国电视台，在各个类别下再建立电视台等。
　　笔者设计的是单击下方的播放按钮时弹出选择电视台的菜单，故采用弹出式菜单。双击“标准”标签中的弹出式菜单控件，加入一个名PopupMenu1的菜单，菜单设计为如图2所示：

三、主要功能的实现
　　WindowsMediaPlayer控件上自带播放、停止、暂停、静音、调节量大小按钮，在右键菜单里还可以实现全屏（在画面中点右键，选择缩放中的全屏），也可以用代码实现：

//播放电视节目,以重庆电视台为例
procedure TfrmMain.N1Click(Sender: TObject); //N1是菜单项的名字
begin 
  Label1.Caption:='重庆电视台'; //显示当前电视台的名称
  WindowsMediaPlayer1.URL:='ijl://61.138.223.18/encoder=1'; 
  //当前电视台信号的地址,要改变电视台只要改变地址即可
end;