Windows Sound aufnehmen

[KodeZwerg]

Ok, zweites Beispiel mit Start/Stop Knopf.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 mciSendString('RECORD mySound',nil,0,Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 mciSendString('STOP mySound',nil,0,Handle);
 mciSendString(PWideChar('SAVE mySound "'+ExtractFilePath(Application.ExeName)+'test.wav"'),nil,0,Handle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 mciSendString('CLOSE mySound',nil,0,Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 mciSendString('CLOSE mySound',nil,0,Handle);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 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);
end;

Ps: Ich weiß nicht ob es PWideChar unter Delphi 5 schon gab, ansonsten austauschen mit PChar.

[Youuuu]

Perfekt funktioniert, allerdings nur der Output Sound, gibt es auch eine Möglichkeit den Input Sound auch mit aufzunehmen? Also beide gleichzeitig?

[KodeZwerg]

Kannst Du mir ein konkretes Beispiel nennen was Du damit meinst?
Was ich Dir da gegeben habe ist eine Möglichkeit ein Wave in hoher Qualität aufzuzeichnen wo Du per Knopf Start/Stop bestimmst wann Du was machen willst, bei Stop wird gespeichert.
Da es nur ein quicky ist habe ich da noch keine Fehlerkontrolle eingebaut etc.
...Null Kontrolle ob "MySound" überhaupt existiert.
Kopf Start sollte zBsp deaktiviert werden während Aufnahme läuft und Knopf Stop sollte erst aktiviert werden wenn auf Knopf Start gedrückt wird usw usf

Wenn Dich das Thema interessiert könntest Du hier mal reinschnuppern, da wird vielleicht das Beschrieben was Du erreichen möchtest?

[Youuuu]

Also wenn ich in das Mikro spreche nimmt er auf.

Aber nicht den Sound, der über PC läuft (Input). Also als Beispiel, ich höre mir im Mediaplayer eine Datei an und möchte den Sound aufnehmen.

[EWeiss]

Zitat von Youuuu:

Also wenn ich in das Mikro spreche nimmt er auf.

Aber nicht den Sound, der über PC läuft (Input). Also als Beispiel, ich höre mir im Mediaplayer eine Datei an und möchte den Sound aufnehmen.

Ich lade gleich ein Projekt hoch.
Das MCI ist einfach zu alt.

EDIT:
Nimm das hier

Wave und Mp3 kannst aufnehmen.. bzw. wird geschrieben.

gruss

[KodeZwerg]

Danke Emil, das erspart mir ein WaveIn : HWAVEIN; usw. gedönse