多媒体播放器－飓风影音 代码部分
1
飓风影音多媒体播放器（代码部分）
小组成员：朱敏、程娟、陈娇娇、马玲、邢真臻
主窗体
unit myplayer;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinData, BusinessSkinForm, Menus, bsSkinCtrls, bsSkinBoxCtrls,
MPlayer, StdCtrls, bsfilectrl, bsSkinShellCtrls, bsTrayIcon, ExtCtrls,
bsMessages,MMSystem, bsSkinHint, MSNPopUp, bsSkinMenus, Buttons, DSPack,
ComCtrls,DirectShow9,dsutil, ImgList;
type
TForm1 = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsStoredSkin1: TbsStoredSkin;
bsSkinMainMenu1: TbsSkinMainMenu;
F1: TMenuItem;
P1: TMenuItem;
V1: TMenuItem;
A1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
X1: TMenuItem;
bsSkinMainMenuBar1: TbsSkinMainMenuBar;
bsSkinPanel1: TbsSkinPanel;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinStdLabel2: TbsSkinStdLabel;
L1: TMenuItem;
多媒体播放器－飓风影音 代码部分
2
A2: TMenuItem;
OpenDialog1: TOpenDialog;
Timer1: TTimer;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
MSNPopUp1: TMSNPopUp;
D1: TMenuItem;
C1: TMenuItem;
N7: TMenuItem;
L2: TMenuItem;
S1: TMenuItem;
bsSkinPopupMenu1: TbsSkinPopupMenu;
P2: TMenuItem;
N8: TMenuItem;
S2: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
P3: TMenuItem;
N11: TMenuItem;
S3: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
bsSkinPopupMenu2: TbsSkinPopupMenu;
P4: TMenuItem;
A3: TMenuItem;
N15: TMenuItem;
C2: TMenuItem;
N16: TMenuItem;
S4: TMenuItem;
L3: TMenuItem;
FilterGraph1: TFilterGraph;
Panel1: TPanel;
DSVideoWindowEx21: TDSVideoWindowEx2;
ListBox1: TListBox;
bsSkinPanel2: TbsSkinPanel;
bsSkinStatusBar1: TbsSkinStatusBar;
bsSkinSlider1: TbsSkinSlider;
bsSkinToolBar1: TbsSkinToolBar;
bsSkinSpeedButton1: TbsSkinSpeedButton;
bsSkinSpeedButton2: TbsSkinSpeedButton;
bsSkinSpeedButton3: TbsSkinSpeedButton;
多媒体播放器－飓风影音 代码部分
3
bsSkinBevel1: TbsSkinBevel;
bsSkinSpeedButton5: TbsSkinSpeedButton;
bsSkinSpeedButton6: TbsSkinSpeedButton;
bsSkinStatusPanel1: TbsSkinStatusPanel;
bsSkinPanel3: TbsSkinPanel;
DSTrackBar1: TDSTrackBar;
bsSkinStatusPanel2: TbsSkinStatusPanel;
N17: TMenuItem;
S5: TMenuItem;
SampleGrabber1: TSampleGrabber;
D2: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
S6: TMenuItem;
SpeedButton1: TSpeedButton;
N20: TMenuItem;
N21: TMenuItem;
bsSkinBevel2: TbsSkinBevel;
bsSkinSpeedButton4: TbsSkinSpeedButton;
N22: TMenuItem;
XP1: TMenuItem;
OpenDialog2: TOpenDialog;
VISTA1: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
bsSkinStdLabel3: TbsSkinStdLabel;
Timer2: TTimer;
N25: TMenuItem;
bsSkinSpeedButton7: TbsSkinSpeedButton;
N26: TMenuItem;
ImageList2: TImageList;
procedure N1Click(Sender: TObject);
procedure bsSkinSlider1Change(Sender: TObject);
procedure A2Click(Sender: TObject);
procedure S1Click(Sender: TObject);
procedure L2Click(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure bsSkinSpeedButton1Click(Sender: TObject);
procedure X1Click(Sender: TObject);
procedure bsSkinSpeedButton3Click(Sender: TObject);
procedure bsSkinSpeedButton2Click(Sender: TObject);
procedure bsSkinSpeedButton5Click(Sender: TObject);
procedure bsSkinSpeedButton6Click(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
多媒体播放器－飓风影音 代码部分
4
procedure C1Click(Sender: TObject);
procedure D1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure DSVideoWindowEx21KeyPress(Sender: TObject; var Key: Char);
procedure DSTrackBar1Timer(sender: TObject; CurrentPos,
StopPos: Cardinal);
procedure S5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure P3Click(Sender: TObject);
procedure P2Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure S3Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure S2Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure P4Click(Sender: TObject);
procedure A3Click(Sender: TObject);
procedure D2Click(Sender: TObject);
procedure C2Click(Sender: TObject);
procedure S4Click(Sender: TObject);
procedure L3Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure S6Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure bsSkinSpeedButton4Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure XP1Click(Sender: TObject);
procedure VISTA1Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure listboxscrollar(sender:TObject);
procedure Timer2Timer(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure DSVideoWindowEx21DblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinSpeedButton7Click(Sender: TObject);
procedure N26Click(Sender: TObject);
private
{ Private declarations }
多媒体播放器－飓风影音 代码部分
5
public
// procedure ReadStreamProperties;
{ Public declarations }
OsdChanged : Boolean;
end;
var
OsdChanged : Boolean;
var
Form1: TForm1;
implementation
uses unit2,unit3,unit4,IniFiles;//ColorControl;
{$R *.dfm}
procedure TForm1.listboxscrollar(sender:TObject);
var
i,maxwidth:integer;
begin
maxwidth:=0;
for i:=0 to form1.ListBox1.Items.Count-1 do
if maxwidth<form1.ListBox1.Canvas.TextWidth(form1.ListBox1.Items.Strings[i]) then
maxwidth:=form1.ListBox1.Canvas.TextWidth(form1.ListBox1.Items.Strings[i]);
sendmessage(form1.ListBox1.Handle,LB_SETHORIZONTALEXTENT,maxwidth+20,0);
end;
procedure TForm1.N1Click(Sender: TObject); //菜单栏－打开文件
begin
if OpenDialog1.Execute then
begin
if not FilterGraph1.Active then FilterGraph1.Active := true;
FilterGraph1.ClearGraph;
FilterGraph1.RenderFile(OpenDialog1.FileName);
// VideoWindow.PopupMenu := PopupMenu;
form1.bsSkinSlider1.Value:= FilterGraph1.Volume;
FilterGraph1.Play;
end;
end;
procedure TForm1.bsSkinSlider1Change(Sender: TObject); //音量控制
var
tmp:TBitmap;
begin
