Discussion :

[Charly910]

Bonjour,

j'ai crée une nouvelle fonction dans MMDevApi.pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{ ==================================================================== }
Function Volume(Var Mute : Boolean ; Var Vol : Integer ) : Boolean ;
Var
  endpointVolume: IAudioEndpointVolume;
  VolumeLevel: Single;
  deviceEnumerator: IMMDeviceEnumerator;
  defaultDevice: IMMDevice;
begin
  Result := False ;
  CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
  deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
  defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
  if endpointVolume = nil then Exit;
  Result := True ;
  endpointVolume.GetMasterVolumeLevelScaler(VolumeLevel);
  Vol := Round(VolumeLevel * 100) ;
  endpointVolume.GetMute(Mute)  ;
End ;  
{ ==================================================================== }

voici l'unité complète :

MMDevApi.zip

je l'utilise comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses MMDevApi
...
{ ========================================================================== }
procedure TForm1.Button1Click(Sender: TObject);
Var
  Mute : Boolean ;
  Vol : Integer ;
  Mess : String ;
begin
 If Volume(Mute, Vol) Then
    Begin
      Mess := 'Son On  -  Volume : ' ;
      If Mute Then  Mess := 'Son Off  -  Volume : ' ;
      ShowMessage(Mess+ IntToStr(Vol)+' %' );
    End
  Else
    ShowMessage('Erreur d''ouverture du média son') ;     
end;
{ ========================================================================== }

la fonction Volume fonctionne, le message s'affiche bienmais à la sortie de Button1Click j'ai un Acess Violation avec Read of Adress 0x00000000

Je ne comprends pas pourquoi ?

Merci de m'éclairer
A+
Charly

[ShaiLeTroll]

Interface à nil mal libérée ?

[Charly910]

Bonjour Shai,

oui, je pense que c'est ça, mais je ne sais pas quoi libérer (j'ai essayé des free ou des release sur un peu tout sans que ça compile)

A+
Charly

[ShaiLeTroll]

Le problème cela ressemble à un objet à nil relibéré

[Charly910]

Oui, mais je ne libère rien du tout !
je vais regarder de plus près
A+
Charly

[Charly910]

ça y est, j'ai trouvé : c'était la fonction GetMute qui faisait planter. GetMute n'accepte pas la variable Mute passé en paramètre Var de la fonction Volume !
avec la variable locale intermédiaire bMute ça passe !
voici les modifs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{ ==================================================================== }
Function Volume(Var Mute : Boolean ; Var Vol : Integer ) : Boolean ;
Var
  endpointVolume: IAudioEndpointVolume;
  VolumeLevel: Single;
  deviceEnumerator: IMMDeviceEnumerator;
  defaultDevice: IMMDevice;
  bMute : Boolean ;
begin
  Result := False ;
  CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
  deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
  defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
  if endpointVolume = nil then Exit;:mouarf:
  Result := True ;
  endpointVolume.GetMasterVolumeLevelScaler(VolumeLevel);
  Vol := Round(VolumeLevel * 100) ;
  endpointVolume.GetMute(bMute)  ;
  Mute := bMute ;
End ;
{ ==================================================================== }

Je n'ai pas compris pourquoi ? si jamais ShaiLeTroll ou Andnotor ont l'explication ? (je lance le défi du jour )

et aussi, Paul, Sergio, Anapurna, Cirec, Tourlourou, et tous les autres ...

A+
Charly

[Andnotor]

A mon avis

Le compilateur fait sont possible pour convertir une variable dans le type attendu (conversion implicite), GetMute attend un BOOL (4 octets) mais la variable est déclarée boolean (1 octet).
En lui passant un paramètre var, un pointeur, cette conversion n'est sans doute pas possible, GetMute écrase 3 octets.

Mais tu devrais pouvoir éviter cette variable intermédiaire en modifiant le prototype de la fonction : Function Volume(Var Mute :bool; Var Vol :integer) :boolean;

[Charly910]

Bonjour AndnotOr,

si je mets un Bool dans la fonction Volume, et si j’appelle endpointVolume.GetMute j'ai une erreur :

[Erreur] MMDevApi.pas(125): Les types des paramètres VAR originaux et formels doivent être identiques

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{ ==================================================================== }
Function Volume(Var Mute : Bool ; Var Vol : Integer ) : Boolean ;
Var
  endpointVolume: IAudioEndpointVolume;
  VolumeLevel: Single;
  deviceEnumerator: IMMDeviceEnumerator;
  defaultDevice: IMMDevice;
  bMute : Boolean ;
begin
  Result := False ;
  CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
  deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
  defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
  if endpointVolume = nil then Exit;
  Result := True ;
  endpointVolume.GetMasterVolumeLevelScaler(VolumeLevel);
  Vol := Round(VolumeLevel * 100) ;
  endpointVolume.GetMute(Mute)  ;    //  Erreur ici
//  Mute := bMute ;
End ;
{ ==================================================================== }

Donc ce ne doit pas être ça ?

Quand j'ai le curseur sur GetMute je vois : GetMute(Out bMute : Boolean)
Même avec Out ça ne marche pas avec un Bool

A+
Charly

[Andnotor]

si je mets un Bool dans la fonction Volume, et si j’appelle endpointVolume.GetMute j'ai une erreur :

Oui, la variable Mute passée à Volume doit être du type BOOL aussi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function Volume(Var Mute :bool; Var Vol :integer) :boolean;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Mute :bool;
  Vol  :integer;
begin
  Volume(Mute, Vol);
  CheckBox1.Checked := Mute;  // Conversion implicite de bool en boolean
end;

Quand j'ai le curseur sur GetMute je vois : GetMute(Out bMute : Boolean)

L'interface n'est pas déclarée correctement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
function SetMute(bMute: Bool; pguidEventContext: PGUID): Integer; stdcall;
function GetMute(out bMute: Bool): Integer; stdcall;

[Charly910]

Ok, avec les déclarations de SetMute et GetMute corrigées, ça fonctionne

Merci Andnotor, c'est toi qui remporte le grand défi !!

A+
Charly