mp3Résolu

Question

Bonjour,
j'aimerais cr&#233;er un lecteur multim&#233;dia, mais j'aurais besoin d'&#234;tre guid&#233; sur le commencement:
Comment lire un MP, comment faire la barre de d&#233;filement et comment charger le MP3, les bases d'un lecteur multim&#233;dia...

Nicolas___ · Accepted Answer

tu peux lire tres facilement tes mp3 grace a Tmediaplayer 

// -------------------------------------
// charger son ac AutoOpen = False 
//-------------------------------------

Son1.FileName:=NomSon1; // ...
Son1.Open;  // Oblige de le faire car autoopen:=False
Track.Max:=Son1.Length;  
label1.Caption:=NomSon1;      //....

procedure TForm1.playClick(Sender: TObject);
begin
son1.Play
end;

alors cote barre de defillemet 

 track.Max := son1.Length;
 track.Min := 0;

a chaque fois avant de charge ton son (media.lenght est la longueur de ton son )

et ds 1 timer place 

track.Position := son1.Position;

PS:Track ---> TScrollBar

pr changer ton son de place

procedure TForm1.trackScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
son1.Position:=track.Position;
son1.Play;
end;

Ciao 

Nico

Nicolas___ · Answer

Evidement mais on ne sais jamais ...

ICI son1 = composant TMediaplayer !!!! 

Slt 

De tt facon regarde sur le site il y a en des milliers(bon au moins 25 en tt cas ! )

guigui265 · Answer

ok,merci,&#233; j'av&#233; compri, mai je veux juste en fair un tou seul, de a a z
tao

Nicolas___ · Answer

Si tu veux voila la solution pr changer le volume du son ds tom application 

procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.Min :=0;
TrackBar1.Max :=65535;
TrackBar1.Frequency :=6553;
trackbar1.Position:=65535;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
var
LVolume,  RVolume,  Volume: DWord;
begin
   RVolume:=TrackBar1.Position;
   LVolume:=TrackBar1.Position;
   Volume:=(DWord(RVolume) Shl 16) Or LVolume;
   WaveOutSetVolume(0,Volume);
   midiOutSetVolume(0,volume);
   label5.Caption:='Volume ';


end;

Et si tu veux g  aussi une fonction pr enregister un son ...

Ciao

guigui265 · Answer

ben &#233;coute, je ve bien,envoi moi tou ce ke tu peu sur la lecture mp3
merci

f0xi · Answer

je te conseil de regarder egalement les API Bass et FMod, egalement ma source PlopEngine (sur ce site) et aussi les projets multimedia comme Dekibulle (sur ce site egalement) ect... tu y trouveras de nombreuse chose utile.

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

guigui265 · Answer

Salut, je n'arrive a utiliser ces 2 lignes:
 WaveOutSetVolume(0,Volume);
   midiOutSetVolume(0,volume);

elle sont reconu come identificateur non d&#233;clar&#233;
coment faire? pour koi?

Nicolas___ · Answer

il faut que tu mettes ds uses MMSystem et ca marchera je pense 
Slt

Mp3

8 réponses

Votre réponse

Discussions similaires