V1oL
Administrator
Data inscrierii: 07/Oct/2008
Mesaje: 92
|
|
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:
| Citat: |
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 |
8) Din Object TreeView selectam FileListBox1 apoi din Object Inspector mergem la Events
si la OnClick introducem urmatorul cod:
| Citat: |
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:
| Citat: |
| MediaPlayer1.Stop; //Opreste melodia care ruleaza |
10) Acesta este un player cat se poate de simplu, se pot implementa orice functii aditionale.
|
 |
