Discussion :

[Cbm64]

Bonjour à Tous...

J'expérimente la librairie 'ZPLAY' : La fonction 'DetectFileBPM' avec delphi7.

http://libzplay.sourceforge.net/libZ...ionMethod.html

Je déclare la Lib dans la close 'uses'.
Je déclare la variable 'Dtc' de type 'ZPlay'.
Dans l'évènement 'OnCreate' du formulaire 'Form1', la création de 'Dtc'.

Dans l'évènement 'OnClick' du bouton 'Detection' j'implémente le code de détection du 'BPM' avec
la fonction :
function DetectFileBPM(const FileName: AnsiString; Format: TStreamFormat; Method: TBMPDetectionMethod): Integer;
de la librairie LibZplay.

J'ai juste mis le code concernant la détection 'BPM'.

Le problème c'est que cela ne parche pas.
Aucun message d'erreur.
Il n'y a aucun traitement et la valeur 'BPM' retourné est toujours égal à zéro.

Pourriez-vous m'aider à ce sujet ?

Merci...
--------------------------------

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
22
23
24
25
26
 
//##################################################################
uses
  ...,libZPlay;
//##################################################################
var
  Dtc: ZPlay;
//##################################################################	
procedure TForm1.FormCreate(Sender: TObject);
 begin
  Dtc := ZPlay.Create;	
 end;
//##################################################################
procedure TBPMFiles.DetectionClick(Sender: TObject);
var
 i: word   // Index du Fichier
 Bpm: integer; // Valeur 'BPM' du Fichier.
begin
 for i: = 0 to ListeFichier.Items.Count-1 do // 'ListeFichier' contient la liste des fichier à traités'
  begin
   LB_Nom.Items.Add(ListeFichier.Items[i]); // Stockage du Nom de Fichier dans la ListBox 'LB_Nom';
   Bpm:=Dtc.DetectFileBPM(ListeFichier.Items[i],sfAutodetect,dmPeaks); // Appel de la fonction
   LB_Bpm.Items.Add(inttostr(Bpm)); // Stockage du 'BPM' dans la ListBox 'LB_Bpm'
  end;
end;
//##################################################################

[Jipété]

Yop !

Le problème c'est que cela ne parche pas.
Aucun message d'erreur.
Il n'y a aucun traitement et la valeur 'BPM' retournée est toujours égal à zéro.

Comment sais-tu qu'il n'y a aucun traitement ?

Par ailleurs, la première chose que j'ai vue en suivant le lien que tu donnes, c'est ça :

Returns

BPM value. If algorithm can't detect BPM value, return value is 0.

Pour vérifier que ça parche, tu devrais essayer avec un morceau "facile", ie bien rythmé, bien marqué, pas le genre bossa-nova, quoi. (bon, j'dis ça parce que je ne sais pas avec quoi tu testes.)

[Cbm64]

Bonjour @Jipété...
j'ai essayé avec des dizaines de fichiers de formats audio et styles différents bien évidemment.
Je sais que cela marche pas, car je n'est aucun accés au fichier(s), Si on a un peu d'expérience sur la détection 'BPM' on sait que détecter ~1000 fichiers ne se fait pas instantanement. Sinon cette 'Lib' est révolutionnaire !?!
L'affichage finale est quasi instentané dès que le relache le bouton.
Je précise que si j'utilise la fonction 'DetectBPM' pendant la lecture d'un flux, cela fontionne très bien sur les même fichiers, et qu'aucunes valeurs de BPM=0 n'est retournée.
Je pense pourtant bien implémenté cette fonction 'DetectFileBPM'.

[Jipété]

Je sais que cela marche pas, car je n'est aucun accés au fichier(s),

Pas compris.
Comment ça, je n'est ai (du verbe "avoir") aucun accès au fichier(s) ?
Avec DetectBPM tu as accès au fichier et avec DetectFileBPM non ? Faut voir avec les gens qui ont développé ça, alors.

Je précise que si j'utilise la fonction 'DetectBPM' pendant la lecture d'un flux, cela fonctionne très bien sur les mêmes fichiers, et qu'aucune valeur de BPM=0 n'est retournée.
Je pense pourtant bien implémenter cette fonction 'DetectFileBPM'.

Je passe...

[Cbm64]

Pour faire simple...
Avec la fonction 'DetectBPM' on détecte le 'BPM' sur le flux de lecture en cours.
Il faut donc créer un lecteur, puis lancer la fonction.
ZPlay.OpenFile(...);
Zplay.StartPlayback();


Avec la fonction 'DetectFileBPM' on n'a pas besoin d'ouvrir un lecteur, on accède directement au fichier.

il me semble que les noms des fonctions sont assez parlantes non ?

P:S:
Dez aulet pour lai phote, mèje sui pa été lon tan alécol...