Sound aufnehmen
Sound aufnehmen
Hi,
wie kann man von einem Mikrofon einen Ton aufnehmen und dann in den Speicher schreiben?, dann will ich den Ton wieder auslesen und über den Lautsprecher abspielen können.
wie kann man von einem Mikrofon einen Ton aufnehmen und dann in den Speicher schreiben?, dann will ich den Ton wieder auslesen und über den Lautsprecher abspielen können.
v6.00
Ich hätte so einen Code ja schon im Codearchiv gefunden:
und der Code würde mir auch passen, ...
Für meine Zwecke soll der aufgenommene Ton aber in den Speicher geschrieben werden, und es soll nur vom Mikrofoneingang (Headset, Mikrofon, ...;wie auch immer) aufgenommen werden.
Habt ihr ne Idee wie man den Code so abändern kann (wenns ein anderer Code ist, ist es mir auch egal), dass das funktioniert?
Code: Alles auswählen
Procedure RecordWav(filename$,ms)
buffer$=Space(128) : DeleteFile_(filename$)
mciSendString_("open new type waveaudio alias capture",buffer$,128,0)
mciSendString_("set capture samplesperbuffer 8000 bytesperbuffer 8000",0,0,0)
mciSendString_("record capture",buffer$,128,0)
Sleep_(ms) ; Wait for specified capture time to end.
mciSendString_("save capture "+filename$,buffer$,128,0)
EndProcedure
;
MessageRequester("Info","Click OK to capture audio to c:\test.wav for 2 secs",0)
RecordWav("c:\test.wav",2000)
MessageRequester("Info","Done!",0)
Für meine Zwecke soll der aufgenommene Ton aber in den Speicher geschrieben werden, und es soll nur vom Mikrofoneingang (Headset, Mikrofon, ...;wie auch immer) aufgenommen werden.
Habt ihr ne Idee wie man den Code so abändern kann (wenns ein anderer Code ist, ist es mir auch egal), dass das funktioniert?
v6.00
Naja, wenn du Linux hättest, könntest du das wesentlich simpler
lösen:
In welchem Format die Daten eingelesen werden ist aber eine andere
Geschichte. Habe mir für diese Geschichte einen kleinen Wrapper gebaut,
da man für die Soundeinstellungen diverse Konstanten braucht, die man
nicht so einfach übersetzen könnte
.
Aber so könnte man dann unter Linux direkt vom Mikrofon aufnehmen. Und
bitte jetzt nicht schlagen, dass ich nicht ALSA verwende
.
lösen:
Code: Alles auswählen
Global lHandle.l
lHandle = ReadFile(1, "/dev/dsp")
Geschichte. Habe mir für diese Geschichte einen kleinen Wrapper gebaut,
da man für die Soundeinstellungen diverse Konstanten braucht, die man
nicht so einfach übersetzen könnte

Aber so könnte man dann unter Linux direkt vom Mikrofon aufnehmen. Und
bitte jetzt nicht schlagen, dass ich nicht ALSA verwende

Ehm, ja, entschuldigt ma meinen Doppelpost aber ich denke ich habe was
für Thomas gefunden als ich auf der Suche nach einem Base64 Decoder
war: http://www.activevb.de/rubriken/klassen/kat54.html
Kannst ja mal versuchen das nach PB zu übersetzen.
für Thomas gefunden als ich auf der Suche nach einem Base64 Decoder
war: http://www.activevb.de/rubriken/klassen/kat54.html
Kannst ja mal versuchen das nach PB zu übersetzen.
da steig ich jetzt nicht durch!MVXA hat geschrieben:Ehm, ja, entschuldigt ma meinen Doppelpost aber ich denke ich habe was
für Thomas gefunden als ich auf der Suche nach einem Base64 Decoder
war: http://www.activevb.de/rubriken/klassen/kat54.html
Kannst ja mal versuchen das nach PB zu übersetzen.

und falls es ne andere Programmiersprache ist, oder so:
ich kann nur PureBasic!

v6.00
- PureBasic4.0
- Beiträge: 785
- Registriert: 29.10.2006 17:26
- Wohnort: 127.0.0.1
Ich finde Windows nur gut wenns fehlerfrei läuft, was ich von meinem Rechner nicht mehr sagen kann (lauter Kinderkrankheiten); kann gerade noch damit leben...PureBasic4.0 hat geschrieben:Endlich einer, der Windows gut findet (Ich auch, habe mir jetzt Vista Ultimate 64Bit gekauft)Thomas hat geschrieben:Ich hab aber kein Linux.![]()
Und ich bin mit Windows zufrieden.
Ich würde mir Vista noch nicht kaufen, da es erst ein bis zwei Jahre dauert, bis es gut läuft.

Aber Leute wir schweifen hier vom Thema ab:
Wie kann ich Sound vom Mikro in den Speicher aufnehmen?
v6.00