Trouver les peak values des deux canaux du haut-parleur

Version imprimable

Voir 40 message(s) de cette discussion en une page

Tu dis:

Citation:

EDIT : regarde ce truc, ça doit être facilement transposable en Delphi, j'ai trouvé les noms des fonctions sympathiquement utiles (ou utilement sympathiques, comme tu le sens, )

J'ai regardé la section intéressante:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 public void IAudioMeterInformation_GetChannelsPeakValues() { ExecuteDeviceActivationTest(activation => { UInt32 count; activation.GetMeteringChannelCount(out count); var peaks = Enumerable.Repeat(123.456f, (int)count).ToArray(); var result = activation.GetChannelsPeakValues(count, peaks); AssertCoreAudio.IsHResultOk(result); Assert.IsFalse(peaks.Any(f => f == 123.456f), "One or more channel values was not received."); }); }
Et j'ai l'impression que je fais exactement ça:
- récupérer le nombre de anaux dans un integer - j'ai vérifié: la valeur est 2
- créer une variable en flottant simple de type tableau avec le nombre de canaux - ici, c'est la variable peaks
- appeler laméthode GetChannelsPeakValues avec ses 3 paramètres "nombre de canaux" et "pointeur vers le tableau"
Mais mon interprétation reste fragile car je ne suis pas du tout opérationnel en C. J'ai vérifié les différents éléments de la ligne

Code:

var peaks = Enumerable.Repeat(123.456f, (int)count).ToArray();

et ça semble correspondre à ce que je fais, à ceci près qu'ici, le tableau est créé dynamiquement, alors que pour ma part, je le crée en tableau statique de deux éléments.

Je sèche...

27/12/2017, 09h37
Jipété

Citation:

Envoyé par KlausGunther

Je sèche...

Oui...
Mais quand je disais :

Citation:

Envoyé par Jipété

EDIT : regarde ce truc, ça doit être facilement transposable en Delphi, j'ai trouvé les noms des fonctions sympathiquement utiles (ou utilement sympathiques, comme tu le sens, :mrgreen:)

je sous-entendais de démarrer un nouveau projet de test et y traduire le lien donné, pour voir comment ça se comporte avec un minimum d'instructions. La blague y sera peut-être plus facile à cerner.
Car ce lien, du peu que j'en ai lu, semble être une unité de test.
27/12/2017, 16h59
KlausGunther

Je me heurte toujours au même problème. Mis à part le fait que, dans mon code, je prends également le volume global, la récupération des volumes par canal conduit toujours au même résultat. J'ai conçu mon code en adaptant un code similaire, aidé par la doc de MSN. Et, en toute logique, si la valeur pour le premier canal arrive, celle pour le second doit arriver également. Car, après tout, il s'agit d'un seul et unique appel de la méthode de l'interface, et non deux appels distincts dont un pourrait être mal paramétré.
27/12/2017, 22h41
Jipété

Bonsoir,

si c'est possible, tu devrais générer un projet de test réduit au strict nécessaire et mettant en évidence le problème, tout ça packagé dans un .zip, afin que d'autres puissent tester.
27/12/2017, 23h41
KlausGunther

C'est une idée. Je vais essayer ça.
28/12/2017, 00h35
KlausGunther

1 pièce(s) jointe(s)

Voilà qui est fait. Un projet complet, opérationnel, réalisé avec Delphi 6 Personal Edition.

J'y ai inclus les fonctions en question en provenance de ma DLL, sans aucune modification, et je les ai appelées par deux boutons, au lieu de les appeler par n langage externe. Puis, j'ai ajouté un simple timer Delphi nommé Surveillance qui se déclanche toutes les 90 millisecondes. Il va afficher le contenu de mes 3 variables supposées recevoir les PeakVolume du canal gauche et droit ainsi que le PeakVolume global.

Au démarrage, il ne se passe rien, bien sûr. Il faut cliquer sur "Démarrer" et les 3 valeurs s'affichent. Si le volume général est coupé, les 3 valeurs resten à zéro. Si l'on monte le volume général, il ne se passe toujours rien. Normal. Mais si maintenant un fait jouer un son ou une vidéo quelconque, on voit immédiatement que la canal gauche et le volume général travaillent, mais pas le canal droit.

Voilà, je ne vois pas ce que je pourrais faire de mieux pour montrer le problème...
28/12/2017, 09h48
tourlourou

Une idée de test à la c*** (au cas où éléments du tableau pas "rangés" dans le même sens) :
déclarer le tableau de singles [0..2]
passer l'adresse de l'élément d'indice 1
regarder les 3 valeurs après appel de la fonction

NB: je n'y crois pas, mais en même temps, on n'a pas d'explication satisfaisante du comportement... :aie:
28/12/2017, 10h20
Jipété

Citation:

Envoyé par KlausGunther

Voilà qui est fait. Un projet complet, opérationnel, réalisé avec Delphi 6 Personal Edition.

Bien joué.
Plus qu'à attendre les retours des copains...

En ce qui me concerne, je suis coincé de chez coincé pour la bonne et simple raison que j'ai des vieilles machines Windows (en machines virtuelles) mais c'est du XP et du 2000, or les API's que tu manipules sont notées chez MS "à partir de Vista", :aie:
J'ai quand même testé dans une Seven (mais elle n'a pas d'outils de développement), et le problème est identique : on est donc au moins sûr que le problème est dans ton code et pas dans ta machine, c'est déjà un point pour avancer.

Voilà pour ma contribution, je regrette de ne pouvoir aller plus loin...

Bonjour et bonnes fêtes,

très bonne idée que celle de créer un projet démo :P

je pense avoir trouvé le problème qui se situe au niveau du passage du PSingle à la fonction "peak.GetChannelsPeakValues"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin
  ttimer(sender).Enabled := false;          // arrêter le timer, le temps de traiter l'évènement
  ChannelVolumes[0] := 0;                   // assurer que le tableau est bien lis à zéro
  ChannelVolumes[1] := 0;
// suppression de cette ligne
//  pVolumes := pSingle(@ChannelVolumes[0]);  // créer le pointeur vers le début du tableau
                                            // si j'ai bien compris la documentation de MSDN, la méthode GetChannelsPeakValues prens 2 paramètres:
                                            // le premier donne le nombre de canaux (deux dans mon cas, et j'ai vérifié le contenu de la variab
 
  peak.GetPeakValue(Temp);                  // prendre la valeur instantané du volume global, résultat dans Temp ==> correct !
// pour un passage direct    et là ça fonctionne ;)
  HR := peak.GetChannelsPeakValues(nChannels, pSingle(ChannelVolumes[0]));      // prendre les valeurs instantanées des deux canaux <========== Seul [1] est retourné, [2] reste à zéro !
                                                       // un pointeur vers le premier élément d'un tableau de flottants (de type Single)
                                                       // la méthode est supposé remplir le tableau avec les deux valeurs...

voilà en espérant que ça t'aidera ;)

Cordialement,
@+

Citation:
Envoyé par Cirec
je pense avoir trouvé le problème qui se situe au niveau du passage du PSingle à la fonction "peak.GetChannelsPeakValues"
Code:

1 2 3 4 // suppression de cette ligne // pVolumes := pSingle(@ChannelVolumes[0]); // créer le pointeur vers le début du tableau // pour un passage direct et là ça fonctionne ;) HR := peak.GetChannelsPeakValues(nChannels, pSingle(ChannelVolumes[0])); // prendre les valeurs instantanées des deux canaux <========== Seul [1] est retourné, [2] reste à zéro !
:hola:
Confirmé sous Seven après compilation avec D7 perso sous 2000 :ccool:
:plusser:
:applo:

28/12/2017, 17h46
KlausGunther

YES !!!!!!!!!!!

C'est vrai - ça marche ! Un grand MERCI à vous, Jipété et Cirec !

Mais enfin, j ene comprends pas. Caster un élément d'un tableau de single en pSingle - je ne comrprends pas. J'avais pourtant l'impression de construire un pointeur vers le premier élément de mon tableau avec la première ligne que tu supprimes, et dans la deuxième, je passais ce pointeur... Qu'est-ce que ça signifie:

Code:

pSingle(ChannelVolumes[0])

Je ne comprends pas vraiment cette expression.
28/12/2017, 17h51
Jipété

Citation:

Envoyé par KlausGunther

C'est vrai - ça marche ! Un grand MERCI à toi, Jipété !

Ben c'est surtout Cirec qu'il faut remercier, c'est lui qui a mis le doigt là où ça faisait mal, et qui va se faire un plaisir de nous expliquer les tréfonds du casting, :mouarf:

PS : tu penseras à cliquer sur :resolu:, merci :ccool:
28/12/2017, 17h59
KlausGunther

Citation:

Ben c'est surtout Cirec qu'il faut remercier

Oui, je viens de réaliser, et j'ai rectifié mon message ! C'est déjà bien de voir que des membres du forum s'occupent de mon problème, et en plus trouvent la solution ! C'est super ! Quoique un peu frustrant, car je ne comprends pas pourquoi ça marche et pas ma version du code. Mais Cirec aura sûrement pitié de mon ignorance...
28/12/2017, 19h06
Andnotor

Citation:

Envoyé par KlausGunther

Caster un élément d'un tableau de single en pSingle - je ne comrprends pas.

Ce n'est pas un transtypage, un transtypage est l'interprétation d'une donnée sous une autre forme. Ce n'est pas le cas ici, pSingle n'est pas un type mais un pointeur typé. pSingle(ChannelVolumes[0]) retourne donc un pointeur sur le premier élément ChannelVolumes. @ChannelVolumes serait identique pour ton utilisation, la seule différence étant que le pointeur est non typé mais cela n'aurait aucune incidence sur l'appel de la fonction qui n'attend finalement qu'une adresse.

Partant de là, pSingle(@ChannelVolumes[0]) est un pointeur (pSingle) sur un pointeur (@) et non sur une donnée (ChannelVolumes). Tu as de la chance de ne pas avoir eu de VA.

Bravo à Cirec :plusser:, ces histoires de pointeur sont régulièrement à s'arracher les cheveux.

pSingle (ou tout pointeur typé) est principalement utile dans les déclarations de variables pour permettre leur incrémentation en fonction du type de données. Pour un passage de paramètre, @ est suffisant.

Tu pourrais maintenant apporter quelques améliorations à ton code. Tu pars du principe qu'il y a deux canaux mais ce n'est qu'une supposition. ChannelVolumes devrait être un array of single et sa taille dépendante de ChannelCount (SetLength). Mais attention, la déclaration d'un tableau dynamique n'étant qu'un pointeur, plus besoin de pSingle ou @.
28/12/2017, 19h38
KlausGunther

4 pièce(s) jointe(s)

Merci beaucoup pour ces explications. Cependant, il reste un point ouvert: mon compilateur n'aime pas beaucoup l'absence du pSingle ou du @. Suivant ton conseil, j'ai défini mon tableau en dynamique, et je l'ai dimensionné en fonction du nombre de canaux, tout en laissant l'appel de ma méthode identique. Ca marche sans problème. Dont acte pour la défintiion du tableau.

Par contre, tu dis:

Citation:

la déclaration d'un tableau dynamique n'étant qu'un pointeur, plus besoin de pSingle ou @

Et là, mon compilateur ne veut plus:
Pièce jointe 338050
absence du pSingle et du @ est refusée.

Ou alors:
Pièce jointe 338053
idem sans spécifier l'indice.

Ou alors:
Pièce jointe 338060
idem juste avec @.

Voilà ce qui marche:
Pièce jointe 338055

Est-ce que c'est l'ancien Delphi 6 qui ne comprend pas qu'un tableau dynamique est juste un pointeur, ou est-ce que j'ai mal compris ton message ?
28/12/2017, 20h22
Cirec
Citation:

Envoyé par KlausGunther

C'est super ! Quoique un peu frustrant, car je ne comprends pas pourquoi ça marche et pas ma version du code. Mais Cirec aura sûrement pitié de mon ignorance...

re,

j'aurai bien aimer répondre à ta demande mais je crains de ne pas avoir de réponse a te donner !

tout ce que je sais c'est que le fait d'avoir mis le doigt sur le "Pointeur sur Pointeur" n'a pas résolu le problème en soi.
si on passe par une variable intermédiaire
Code:

1 2 pVolumes := pSingle(ChannelVolumes[0]); HR := peak.GetChannelsPeakValues(nChannels, pVolumes);
ça ne fonctionne pas !!!
par contre HR := peak.GetChannelsPeakValues(nChannels, pSingle(ChannelVolumes[0])); fonctionne

et ça je ne me l'explique pas .... désolé :calim2:

Si quelqu'un a une explication je suis également preneur :D

Cordialement,
@+
28/12/2017, 20h31
Cirec

pour illustrer les propos d'AndNotOr

Citation:

Mais attention, la déclaration d'un tableau dynamique n'étant qu'un pointeur, plus besoin de pSingle ou @.

il te faut redéclarer la fonction "GetChannelsPeakValues" ainsi:

Code:

function GetChannelsPeakValues(u32ChannelCount: UINT; out afPeakValues): HRESULT; stdcall;

et du coup tu peux faire :

Code:

HR := peak.GetChannelsPeakValues(nChannels, ChannelVolumes[0]);

Cordialement,
@+
28/12/2017, 20h44
KlausGunther

Très intéressant ! Un paramètre non typé - je n'aurais jamais pensé à ça ! Mais ça marche - tant mieux.

MSDN dit:

Citation:

afPeakValues [out]

Pointer to an array of peak sample values. The method writes the peak values for the channels into the array. The array contains one element for each channel in the stream. The peak values are numbers in the normalized range from 0.0 to 1.0.

Je pensais naturellement que passer un pointer vers un flottant simple correspondrait à la définition. Mais un paramètre non typé ? Là encore, c'est un mystère pour moi. Apparemment, un paramètre non typé est traité comme un pointeur, n'est-ce pas ?
29/12/2017, 05h24
Andnotor

Supprime le out qui n'a à mon sens pas lieu d'être. afPeakValues n'est pas modifié, c'est le tableau pointé qui l'est.
29/12/2017, 09h50
KlausGunther

1 pièce(s) jointe(s)

Dans ce cas, le compilateur rejette pour cause de manque de type du paramètre:
Pièce jointe 338142

Voir 40 message(s) de cette discussion en une page