[es] - osnove multimedije

stuparic
stuparic dejan
banat

Član broj: 47164
Poruke: 59
*.ftn.ns.ac.yu.

Profil

^{20.05.2005. u 12:26 - pre 230 meseci}

Pocetnik sam u Delphiju pa mi trebaju neke konkretne instrukcije.

Kod multimedije kako je moguce vezati track bar da pokazuje volume i da premotava MUZICKI FAJL. I kako u recimo memo konponenti omoguciti prikazivanje imena fajla koji se trenutno reprodukuje.

Ako je moguce napisaite mi cela imena funkcija koje se koriste ili deo koda koji je potreban.
Unapred zahvalan.

What if the prophecy is true?
What if tomorrow the war could be over?
Isn't that worth fighting for?
Isn't that worth dying for?

Morpheus.

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: osnove multimedije

^{21.05.2005. u 00:00 - pre 230 meseci}

evo ti koda za trackbar:

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.

a za ime fajla... pa prilikom ucitavanja fajla smesti kompletan path u neku promenljivu i onda je mozes prikazati u memo-u ili samo extractfilename(ta_promenljiva);

p0z

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu