Hi,
ich verwende die Bass -> 2.0.
Ich würde aber lieber wissen, wie es ohne die Bass geht
Delphi-Quellcode:
if not (BASS_Init(0, 41100, 0, Self.Handle,
nil))
then
raise Exception.Create('
Konnte Bass nicht initialisieren');
if not BASS_RecordInit(0)
then
raise Exception.Create('
Konnte Record nicht initialisieren');
if BASS_RecordGetInput(0) <> BASS_INPUT_TYPE_MIC
then
begin
BASS_RecordSetInput(0, BASS_INPUT_TYPE_MIC);
end;
BASS_RecordFree();
BASS_Free();