Mikrofon benutzen

[DeadEternity]

Versuchs mal damit, sollte eigentlich klappen

Code:

mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,Handle);
      mciSendString('SET mySound ' +
                   'TIME FORMAT MS ' +
                   'BITSPERSAMPLE 16 ' +
                   'CHANNELS 2 ' +
                   'SAMPLESPERSEC 44100 ' +
                   'BYTESPERSEC 176400 ' +
                   'ALIGNMENT 4',
                   nil,0,handle);
      mciSendString('RECORD mySound',nil,0,Handle);
      //Abspielen das Soundes
      sndPlaySound(MS.Memory, SND_MEMORY or SND_SYNC);
      
      MS.Free;

      //Beenden und speichern der Aufnahme
      mciSendString('STOP mySound',nil,0,Handle);
      mciSendString(PChar('SAVE mySound '+ aufnahme),nil,0,Handle);
      mciSendString('CLOSE mySound',nil,0,Handle);

MfG