?? index.pas

?? 基于delphi的網(wǎng)絡(luò)電視源代碼,希望對大家有用
?? PAS
字號:
unit index;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, OleCtrls, WMPLib_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    w: TWindowsMediaPlayer;
    Image1: TImage;
    Image2: TImage;
    Image12: TImage;
    Image11: TImage;
    Image10: TImage;
    Image9: TImage;
    Image8: TImage;
    Image7: TImage;
    Image6: TImage;
    Image5: TImage;
    Image4: TImage;
    Image3: TImage;
    list: TLabel;
    cctv: TLabel;
    other: TLabel;
    movie: TLabel;
    list1: TLabel;
    list2: TLabel;
    list10: TLabel;
    list9: TLabel;
    list8: TLabel;
    list7: TLabel;
    list6: TLabel;
    list5: TLabel;
    list4: TLabel;
    list3: TLabel;
    procedure cctvMouseLeave(Sender: TObject);
    procedure cctvMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

    procedure otherMouseLeave(Sender: TObject);
    procedure otherMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

    procedure movieMouseLeave(Sender: TObject);
    procedure movieMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

    procedure cctvClick(Sender: TObject);
    procedure otherClick(Sender: TObject);
    procedure movieClick(Sender: TObject);
    procedure list1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list1MouseLeave(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure list10MouseLeave(Sender: TObject);
    procedure list2MouseLeave(Sender: TObject);
    procedure list3MouseLeave(Sender: TObject);
    procedure list4Click(Sender: TObject);
    procedure list5Click(Sender: TObject);
    procedure list6Click(Sender: TObject);
    procedure list7Click(Sender: TObject);
    procedure list8Click(Sender: TObject);
    procedure list9Click(Sender: TObject);
    procedure list10MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list3Click(Sender: TObject);
    procedure list2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure list4MouseLeave(Sender: TObject);
    procedure list5MouseLeave(Sender: TObject);
    procedure list6MouseLeave(Sender: TObject);
    procedure list7MouseLeave(Sender: TObject);
    procedure list8MouseLeave(Sender: TObject);
    procedure list9MouseLeave(Sender: TObject);
    procedure list1Click(Sender: TObject);
    procedure list2Click(Sender: TObject);
    procedure list10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cctvMouseLeave(Sender: TObject);
begin
  cctv.Font.Color :=clwhite;
end;

procedure TForm1.otherMouseLeave(Sender: TObject);
begin
other.font.Color :=clwhite;
end;

procedure TForm1.otherMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
other.font.Color :=clDefault;
end;

procedure TForm1.movieMouseLeave(Sender: TObject);
begin
movie.font.Color :=clwhite;
end;

procedure TForm1.movieMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
movie.font.Color :=clDefault;
end;

procedure TForm1.cctvClick(Sender: TObject);
begin
    list.Caption:= cctv.caption;
    list1.Caption:=' 1 套';
    list2.Caption:=' 2 套';
    list3.Caption:=' 3 套';
    list4.Caption:=' 4 套';
    list5.Caption:=' 5 套';
    list6.Caption:=' 6 套';
    list7.Caption:=' 7 套';
    list8.Caption:=' 8 套';
    list9.Caption:=' 9 套';
    list10.Caption:='10 套';
end;

procedure TForm1.otherClick(Sender: TObject);
begin
    list.Caption:= other.caption;
    list1.Caption:=' 廣洲 ';
    list2.Caption:=' 麗水 ';
    list3.Caption:=' 南陽 ';
    list4.Caption:=' 青島 ';
    list5.Caption:=' 鳳凰 ';
    list6.Caption:=' 日本 ';
    list7.Caption:=' 星空 ';
    list8.Caption:=' 美國 ';
    list9.Caption:=' 德國' ;
    list10.Caption:=' 山東 ';
end;

procedure TForm1.movieClick(Sender: TObject);
begin
    list.Caption:= movie.caption;
    list1.Caption:=' 永樂 ';
    list2.Caption:=' 江蘇 ';
    list3.Caption:=' 美國 ';
    list4.Caption:=' 悉尼 ';
    list5.Caption:=' 悉尼1 ';
    list6.Caption:=' 等待 ';
    list7.Caption:=' 探索 ';
    list8.Caption:=' 智利 ';
    list9.Caption:=' 德國' ;
    list10.Caption:=' 山東 ';
end;

procedure TForm1.list1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  list1.font.Color:=clwhite;
end;

procedure TForm1.list1MouseLeave(Sender: TObject);
begin
  list1.font.Color :=cldefault;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    list1.Caption:=' 1 套';
    list2.Caption:=' 2 套';
    list3.Caption:=' 3 套';
    list4.Caption:=' 4 套';
    list5.Caption:=' 5 套';
    list6.Caption:=' 6 套';
    list7.Caption:=' 7 套';
    list8.Caption:=' 8 套';
    list9.Caption:=' 9 套';
    list10.Caption:='10 套';
end;

procedure TForm1.list10MouseLeave(Sender: TObject);
begin
list10.font.Color :=cldefault;
end;

procedure TForm1.list2MouseLeave(Sender: TObject);
begin
list2.font.Color :=cldefault;
end;

procedure TForm1.list3MouseLeave(Sender: TObject);
begin
list3.font.Color :=cldefault;
end;

procedure TForm1.list4Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='http://jixian.our168.com/tv/cctv4.asx';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='mms://movie.top86.com/qtv';
     end
else
     begin
     w.url:='mms://wmt2.bigpond.com/UCS-mulray0';
     end
end;

procedure TForm1.list5Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='http://www.kxdj.com/tv/list1ist/cctv-5.asx';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='mms://61.128.101.18/phoenixmovie';
     end
else
     begin
     w.url:='mms://wmt2.bigpond.com/UCS-mulray0';
     end
end;
procedure TForm1.list6Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='mms://202.38.64.28/tv1';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='mms://impresstv-wmt.stream.co.jp/impresstv-im'
     end
else
     begin
     w.URL:='http://www.kxdj.com/tv/list1ist/sjmtv.asx';
     end
end;
procedure TForm1.list7Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='http://www.kxdj.com/tv/list1ist/cctv-7.asx';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='mms://210.51.11.121/star';
     end
else
     begin
     w.URL:='mms://media-wm.cac.washington.edu/ResearchTV Live (LAN)';
     end
end;
procedure TForm1.list8Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='http://www.kxdj.com/tv/list1ist/cctv-8.asx';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='mms://media-wm.cac.washington.edu/UWTV Live (LAN)';
     end
else
     begin
     w.URL:='mms://media-wm.cac.washington.edu/UWTV Live (LAN)';
     end
end;
procedure TForm1.list9Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.url:='mms://4.19.71.20/CCTV9b';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='http://62.153.249.21/live/online/adsl.asx';
     end
else
     begin
     w.URL:='mmst://nettv1.supernj.com/njmovie';
     end
end;
procedure TForm1.list10MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list10.font.Color :=clwhite;
end;

procedure TForm1.list3Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='http://www.kxdj.com/tv/list1ist/cctv-3.asx';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='mms://61.136.113.41/nytv_1';
     end
else
     begin
     w.URL:='mms://media-wm.cac.washington.edu/UWTV Live (LAN)';
     end
end;
procedure TForm1.list2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list2.font.Color :=clwhite;
end;

procedure TForm1.list3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list3.font.Color :=clwhite;
end;

procedure TForm1.list4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list4.font.Color :=clwhite;
end;

procedure TForm1.list5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list5.font.Color :=clwhite;
end;

procedure TForm1.list6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list6.font.Color :=clwhite;
end;

procedure TForm1.list7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list7.font.Color :=clwhite;
end;

procedure TForm1.list8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list8.font.Color :=clwhite;
end;

procedure TForm1.list9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
list9.font.Color :=clwhite;
end;

procedure TForm1.list4MouseLeave(Sender: TObject);
begin
list4.font.Color :=cldefault;
end;

procedure TForm1.list5MouseLeave(Sender: TObject);
begin
list5.font.Color :=cldefault;
end;

procedure TForm1.list6MouseLeave(Sender: TObject);
begin
list6.font.Color :=cldefault;
end;

procedure TForm1.list7MouseLeave(Sender: TObject);
begin
list7.font.Color :=cldefault;
end;

procedure TForm1.list8MouseLeave(Sender: TObject);
begin
list8.font.Color :=cldefault;
end;

procedure TForm1.list9MouseLeave(Sender: TObject);
begin
list9.font.Color :=cldefault;
end;

procedure TForm1.list1Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='http://www.kxdj.com/tv/list1ist/cctv-1.asx';
     end
else if list.Caption = '其它電視臺' then
     begin
   w.URL:='http://jeeduyao.home9.dk3.com/media/gztv.asx';
     end
else
     begin
    w.URL:='http://www.kxdj.com/tv/list1ist/dyylc.asx';
     end
end;

procedure TForm1.list2Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='http://www.kxdj.com/tv/list1ist/cctv-2.asx';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='mms://202.96.114.251/lstv';
     end
else
     begin
     w.URL:='http://www.kxdj.com/tv/list1ist/jsyst.asx';
     end
end;
procedure TForm1.list10Click(Sender: TObject);
begin
if list.Caption = '中央電視臺' then
     begin
w.URL:='http://www.kxdj.com/tv/list1ist/cctv-10.asx';
     end
else if list.Caption = '其它電視臺' then
     begin
     w.URL:='http://jeeduyao.home9.dk3.com/media/sdtv.asx';
     end
else
     begin
     w.URL:='mms://videoserver.unopar.br:1097';
     end
end;

procedure TForm1.cctvMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    cctv.Font.Color:=cldefault;
end;

end.
?? 文件大小 573 K
?? 上傳用戶 dan_che
?? 所屬分類 Delphi/CppBuilder
??? 相關(guān)標(biāo)簽

#delphi #網(wǎng)絡(luò)電視 #源代碼 #家
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? index.pas

?? 快捷鍵說明
