ďťż

Ładny brzuch

Jak zrobić, żeby MediaPlayer zapisywał dzwięk idący z głośników. Np: uruchamiam mój programk, naciskam nagrywanie i od tej pory rejestrowałby dzwięk, na przykład z jakiejś gy którą potem włączę. Na koniec zapisywałbym plik z tym co się nagrało jako .wav..
Z góry dzięki za pomoc....

============================================
---------------------------------------------------------
Piję by paść, padam by wstać, wstaję by pić, piję by żyć...
---------------------------------------------------------
================= BLooD S@m =================


Może spróbuj coś takiego. Wstawiasz trzy buttony: jeden odpowiedzialny za nagrywanie, drugi za zatrzymywanie, trzeci za zapis na dysku. Nie mam pojęcia czy to działa. POZDRAWIAM :)

procedure TForm1.Button1Click(Sender: TObject); // Record
begin
mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
mciSendString('SET mysound TIME FORMAT MS ' + // set time
'BITSPERSAMPLE 8 ' + // 8 Bit
'CHANNELS 1 ' + // MONO
'SAMPLESPERSEC 8000 ' + // 8 KHz
'BYTESPERSEC 8000', // 8000 Bytes/s
nil, 0, Handle);
mciSendString('RECORD mysound', nil, 0, Handle)
end;

procedure TForm1.Button2Click(Sender: TObject); // Stop
begin
mciSendString('STOP mysound', nil, 0, Handle)
end;

procedure TForm1.Button3Click(Sender: TObject); // Save
var
verz: String;
begin
GetDir(0, verz);
mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
mciSendString('CLOSE mysound', nil, 0, Handle)
end;

----------------------------------------------------------------------------------------------------- -----------------------------------
"Szczęście jest jak motyl: kiedy usiłujesz je złapać, zawsze wymyka ci się z rąk. Ale jeśli cichutko usiądziesz, to może samo do ciebie przyleci."
----------------------------------------------------------------------------------------------------- -----------------------------------

sprubuj z winapi i funkcjami z przedrostkiem waveIn np: waveInStart ..Close itp od wejscia sound...

FreeBSD r0x'uje

GG: 2175556
www.cepa.end.pl

Ja bym z wyjścia na głośniki dał kabel do line-out i nagrywać można

_________________________

www.webpacket.net


nie wiem po co sie upierasz przy MP..

dlaczego nie uzyjesz do obrobki dzwieku BASS`a ?

karol@FreeBSD.info.tm lub karol@lofix.info
dla pryszczatych wyznawcow linuxa.. http://satanbsd.org/

Kontakt ze mna ulatwi ci http://logix.info

TAAA... Może jakiś przykład ... Jak bym umiał to bym tego posta nie pisał!!!:twisted:

============================================
---------------------------------------------------------
Piję by paść, padam by wstać, wstaję by pić, piję by żyć...
---------------------------------------------------------
================= BLooD S@m =================

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •