MEDIA PLAYER

Commentaire de ni69 le 06/04/2005 13:07:05

voila pour le réglage du son :

-------------------------------------------------
- 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

Commentaire de MAsterC le 07/04/2005 02:47:58

Salut!

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 ;)