0/5 (5 avis)
Vue 17 510 fois - Téléchargée 4 038 fois
//Voici la fonction: procedure CreateWav(channels : word; resolution : word; rate : longint; fn : string); type TWavHeader = record rId : longint; rLen : longint; wId : longint; fId : longint; fLen : longint; wFormatTag : word; nChannels : word; nSamplesPerSec : longint; nAvgBytesPerSec : longint; nBlockAlign : word; wBitsPerSample : word; dId : longint; wSampleLength : longint; end; var wf : file of TWavHeader; wh : TWavHeader; begin wh.rId := $46464952; wh.rLen := 36; wh.wId := $45564157; wh.fId := $20746d66; wh.fLen := 16; wh.wFormatTag := 1; wh.nChannels := channels; wh.nSamplesPerSec := rate; wh.nAvgBytesPerSec := channels*rate*(resolution div 8); wh.nBlockAlign := channels*(resolution div 8); wh.wBitsPerSample := resolution; wh.dId := $61746164; wh.wSampleLength := 0; assignfile(wf,fn); rewrite(wf); write(wf,wh); closefile(wf); end; //Exemple d'utilisation: CreateWav(2,16,44100,'C:\Test.wav'); //Pour demarrer l'enregistrement: MediaPlayer1.DeviceType := dtAutoSelect; MediaPlayer1.FileName := 'C:\Test.wav'; MediaPlayer1.Open; MediaPlayer1.StartRecording; //Pour arrêter MediaPlayer1.Stop; MediaPlayer1.Save; MediaPlayer1.Close;
14 nov. 2010 à 14:42
J'ai essayé ton petit programme sous WinXP mais je n'enregistre rien à part ce qui vient de mon microphone. Le mixer stéréo est bien coché en enregistrement. Tous les volumes sont au max.
Une idée ?
Gab
18 juil. 2004 à 14:29
16 juil. 2004 à 18:17
rId
rLen
wId
fId
fLen
dId
wSampleLength
Qui ne sont pas décrites dans le SDK windows, enfin je ne les ai pas trouver. merci d'avance et beau boulot !!!
16 avril 2004 à 20:13
merci c'est nickel :)
je vais ameliorer le code pour rajouter ce que je veux en plus et ça sera aussi bien que ceux que j'ai trouvé qui sont payant
merci à toi pour cette base de travail ;)
28 mai 2003 à 17:53
possible, avec le TmediaPlayer, c'est a creuser, en effet,...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.