MEDIA PLAYER
Nicolas___
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
-
6 avril 2005 à 01:18
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 - 8 avril 2005 à 12:51
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 - 8 avril 2005 à 12:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30547-media-player
https://codes-sources.commentcamarche.net/source/30547-media-player
8 avril 2005 à 12:51
Pour l'erreur je ne comprend pas, chez moi j'ai teste avec beaucoup de MP3 et je n'ai jamais eu de problemes.
Slt et merci
8 avril 2005 à 10:05
si tu je veut je voudrais la reprendre pour l'amelkiorer et inserer plus de commentaires comme ca elle sera plus pedagogique
merci nicolas
7 avril 2005 à 02:47
Pas si mal!
Mais je suis venu pour lire un mp3 et voila une erreur qui s'affiche "No MCI Device Open".
Ensuite à mon avis, la taille de ta Form et de t'es écriture sont un peu grosse, pour les 800x600 sa doit prendre toute la largeur de leurs écrans, même il doit sumrent en manqué des bout.
Bon boulot, lâche pas!
Continue à l'évolué et le résultat final sera parfait ;)
6 avril 2005 à 14:37
Je pense que je n'aurais jamais trouvé tout seul.
Connaissais pas MmSystem!
Slt
6 avril 2005 à 13:07
-------------------------------------------------
- AuxSetVolume : Auxiliaire (line)
- MidiOutSetVolume : Midi
- WaveOutSetVolume : Wave
-------------------------------------------------
uses Mmsystem;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.TrackBar1.Min :=0;
Form1.TrackBar1.Max :=65535;
Form1.TrackBar1.Frequency :=6553;
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);
end;
@+
Nico
6 avril 2005 à 01:18
Donnez vos avis(Tous les types d'avis,les mauvais ne pourront que m'aider à progresser) sur mon programe car c'est mon premier et je débute en delphi et j'aimerais savoir si c'est bien ou non.
Merci