Volume

Question

Alors salut a tous, voici mon probleme, j'ai mis ce code dans mon programme, il sert a gerrer le volume «wave» de Windows, tous marche comme voulu sauf que quand je ouvre mon "Film" et que je fait "play", je vien pour ajuster mon volume et rien ne marche :( pourquoi?

merci

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);
begin
WaveOutSetVolume(Form1.MediaPlayer1.DeviceID, Form1.TrackBar1.Position);
end;
 
 
 :)  MAsterC  :)

cs_Delphiprog · Answer

A ta place, je testerai la valeur de retour de la fonction WaveOutSetVolume pour chacun des cas suivants :


Returns MMSYSERR_NOERROR if successful or an error otherwise. Possible error values include the following:

MMSYSERR_INVALHANDLE	Specified device handle is invalid.
MMSYSERR_NODRIVER	No device driver is present.
MMSYSERR_NOMEM	Unable to allocate or lock memory.
MMSYSERR_NOTSUPPORTED	Function is not supported.

Comme ça, tu serais fixé...
May Delphi be with you

Volume

1 réponse

Votre réponse

Discussions similaires