ECHANTILLONNAGE SON , Source N°23939

Information sur la source

Catégorie :Multimedia Niveau : Initié Date de création : 23/06/2004 Vu / téléchargé: 6 702 / 13 064

Auteur : Kenavo

Ecrire un message privé

Note :

8,33 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

EN GROS :
Le composant WaveIn permet d'acquérir des données en provenance d'une des source audio de la carte son
On choisi le device (carte son si plusieurs), la taille du buffer, la vitesse d'échantillonnage.
On peut récupérer les données échantillonnées dans un buffer, lire le niveau moyen et le niveau crête de l'échantillon.
La source est sélectionnée par le panneau du contrôle d'enregistrement (CD audio, Entrée ligne, Microphone, Audio, ....).

UTILISATION :
Animation d'un MediaPlayer, Oscilloscope de fortune, faire trembler l'écran de DelphiCool ! , .....

REMARQUES :
Pour exécuter la démo, il convient d'installer au préalable le composant TWaveIn (évidemment) mais aussi les composants TGraphicGauge et TGraphXY.
Pour plus d'info sur ces deux derniers composants, reportez-vous aux sources déjà publiées
GraphXY : http://www.delphifr.com/code.aspx?ID=23400
GraphicGauges : http://www.delphifr.com/code.aspx?ID=22572

Conclusion

1 - Il aurait été sans doute préférable que la sélection de la source puisse se faire dans le composant même. Mais, à ce jour, je ne suis pas encore sûr que les routines concernant les Mixer que j'utilise soient portables sur tous types d'installation de carte son.
Alors, on verra ça plus tard !

2 - Ne cherchant pas la qualité - ce n'est par un magnétophone numérique - je me suis limité à l'acquisition en 8 bits, monocanal.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

BrosseLedR.bmp 438 octets
Demo.dpr 205 octets
Demo.res876 octets
SOUNDCRD.ICO 766 octets
U_WaveIn.dfm1 562 octets
U_WaveIn.pas 1 693 octets
Composants
- GraphicGauge.dcr608 octets
- GraphicGauge.pas 18 499 octets
- GraphXY.dcr632 octets
- GraphXY.pas 16 016 octets
- Localisation.txt 114 octets
- WaveIn.dcr596 octets
- WaveIn.pas 13 588 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de Kenavo

Sources de la même categorie

Toutes les sources de la catégorie Multimedia

Commentaires

Commentaire de grandvizir le 21/11/2004 20:54:50

Bravo, c'est vraiment bien. En plus c'est compatible facilement D3. D'habitude je ne le dis pas, mais je met 10/10. C'est tout pile ce qu'il me fallait pour simuler mon prog 20703. Il est vrai qu'il est moins beau par rapport au tien. Il sera à jour dans qq temps.

Sinon j'ajouterai ceci dans ton prog:

procedure TForm1.FormCloseQuery([...]);
begin
if WaveIn1.Sampling then
WaveIn1.StopSampling;
end;

Ca limitera certaines erreurs de RunTime... (éventuellement)
Commentaire de Kenavo le 22/11/2004 16:52:30

salut grandvizir,

10/10, t'es pas si vache que ça !

Quant à ta remarque, je dirais même plus, il faudrait en plus attendre l'évènement OnStop pour être sûr que l'échantillonnage est bien arrêté, et ainsi éviter que la fonction callback vienne se casser les dents.
En as-tu eu, des runtime errors ?

Ken@vo
Commentaire de Kenavo le 22/11/2004 16:52:33

salut grandvizir,

10/10, t'es pas si vache que ça !

Quant à ta remarque, je dirais même plus, il faudrait en plus attendre l'évènement OnStop pour être sûr que l'échantillonnage est bien arrêté, et ainsi éviter que la fonction callback vienne se casser les dents.
En as-tu eu, des runtime errors ?

Ken@vo
Commentaire de grandvizir le 22/11/2004 20:47:30

Oh que oui !! Surprenant d'ailleurs. J'ai essayé de les éliminer. Pour la compatibilité D3, j'ai fixé le buffer à 1024 car "array of truc" n'est pas supporté. Et j'ai rajouté le IF sur le sampling avant de quitter. Si j'ai encore des erreurs, je te dirais. Mais en théorie, ça doit être bon.
Commentaire de craftsystem le 06/02/2008 16:38:28

Nikel cette source et ce peztit composant sympathique
pour ma détection audio sa seras parfait

je te remercie Kenavo

PS: en plus c'est tellement rare les source avec les composant s

sa évite toute mauvaise surprise
Commentaire de craftsystem le 06/02/2008 16:40:07

escusez le doublons je met 10 car ta source et simple d'utilisation et c'est surtout que sa va mettre bien utile...lol