开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
main.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

main.pas：源码内容
  1. unit main;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, DSPack, StdCtrls, ComCtrls, dsutil, Buttons, ToolWin,
  8.   ImgList, SelectURL;
  10.   
  11. type
  12.   TFormPlayWin = class(TForm)
  13.     FilterGraph: TFilterGraph;
  14.     VideoWindow: TVideoWindow;
  15.     MainMenu: TMainMenu;
  16.     OpenDialog: TOpenDialog;
  17.     FileMenu: TMenuItem;
  18.     OpenMenu: TMenuItem;
  19.     OpenURLMenu: TMenuItem;
  20.     ExitMenu: TMenuItem;
  21.     TrackBar: TDSTrackBar;
  22.     ImageList: TImageList;
  23.     StatusBar: TStatusBar;
  24.     ToolBar: TToolBar;
  25.     btPlay: TToolButton;
  26.     btPause: TToolButton;
  27.     btStop: TToolButton;
  28.     ToolButton1: TToolButton;
  29.     SoundLevel: TTrackBar;
  30.     btFullScreen: TToolButton;
  31.     PopupMenu: TPopupMenu;
  32.     Play1: TMenuItem;
  33.     Pause1: TMenuItem;
  34.     Stop1: TMenuItem;
  35.     FullScreen1: TMenuItem;
  36.     log: TMemo;
  37.     ToolButton2: TToolButton;
  38.     procedure OpenMenuClick(Sender: TObject);
  39.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  40.     procedure btPlayClick(Sender: TObject);
  41.     procedure btPauseClick(Sender: TObject);
  42.     procedure btStopClick(Sender: TObject);
  43.     procedure TrackBarTimer(sender: TObject; CurrentPos,
  44.       StopPos: Cardinal);
  45.     procedure SoundLevelChange(Sender: TObject);
  46.     procedure ExitMenuClick(Sender: TObject);
  47.     procedure OpenURLMenuClick(Sender: TObject);
  48.     procedure btFullScreenClick(Sender: TObject);
  49.     procedure FilterGraphDSEvent(sender: TComponent; Event, Param1,
  50.       Param2: Integer);
  52.   private
  53.     { D閏larations priv閑s }
  54.   public
  55.     { D閏larations publiques }
  56.   end;
  58. var
  59.   FormPlayWin: TFormPlayWin;
  61. implementation
  62. uses DirectShow9;
  64. {$R *.dfm}
  66. procedure TFormPlayWin.OpenMenuClick(Sender: TObject);
  67. begin
  68.   if OpenDialog.Execute then
  69.   begin
  70.     if not FilterGraph.Active then FilterGraph.Active := true;
  71.     FilterGraph.ClearGraph;
  72.     FilterGraph.RenderFile(OpenDialog.FileName);
  73.     VideoWindow.PopupMenu := PopupMenu;
  74.     SoundLevel.Position := FilterGraph.Volume;
  75.     FilterGraph.Play;
  76.   end;
  77. end;
  79. procedure TFormPlayWin.FormCloseQuery(Sender: TObject;
  80.   var CanClose: Boolean);
  81. begin
  82.   // Important
  83.   FilterGraph.ClearGraph;
  84. end;
  86. procedure TFormPlayWin.btPlayClick(Sender: TObject);
  87. begin
  88.   if not FilterGraph.Active then OpenMenuClick(nil)
  89.                             else FilterGraph.play;
  90. end;
  92. procedure TFormPlayWin.btPauseClick(Sender: TObject);
  93. begin
  94.   FilterGraph.Pause;
  95. end;
  97. procedure TFormPlayWin.btStopClick(Sender: TObject);
  98. begin
  99.   FilterGraph.Stop;
  100. end;
  102. procedure TFormPlayWin.TrackBarTimer(sender: TObject; CurrentPos,
  103.   StopPos: Cardinal);
  104. begin
  105.   StatusBar.SimpleText := format('Position: %s Duration: %s',
  106.     [TimeToStr(CurrentPos / MiliSecPerDay), TimeToStr(StopPos / MiliSecPerDay)])
  107. end;
  109. procedure TFormPlayWin.SoundLevelChange(Sender: TObject);
  110. begin
  111.   FilterGraph.Volume := SoundLevel.Position;
  112. end;
  114. procedure TFormPlayWin.ExitMenuClick(Sender: TObject);
  115. begin
  116.   FormPlayWin.Close;
  117. end;
  119. procedure TFormPlayWin.OpenURLMenuClick(Sender: TObject);
  120. begin
  121.   FormSelectURL:= TFormSelectURL.Create(nil);
  122.   if FormSelectURL.ShowModal = mrOK then
  123.   begin
  124.     if not FilterGraph.Active then FilterGraph.Active := true;
  125.     FilterGraph.ClearGraph;
  126.     FilterGraph.RenderFile(FormSelectURL.URL.Text);
  127.     VideoWindow.PopupMenu := PopupMenu;
  128.     SoundLevel.Position := FilterGraph.Volume;
  129.     FilterGraph.Play;
  130.   end;
  131.   FormSelectURL.Free;
  132. end;
  134. procedure TFormPlayWin.btFullScreenClick(Sender: TObject);
  135. begin
  136.   VideoWindow.FullScreen := not VideoWindow.FullScreen;
  137.   btFullScreen.Down := VideoWindow.FullScreen;
  138. end;
  140. procedure TFormPlayWin.FilterGraphDSEvent(sender: TComponent; Event,
  141.   Param1, Param2: Integer);
  142. begin
  143.   log.Lines.Add(GetEventCodeDef(event))
  144. end;
  146. end.