unit1.pas

这是用delphi编写的网络电视程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,inifiles, Menus, Grids, DBGrids, DB, DBTables, ADODB,
  OleCtrls, WMPLib_TLB, WinSkinData, RealAudioObjects_TLB;
            // OBXPBarMenu,
type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    aa1: TMenuItem;
    N111: TMenuItem;
    N221: TMenuItem;
    ADOsheng: TADOTable;
    ADOpindao: TADOTable;
    ADOdiqu: TADOTable;
    ADOConnection1: TADOConnection;
    Player1: TWindowsMediaPlayer;
    ADOshengsheng: TWideStringField;
    ADOdiqudiqu: TWideStringField;
    ADOdiqusheng: TWideStringField;
    ADOpindaodt_ming: TWideStringField;
    ADOpindaodt_wangzhi: TWideStringField;
    ADOpindaodiqu: TWideStringField;
    ADOshengDSDesigner: TAutoIncField;
    ADOdiquDSDesigner: TAutoIncField;
    ADOpindaoDSDesigner: TAutoIncField;
    ADOQuery1: TADOQuery;
    OpenDialog1: TOpenDialog;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    RealAudio1: TRealAudio;
    PopupMenu1: TPopupMenu;
    procedure MyClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N221Click(Sender: TObject);
    procedure N111Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses Unit2, about;

{$R *.dfm}
//动态菜单OnClick事件响应
procedure tFrmMain.MyClick(Sender: TObject);
 var a,dizhi,sql:string;
begin
//ShowMessage(tbutton(Sender).Caption);//显示选中的动态菜单标题,
 a:=(sender as tmenuitem).Caption;
 sql:='select * from diantai where dt_ming='+''''+a+'''';
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add(sql);
 adoquery1.Open;
 dizhi:=adoquery1.Fieldbyname('dt_wangzhi').AsString;
 adoquery1.Close;
 if copy(dizhi,1,1)='m' then
   begin
     player1.Visible:=true;
     player1.URL:=dizhi;
     player1.controls.play;
   end
 else 
end;


procedure TFrmMain.FormCreate(Sender: TObject);
 var s1,s2,lj:string;
     s,f,a:tmenuitem;
begin
 ADOConnection1.Connected:=false;
 lj:=extractfilepath(application.ExeName);
 lj:=lj+'tvurl.dat';
 ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";'+
                    'Data Source='+lj+';Persist Security Info=True';
 ADOConnection1.LoginPrompt:=false;
 ADOConnection1.Connected:=true;
 adosheng.Open;
 adodiqu.Open;
 adopindao.Open;
// mainmenu1.Items.Clear;
adosheng.First;
while not adosheng.Eof do
 begin

   f:=tmenuitem.Create(self);
   f.Caption:=adosheng.Fieldbyname('sheng').AsString;
   mainmenu1.Items.Add(f);
   adodiqu.Filter:='sheng='+''''+adosheng.Fieldbyname('sheng').AsString+'''';
   adodiqu.Filtered:=true;
   adodiqu.First;
    while not adodiqu.Eof do
      begin
        s:=tmenuitem.Create(self);
        s1:=adodiqu.Fieldbyname('diqu').AsString;
        s.Caption:=s1;
        f.Add(s);
        adopindao.Filter:='diqu='+''''+s1+'''';
        adopindao.Filtered:=true;
        adopindao.First;
          while not adopindao.Eof do
            begin
              a:=tmenuitem.Create(self);
              s2:=adopindao.Fieldbyname('dt_ming').AsString;
              a.Caption:=s2;
              s.Add(a);
              adopindao.Next;
              a.OnClick:=myclick;
           end;
        adodiqu.Next;
     end;
    adosheng.Next;
 end;
// mainmenu1.AutoHotkeys:=mamanual;{此句代码为不让系统自动设置快捷键}
adosheng.Close;
adodiqu.Close;
adopindao.Close;
end;

procedure TFrmMain.N221Click(Sender: TObject);
begin
 close;
end;

procedure TFrmMain.N111Click(Sender: TObject);
begin
  FrmUrl:=TFrmUrl.Create(self);
  FrmUrl.ShowModal;
  FrmUrl.Free;
end;

procedure TFrmMain.N1Click(Sender: TObject);

begin
 if OpenDialog1.Execute then
   begin
     player1.URL:=OpenDialog1.FileName;
     player1.controls.play //打开并启动播放器
   End;
end;

procedure TFrmMain.N2Click(Sender: TObject);
begin
  Frmabout:=TFrmabout.Create(self);
  Frmabout.ShowModal;
  Frmabout.Free;
end;

end.