delphi技術 打造乙個自己的網路電視機

2021-04-01 15:57:31 字數 1100 閱讀 4551

在進入delphi程式設計之前,要做好以下的準備工作:

一、先蒐集各個電視台訊號的位址

二、設計好電視機的外框

三、設定程式設計環境

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控制項。

程式設計實戰

一、編輯介面

二、設計選單

根據你的電視台位址的收集情況,建立各個類別。如可分為**電視台、省級電視台、市級臺、港台電視台、外國電視台,在各個類別下再建立電視台等。

三、主要功能的實現

procedure tfrmmain.n1click(sender: tobject); //n1是選單項的名字

begin 

label1.caption:='重慶電視台'; //顯示當前電視台的名稱

window**ediaplayer1.url:='ijl://61.138.223.18/encoder=1'; 

//當前電視台訊號的位址,要改變電視台只要改變位址即可

end;

打造乙個適合自己的框架

作為乙個自己文字的忠實讀者,我發現 歸零 身份轉變之後的每乙個文字都肩負著 自我問題發現 的使命。沒有過多的技術,沒有過多的產品,而且這些文字都是圍繞著同乙個問題一層層地挖掘和探索,為的就是改變我目前 失控 的狀態,停止這種該死的 自我毀滅 模式。乙個連自己精力都無法管控的人,還有什麼可持續發展的資...

自己打造乙個ASP集合類

在asp開發中,往往苦於資料結構的貧乏,通常的做法是通過建立scripting.dictionary物件來得到乙個集合類,但在有些情況下,scripting.dictionary元件被管理員禁用,我們會束手無策。最近我就碰到這樣乙個問題,我申請的乙個免費asp空間無法建立scripting.dict...

DELPHI下打造自己的簡單木馬

今天晚上無聊寫著玩的,如果你是高手就別看了,免得我丟人。本文章只適合初學delphi小菜。剛學電腦時很喜歡網路安全,看著高手們寫的乙個又乙個攻擊工具,自己也總想努力去學好程式設計去寫屬於自己的程式。學delphi快一年了,感覺什麼都沒學到,慚愧啊。今晚突然想學著寫木馬,於是手忙腳亂的敲了點 超簡單,...