Cum facem un Mp3 Player

In jos

Cum facem un Mp3 Player

Mesaj Scris de Max la data de Dum Sept 07, 2008 7:20 pm

Cum facem un MP3 Player in Delphi:

1) Introducem din tabul "Standard" un "Button (StdCtrls)" pe From1.
2) Introducem din tabul "System" un "Media Player (MPlayer)" pe From1.
3) Introducem din tabul "Win 3.1" un "FileListBox (FileCtrl)" pe From1.
4) Introducem din tabul "Win 3.1" un "DirectoryListBox (FileCtrl)" pe From1.
5) Introducem din tabul "Win 3.1" un "DriveComboBox (FileCtrl)" pe From1.
6) Le asezam dupa bunul plac incat sa fie vizibile toate componentele de pe Form1.
7) Din Object TreeView selectam Form1 apoi din Object Inspector mergem la Events
si la OnCreate introducem urmatorul cod:

MediaPlayer1.Visible:=false; // MediaPlayer1 sa fie invizibil
DriveComboBox1.DirList:=DirectoryListBox1; // Cutia cu disk-uri sa fie legata de Lista cu dosare
DirectoryListBox1.FileList:=FileListBox1; // Lista cu dosare sa fie legata cu Lista cu fisiere
FileListBox1.Mask:='*.mp3'; // Sa arate doar fisierele .MP3


Cool Din Object TreeView selectam FileListBox1 apoi din Object Inspector mergem la Events
si la OnClick introducem urmatorul cod:

MediaPlayer1.FileName:=filelistbox1.filename; //Sa se foloseasca fisierul care este ales in FileListBox1
MediaPlayer1.Open; //Deschide fisierul
MediaPlayer1.Play; //Ruleaza fisierul


9) Din Object TreeView selectam Button1 apoi din Object Inspector mergem la Events
si la OnClick introducem urmatorul cod:

MediaPlayer1.Stop; //Opreste melodia care ruleaza


10) Acesta este un player cat se poate de simplu, se pot implementa orice functii aditionale.

Max
Moderator
Moderator

Numarul mesajelor : 53
Varsta : 31
Localitate : Confidential
Stare de spirit : Rakiu
Data de inscriere : 23/08/2008

Vezi profilul utilizatorului

Sus In jos

Sus


 
Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum