CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 11 09:02:17

EXPRESSION STUDIO 3 / SILVERLIGHT 3 par Matthieu MEZIL

MICROSOFT SECURITY ESSENTIALS : PETIT TEST par FREMYCOMPANY

ISA LE RETOUR par Isa

DROIDANALYTICS 1.1.4 : TRI DES TOPS PAR PAGES VUES OU VISITES par Nix

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

QUESTION SUR FONCTION ASSIGNED() par solilog

AIDE par nori14

RE : CREER PAGE HTML par sawceno

CREER PAGE HTML par sawceno

THREAD par swadfish

+ de logiciels à télécharger

1 468 230 membres
67 nouveaux aujourd'hui
15 054 membres club

Trouver une ressource

Trouvez une ressource parmi 40 112 codes, 1 305 093 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

ECHANTILLONNAGE SON

Information sur la source

Catégorie :Multimedia Niveau : Initié Date de création : 23/06/2004 Vu / téléchargé: 7 801 / 13 157

Auteur : Kenavo

Ecrire un message privé

Note :

8,33 / 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

RÉELS ET RÉALITÉ

WEBCAM À MANIVELLE

ACQUISITION VIDEO (WEBCAM, TV CARDS ...)

IMAGE EN FOND DE PANEL

LE RÉSEAU MICROSOFT - LES FONCTIONS WNET

Toutes les sources de Kenavo

Sources de la même categorie

SCAN THREAD : BASS par Nicolas___

PEDALE MULTI EFFETS [BASS ASIO] par Nicolas___

POPUP ALERTE STYLE MSN AVAST par strobinateur

BASSVIDEO : LECTEUR VIDEO AVEC BASS par Nicolas___

BMP SONG : METTEZ DU SON DANS VOS BMP par Nicolas___

Toutes les sources de la catégorie Multimedia

Commentaires et avis

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

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