Програмування процедур (Медіа-плеєр)

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.

Поиск по сайту: