Bonjour,

Je travaille avec Delphi 7 et je souhaiterai savoir pourquoi la commande pour faire un record audio ne fonctionne plus sur Windows 7 ?

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
try
      mciSendString('close all', nil, 0, 0);
      mciSendString('open new type waveaudio alias capture', nil, 0, 0);
      mciSendString('seek capture to start', nil, 0, 0);
      mciSendString('set capture samplespersec 22050', nil, 0, 0);
      mciSendString(PChar('set capture bitspersample 16') , nil, 0, 0);
      mciSendString('set capture channels 1', nil, 0, 0);
      mciSendString('record capture', nil, 0, 0);
      Pause((durer_start_recordaudio*1000));
      Application.ProcessMessages;
    finally
      audiorecord_en_cour := 0;
      mciSendString(PChar('save capture "' + lien_wav + '"'), nil, 0, 0);
      mciSendString('stop capture', nil, 0, 0);
      mciSendString('close capture', nil, 0, 0);
    end;
Cela me créer un fichier de quelques octets...

J'espère que vous pourrez m'éclairer.

Cordialement.

PS : Sur Windows XP, cela fonctionne.