Програмування процедур (Медіа-плеєр)
unit media1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, ExtCtrls, ComCtrls, StdCtrls, jpeg;
type
TForm1 = class(TForm)
Image1: TImage; Edit1: TEdit; Button1: TButton; scroll: TTrackBar;
Play: TPanel; Pause: TPanel; Back: TPanel; Forward: TPanel;
Stop: TPanel; Timer1: TTimer; Open1: TOpenDialog;
MediaPlayer1: TMediaPlayer;
Procedure playmousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure playmouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure pausemousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure pausemouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure backmousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure backmouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure forwardmousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure forwardmouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure stopmousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
Procedure stopmouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
procedure PlayClick(Sender: TObject);
procedure PauseClick(Sender: TObject);
procedure BackClick(Sender: TObject);
procedure ForwardClick(Sender: TObject);
procedure StopClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private { Private declarations } public { Public declarations } end;
var Form1: TForm1;implementation
{$R *.dfm}
Procedure tform1.playmousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin play.bevelinner:=bvlowered; play.bevelouter:=bvraised; end;
Procedure tform1.playmouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin play.bevelinner:=bvraised; play.bevelouter:=bvlowered; end;
Procedure tform1.pausemousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin pause.bevelinner:=bvlowered; pause.bevelouter:=bvraised; end;
Procedure tform1.pausemouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin pause.bevelinner:=bvraised; pause.bevelouter:=bvlowered; end;
Procedure tform1.backmousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin back.bevelinner:=bvlowered; back.bevelouter:=bvraised; end;
Procedure tform1.backmouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin back.bevelinner:=bvraised; back.bevelouter:=bvlowered; end;
Procedure tform1.forwardmousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin forward.bevelinner:=bvlowered; forward.bevelouter:=bvraised; end;
Procedure tform1.forwardmouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin forward.bevelinner:=bvraised; forward.bevelouter:=bvlowered; end;
Procedure tform1.stopmousedown(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin stop.bevelinner:=bvlowered; stop.bevelouter:=bvraised; end;
Procedure tform1.stopmouseup(sender:tobject;
button:tmousebutton;shift:tshiftstate;x,y:integer);
begin stop.bevelinner:=bvraised; stop.bevelouter:=bvlowered; end;
procedure TForm1.PlayClick(Sender: TObject);
begin mediaplayer1.FileName:=edit1.Text; mediaplayer1.Open; mediaplayer1.Play;
scroll.max:=mediaplayer1.tracklength[1]; timer1.Enabled:=true;end;
procedure TForm1.PauseClick(Sender: TObject);
beginmediaplayer1.Pause;end;
procedure TForm1.BackClick(Sender: TObject);
beginmediaplayer1.Position:=mediaplayer1.Position-100;mediaplayer1.Play;end;
procedure TForm1.ForwardClick(Sender: TObject);
beginmediaplayer1.Position:=mediaplayer1.Position+100; mediaplayer1.Play;end;
procedure TForm1.StopClick(Sender: TObject);
beginmediaplayer1.Stop;mediaplayer1.Position:=1;end;
procedure TForm1.Timer1Timer(Sender: TObject);
beginscroll.position:=mediaplayer1.position;end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not open1.Execute then showmessage('файл вами не обраний!')
else edit1.Text:=open1.FileName;end;
procedure TForm1.FormCreate(Sender: TObject);
var str:string;i:integer;begin if paramcount>0 then
begin str:=paramstr(1); for i:=2 to paramcount do str:=str+''+paramstr(i); end;
if str<>'' then begin edit1.Text:=str; mediaplayer1.FileName:=edit1.Text;
mediaplayer1.Open; mediaplayer1.Play; scroll.Max:=mediaplayer1.TrackLength[1];
timer1.Enabled:=true; end;end;end.
Поиск по сайту:
|