vidi ovo:
Code:
{//////////////////////////////////////////////////////////////
This sample shows how to play .AVI-file in TPanel component.
Note that TMediaPlayer component is hidden and we use our own
buttons to Play, Pause/Continue and Stop movie.
//////////////////////////////////////////////////////////////}
unit AVIUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MPlayer, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Button1: TButton;
Panel1: TPanel;
Button2: TButton;
Button3: TButton;
TrackBar1: TTrackBar;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
TheLength: LongInt;
begin
With MediaPlayer1 do
Begin
DeviceType := dtAVIVideo;
TimeFormat := tfFrames;
Open;
FileName := 'd:\welcome.avi';
{
}
TrackBar1.Max := Frames;
TheLength := Length;
Display := Panel1;
DisplayRect := Rect(10,10, Panel1.Width-20,Panel1.Height-20);
Play;
End;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If (Sender As TButton). Caption = 'Pause' Then
(Sender As TButton). Caption := 'Continue';
If (Sender As TButton). Caption = 'Continue' Then
(Sender As TButton). Caption := 'Pause';
MediaPlayer1.Pause;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.Stop;
Panel1.Refresh;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
With MediaPlayer1 do
Begin
StartPos := TrackBar1.Position;
Play;
End;
end;
end.
p.s. ako ovo nema veze s temom, ne zamerite, sad sam dosao sa zurke!
Moj sajt.
Moj blog.
Moj avatar.
Moj grad.
Moja frizura.
[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Multimedija u delphi-u
Re: Multimedija u delphi-u