Produire du son sur la carte son du PC avec Delphi

Bonjour a tous,

ça fait un moment que je cherche un code sous delphi qui me pérmet de produire un son sur la carte son du PC en difinissant sa fréquence et son intensité, j'ai trouvé ce code qui le permet:

http://delphi.developpez.com/faq/?pa...otesurcarteson

Le seul problèlme avec ce code c'est qu'il permet de produire des sons d'intensité allant de 0 à 127, alors que j'ai besoin de produire des sons allant de 0 à 32767, 0 à 8388607 ou de 0 à 2147483647.

Ce qui veut dire qu'on va utiliser 16, 24 ou 32 bits pour l'intensté au lieu de 8 bits.

Je vous prie de m'aider c'est très important c'est pour mon projet de fin d'études.

Merci d'avance.

Citation:

---

Envoyé par airefrais

Bonjour a tous,

ça fait un moment que je cherche un code sous delphi qui me pérmet de produire un son sur la carte son du PC en difinissant sa fréquence et son intensité, j'ai trouvé ce code qui le permet:

http://delphi.developpez.com/faq/?pa...otesurcarteson

Le seul problèlme avec ce code c'est qu'il permet de produire des sons d'intensité allant de 0 à 127, alors que j'ai besoin de produire des sons allant de 0 à 32767, 0 à 8388607 ou de 0 à 2147483647.

Ce qui veut dire qu'on va utiliser 16, 24 ou 32 bits pour l'intensté au lieu de 8 bits.

Je vous prie de m'aider c'est très important c'est pour mon projet de fin d'études.

Merci d'avance.

---

il y a pourtant tout ce qu'il faut dans cet exemple...ensuite il faut regarder l'entête WAV pour redéfinir les paramètres :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

with WaveFormatEx do begin //Paramètres d'un en-tête de fichier WAV au format PCM wFormatTag := WAVE_FORMAT_PCM; nChannels := Mono; nSamplesPerSec := SampleRate; wBitsPerSample := $0008; nBlockAlign := (nChannels * wBitsPerSample) div 8; nAvgBytesPerSec := nSamplesPerSec * nBlockAlign; cbSize := 0; end;

---

Le plus simple étant parfois de faire le travail inverse, c'est à dire de regarder l'entête d'un fichier son existant :)

Sallut,

J'ai modifié le nombre de bit par échantillon pour le fichier wave (16 au lieu de 8):

wBitsPerSample := $0010;

Ça me produit des sons mais j'ai l'impression qu'il est clipé, vous êtes sûr que c'est tout ce qu'il ya a modifier??

Merci pour l'aide

airefrais.

Citation:

---

Envoyé par airefrais

Sallut,

J'ai modifié le nombre de bit par échantillon pour le fichier wave (16 au lieu de 8):

wBitsPerSample := $0010;

Ça me produit des sons mais j'ai l'impression qu'il est clipé, vous êtes sûr que c'est tout ce qu'il ya a modifier??

Merci pour l'aide

airefrais.

---

il faut également ajuster les données en conséquence :) (DataCount et SoundValue)

Bonjour,

J'ai modifié le type des variables DataCount et SoundValue, réel pour les deux, ça me produit toujours un son clipé, pouvez vous me poster le code entièrement avec les modifications nécéssaires, vous allez me rendre un très grand sevice car je n'arrive pas à avencer sans régler ce problème.

Merci encore.

airefarais.

Citation:

---

Envoyé par airefrais

Bonjour,

J'ai modifié le type des variables DataCount et SoundValue, réel pour les deux, ça me produit toujours un son clipé, pouvez vous me poster le code entièrement avec les modifications nécéssaires, vous allez me rendre un très grand sevice car je n'arrive pas à avencer sans régler ce problème.

Merci encore.

airefarais.

---

Non, je ne peux pas :) j'ai d'autres choses à faire mine de rien :) mais toutes les infos sont là, il faut tester, sans doute regarder le fichier avec un éditeur de WAV pour s'assurer de sa cohérence et pourquoi pas rééchantilloner un fichier existant pour comparer avec le fichier généré.

Salut,

Ok je vais suivre vos conseils, je vous remecie Paul TOTH pour votre aide, je vous tient au couren.:ccool:

a+

airefrais