AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 04:44:58
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

REGLER LE VOLUME SONORE AVEC DELPHI


Information sur la source

Catégorie :API Niveau : Débutant Date de création : 25/01/2003 Date de mise à jour : 25/01/2003 02:54:24 Vu : 5 388
Auteur : Skyline Ecrire un message privé
Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (17)
Ajouter un commentaire et/ou une note

Description

reglage du volume dans delphi c'est possible...... avec une 'trackbar'
j'ai (pour le moment) trouvé trois réglages possible...
- AuxSetVolume --> Auxiliaire (line)
- MidiOutSetVolume --> Midi
- WaveOutSetVolume --> et le wave
mais les recherches continuent.....
 

Source

  • 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
  • AuxSetVolume(Form1.MediaPlayer1.DeviceID, Form1.TrackBar1.Position);
  • end;
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
AuxSetVolume(Form1.MediaPlayer1.DeviceID, Form1.TrackBar1.Position);
end;

Commentaires et avis

signaler à un administrateur
Commentaire de Delphiprog le 25/01/2003 11:18:21 administrateur CS

Tu n'es pas obligé de remettre Form1 partout dans le code tant que tu restes dans l'unité où est déclarée Form1.

signaler à un administrateur
Commentaire de Skyline le 25/01/2003 20:32:05

je sais mais c'est une habitude....
petite correction:
AuxSetVolume(Form1.MediaPlayer1.DeviceID, Form1.TrackBar1.Position);

par

AuxSetVolume(0,TrackBar1.Position);
en fait ça marche mieux.......

signaler à un administrateur
Commentaire de pepper le 07/09/2003 11:54:54

et vous savez comment regler le son lorsqu'un CD-AUDIO joue?
j'arrive avec les MP3, WVA ..., mais pas les CD
merci

signaler à un administrateur
Commentaire de Bombela le 12/12/2003 12:48:32

Cool !

Je cherchais justement ça !

J'ai pas trouvé pour les CD moi aussi...

signaler à un administrateur
Commentaire de DeltaFX le 09/08/2004 15:08:46

Sympa, vachement pratique, surtout avec un TSK. Et pour le réglage de balance, on fait comment ?

signaler à un administrateur
Commentaire de ni69 le 06/04/2005 13:05:25

Petite amélioration à apporter, qui résoud le pb de balance :) :

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;
   AuxSetVolume(0,Volume);
end;

@+
Nico

signaler à un administrateur
Commentaire de mobilotek le 31/05/2006 22:30:59

Pourquoi ca ne marche pas avec mon pc? Jai le meme code que vous, pourtant. De quoi ca peut venir?

signaler à un administrateur
Commentaire de ni69 le 01/06/2006 00:22:19

salut mobilotek,
as-tu bien adapté l'appel de procédure selon tes besoins ?

AuxSetVolume() : Son Auxiliaire
MidiOutSetVolume() : Son Midi
WaveOutSetVolume() : Son wave

@+
Nico

signaler à un administrateur
Commentaire de mobilotek le 01/06/2006 03:21:06

OK, merci.
En fait les procedures dependent d'ou est branchée l'enceinte...non?

signaler à un administrateur
Commentaire de ni69 le 09/06/2006 10:14:07

Le choix de la procédure dépend de la source audio désirée...

signaler à un administrateur
Commentaire de cacoucatatonique le 10/08/2006 10:37:18

bonjour a tous ,
il est super ton code il fonctionne nickel par contre j'ai une petite question, comment peut on activer la commende mute (desactiver le son syteme ) par delphi?
merci d'avance

signaler à un administrateur
Commentaire de ni69 le 01/09/2006 12:35:08

Salut,

Tu peux utiliser une émulation de la touche "muet" :

Keybd_event(173,0,0,0);
Keybd_event(173,0,KEYEVENTF_KEYUP,0);

@+
Nico

signaler à un administrateur
Commentaire de Yil2201 le 21/11/2007 16:23:46

Salut Ni96 !
Merci beaucoup pour ton émulation !!
Tu saurais émuler les touches Volume + et - ?

Merci,
A+

signaler à un administrateur
Commentaire de ni69 le 21/11/2007 23:06:28

Windows définit des constantes spéciales pour toutes les touches du clavier. Voici les noms symboliques, les codes hexadécimaux, et les valeurs décimales des touches que tu demandes. Remplace juste le 173 de mon commentaire par ce que tu veux parmi les valeurs ci-dessous pour satisfaire tes désirs !

VK_VOLUME_MUTE / 0xAD / 173
VK_VOLUME_DOWN / 0xAE / 174
VK_VOLUME_UP / 0xAF / 175

@+
Nico

signaler à un administrateur
Commentaire de scooby doo le 25/02/2008 20:04:16

bonjour,

est-ce que vous pouvez m'aider car moi, "AuxSetVolume" n'est pas reconnu
pouvez vous m'expliquer?

merci

signaler à un administrateur
Commentaire de Bacterius le 25/03/2008 20:09:50

Bonjour,
Scooby Doo as-tu pensé à ajouter l'unité MMSystem dans ta clause "Uses"?

Cordialement, Bacterius !

PS : si une fonction ou une procédure n'est pas reconnue, tente de la sélectionner (mettre en surbrillance) et appuie sur "F1". Si une rubrique apparait, il y a de fortes chances pour que la fonction soit reconnue, mais qu'il manque juste une unité ou quelque chose du genre ... ;)

signaler à un administrateur
Commentaire de toutepetitesouris le 15/04/2009 13:56:05

bonjour,

personne n'a expliquer comment faire si on utilise le format Wma

quelqu'un saurait?

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


RIM BlackBerry Storm 9530
Entre 72€ et 72€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto homme nu
Photo jeune fille plagePhoto adolescente

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,499 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.