index.pas

基于delphi的网络电视源代码,希望对大家有用

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.