Microfon

Start>Programmer>Tilbehør>Underholdning>Lydoptager
Så tryk på den røde knap og sig HEEEJ MOOAR og så tryk Stop og derefter Play.

-Martin

initializing, dette er en Delphi Kategori...

Uh =) Sorry ;)

>>initializing
Hehe... Ellers ret nice! ;)

Lytter lige med en gang!

det hele ligger i mmSystem.

Du kan sende følgende beskeder:
(SoundID er bare en string variable til at holde styr på lyd optageren med)

mciSendString(Pchar('STOP '+SoundID), nil, 0, handle);
mciSendString(PChar('SAVE '+SoundID+' .\'+SoundID+'.wav'), nil, 0, handle);
mciSendString(PChar('CLOSE '+SoundID), nil, 0, handle);
mciSendString(Pchar('OPEN NEW TYPE WAVEAUDIO ALIAS '+SoundID), nil, 0, handle);

  mciSendString(Pchar('SET '+SoundID+' TIME FORMAT MS '+    // set time
      'BITSPERSAMPLE 360 '+                //Bit
      'CHANNELS 2 '+                   
      'SAMPLESPERSEC 44000 '+            // KHz
      'BYTESPERSEC 16000'),                // Bytes/s
        nil, 0, handle);

mciSendString(Pchar('RECORD '+SoundID), nil, 0, handle);

...jeg kan godt skrive det i den rækkefølge som du skal bruge det hvis det var noget?

kan du ikke lave et eksemple.

Uses mmSystem;

Var
SoundID:string;

//På din record knap
mciSendString(Pchar('OPEN NEW TYPE WAVEAUDIO ALIAS '+SoundID), nil, 0, handle);
mciSendString(Pchar('SET '+SoundID+' TIME FORMAT MS '+    // set time
      'BITSPERSAMPLE 360 '+                //Bit
      'CHANNELS 2 '+                   
      'SAMPLESPERSEC 44000 '+            // KHz
      'BYTESPERSEC 16000'),                // Bytes/s
        nil, 0, handle);
mciSendString(Pchar('RECORD '+SoundID), nil, 0, handle);


//På din stop/save knap:
mciSendString(Pchar('STOP '+SoundID), nil, 0, handle);
mciSendString(PChar('SAVE '+SoundID+' .\'+SoundID+'.wav'), nil, 0, handle);
mciSendString(PChar('CLOSE '+SoundID), nil, 0, handle);

Jeg kan ikke få det til at virke, jeg lukker nu