Sound aufnehmen

[I love Delphi]

Bin mal wieder erstaunt wie einfach manche Sachen in Delphi funktionieren. :hello:

Kann man den Ton auch direkt von der Soundkarte abgreifen, so dass das aufgenommen wird, was gerade läuft?
Und wie ging das mit der Wait-Funktion die im Tutorial genannt wurde???

MfG Florian

[Ich habe schon bemerkt, dass dieser Thread uralt ist]

[Sunlight7]

Hallo, I love Delphi
und herzlich willkommen in der :dp:

Zitat:

Zitat von I love Delphi

Kann man den Ton auch direkt von der Soundkarte abgreifen, so dass das aufgenommen wird, was gerade läuft?

Jein, es kommt auf Deine Soundkarte an, was die alles kann, bzw ...

Zitat:

Zitat von Sunlight7

Das was aus dem Lautsprecher kommt kann eine Wave oder MIDI Wiedergabe sein, Vom Line-In, CD, DAT, ... Was halt Deine Soundkarte so kann.

Starte einfach mal den Windows Mixer (sndvol32.exe /r) und schaue, was Du alles aufnehmen kannst.

Zitat:

Zitat von I love Delphi

Und wie ging das mit der Wait-Funktion die im Tutorial genannt wurde???

Ich mag jetzt grad nicht den ganzen Thread nochmals durchlesen, zitiere bitte den Beitrag oder verlinke dorthin, was Du meinst ;)
Dies solltest Du generell tuen, dann kann man Dir leichter helfen, wenn man weiß, was Du genau meinst :zwinker:

Mfg Sun

[I love Delphi]

sndvol32.exe gibt es unter Vista anscheinend nicht mehr. Auch der interne Audiorecorder von Vista ist für den A... . Optionen bietet der nämlich auch keine mehr an. Wo kann ich denn dan rausfinden was meine Soundkarte alles kann?

Im ersten Beitrag dieses Threads ging es ja hauptsächlich ums aufnehmen. Es wurde aber auch erwähnt, dass man Sound abspielen kann und, so nehme ich an, mit WAIT pausieren kann. Das mit dem Abspielen ist kein Problem, WAIT will nicht so wie ich will.

Danke,
I Love Delphi

[Sunlight7]

Ich rate mal, in Vista heißt das dann sndvol.exe, egal, schau Dich einfach mal durchs Startmenü nach einer Lautstärkeregelung.
Oder Du guckst ob sich ein kleiner Lautprecher auf Deiner Taskliste befindet (Doppelklicken)

Der Befehl WAIT in MCI bedeutet nicht, das eine Pause gemacht werden soll, sondern, das die Steuerung erst an Dein Programm zurück gegeben wird, sobald der MCI Befehl ausgeführt wurde.
D.h. wenn Du etwas abspielst mit MCI und WAIT angibst reagiert Dein Programm solange nicht mehr, bis das abspielen fertig ist.

[I love Delphi]

Wie ich die Lautstärkeregelung finde, war mir klar. Ich dachte jedoch, dass du etwas anderes meinst, dass dieser LAutstärkeregelung echt nichts zu entnehmen ist. Habe mal einen Screenshot angehängt.

Da mit Wait ist mir peinlich...

MfG,
I love Delphi

[Sunlight7]

Wie das mit dem Windows Lautstärkeregelung funktioniert, schaust Du am Besten in der Windows Hilfe nach.

[Jeff93]

Habe eine kurze Frage wenn man die Audio-Ausgabe mit

Delphi-Quellcode:

mciSendString('RECORD mySound',nil,0,Handle);

aufgezeichnet hat und dann gestoppt hat, wie kann man nun das Aufgezeichnete löschen ohne

Delphi-Quellcode:

mciSendString('CLOSE mySound',nil,,FHandle);

zu benutzen?

[dutyfree]

Hallo,
mal ne kurze Frage, wie kann ich denn zwischen Mikrofon und Stereo Mix wechseln?
Wenn ich jetzt aufnehme nimmt er halt mein Mikro auf, wie wechsel ich zum Stereo mix (Also, dass er das aufnimmt, was aus der Soundkarte rauskommt)
Thx

Edit:

Noch eine Frage:

Ich hab halt diesen Code:

Delphi-Quellcode:

mciSendString('SAVE mySound "c:\one.wav"',nil,0,Handle);

Und eine Variable wo ein Pfad drin ist, wie kann ich die Datei jetzt in den Pfad speichern?

Delphi-Quellcode:

mciSendString('SAVE mySound pfad+"one.wav"',nil,0,Handle);

Habe ich schon versucht, geht nicht.

[Sunlight7]

Delphi-Quellcode:

mciSendString(PChar('SAVE mySound '+pfad+'"\one.wav"'), nil, 0, Handle);

[DevStar]

Habe den Beispiel-Code mal getestet. Funktioniert auch.

Allerdings gibt es keine Änderung der wav-Datei, wenn ich hier die Werte ändere:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var
  Format: tWAVEFORMATEX;
begin
  with Format do
  begin
    wFormatTag := WAVE_FORMAT_PCM;
    nChannels := 1;
     wBitsPerSample := 8;
     nSamplesPerSec := 44100;
      nBlockAlign := nChannels * (wBitsPerSample div 8);
     nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
    cbSize := 0;
  end;
 wave := TWaveIn.Create;
 wave.OnData := OnData;
 wave.open(0);
 waveOutOpen(@fHandle, 0, @format, 0, 0, CALLBACK_NULL);
end;

Ich brauch das vox-Format ADPCM.

Weiß jemand wieso?