Webradio aufnehmen

[Larsi]

Hi,

um ein Webradio wiederzugeben benutze ich den BassDllPlayer. Ich will den Stream jetzt aber auf Wunsch aufnehmen können. In dem BassDllplayer ist eine Aufnahmefunktion integriert jedoch nimmt die auch Nebengeräusche von Windows Media Player und Icq und so auf. Ich kann ja mal ein paar Ausschnitte der Unit hier hin schreiben. Jemand sagte mir es geht per

Delphi-Quellcode:

WavStream.SaveToFile('C:\filename.wav');

Dann kommt ein Fehler, dass er den Begriff nicht kennt. Also das Savetofile. Hier die Wiedergabe- Funktion eines Streams:

Delphi-Quellcode:

function TBassdllPlayer.PlayNetStream(url: string): Boolean;
begin
  StoppAndFreeChannels;

  Channel := BASS_StreamCreateURL(PChar(url), 0, BASS_STREAM_META, nil, 0);
  if Channel = 0 then
  ShowMyMessage('Der ausgewählte Stream kann nicht abgespielt werden!');
  Result := BASS_ChannelPlay(Channel, False);

  Modus := moStream:

end;

Hier die Aufnahme- Funktion, die Nebengeräusche mit aufnimmt:

Delphi-Quellcode:

procedure TBassdllPlayer.StartRecording(Input: integer; FileName: string);
var
  i: Integer;
begin
  //F ile Stream
  WaveStream := TFileStream.Create(FileName, fmCreate);

  if WaveStream.Size > 0 then
  begin // free old recording
    BASS_StreamFree(Channel);
  end;

  // generate header for WAV file
  WaveHdr.riff := 'RIFF';
  WaveHdr.len := 36;
  WaveHdr.cWavFmt := 'WAVEfmt ';
  WaveHdr.dwHdrLen := 16;
  WaveHdr.wFormat := 1;
  WaveHdr.wNumChannels := 2;
  WaveHdr.dwSampleRate := 44100;
  WaveHdr.wBlockAlign := 4;
  WaveHdr.dwBytesPerSec := 176400;
  WaveHdr.wBitsPerSample := 16;
  WaveHdr.cData := 'data';
  WaveHdr.dwDataLen := 0;

  WaveStream.Write(WaveHdr, SizeOf(WAVHDR));
  i := 0;
  while BASS_RecordSetInput(i, BASS_INPUT_OFF) do
  begin
    i := i + 1;
  end;
  BASS_RecordSetInput(input, BASS_INPUT_ON);

  // start recording @ 44100hz 16-bit stereo
  recordchannel := BASS_RecordStart(44100, 2, 0, @RecordingCallback, 0);
  if recordchannel = 0 then
  begin
    ShowMyMessage('Die Aufnahme kann nicht gestartet werden.', TRUE);
    WaveStream.Free;
  end;

  isRecording := True;
end;

Kann mir jemand bei meinem Problem helfen?

MFG Larsi

[Larsi]

24 Stunden rum. Push.

[IceBube]

Schau dir mal das genauer an...

Delphi-Quellcode:

Input: integer

lg

[Larsi]

Hab ich doch ich versteh's trotzdem nicht. Kannst du's mir erklären?

[toms]

Bei Input musst du den Index der Aufnahmequelle übergeben. Stichwörter: BASS_RecordGetDeviceInfo, BASS_RecordGetInput$

Siehe auch hier (DF) oder hier.

[Larsi]

Ich will aber nur das abgespielte und nicht "Hauptlautstärke" aufnehmen. Welchen Index brauch ich da?

[OrNEC]

So habe ich das bei meiner Freeware "Christian Computer Radio" gemacht...

Delphi-Quellcode:

var
  FileStream :   TFileStream;
  FileNeme   :   String;      // <= C:\test.mp3


function Get_AppPath : string;
begin
  result:= ExtractFilePath( ParamStr( 0 ) );
end;


procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
  if (buffer <> nil) and (len = 0) then
    SendMessage(win, WM_INFO_UPDATE, 8, DWORD(PChar(buffer)));

  if (FileNeme = '') then
    exit;
  if (FileStream = nil) then
      FileStream:= TFileStream.Create(FileNeme, fmCreate); // create the file
  if (buffer = nil) then
      FileStream.Free // finished downloading
  else
      FileStream.Write(buffer^, len);
end;


function OpenURL(url: PChar): Integer;
var ....
begin
  FileNeme:=  Get_AppPath + Form1.Filename_Edit.Text;
  ...
end;

procedure TForm1.StopClick(Sender: TObject);
begin
FreeAndNil(FileStream);
end;

[Larsi]

Und wie starte ich dann die Aufnahme?

[OrNEC]

Delphi-Quellcode:

var
  FileStream :   TFileStream;
  FileName   :   String;      // <= C:\test.mp3

procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
  if (buffer <> nil) and (len = 0) then
    SendMessage(win, WM_INFO_UPDATE, 8, DWORD(PChar(buffer)));

  if (FileName = '') then
    exit;
  if (FileStream = nil) then
      FileStream:= TFileStream.Create(FileName, fmCreate); // create the file
  if (buffer = nil) then
      FileStream.Free // finished downloading
  else
      FileStream.Write(buffer^, len);
end;


procedure TForm1.StartClick(Sender: TObject);
begin
FileName:='test.mp3';
end;

procedure TForm1.StopClick(Sender: TObject);
begin
FreeAndNil(FileStream);
end;

[OrNEC]

Hier wird gleich in .mp3 geschrieben, die Bitrate der Aufnahme und andere Parameter sind die des Senders. Bei der Aufnahme wird also der abgespielter Stream nicht verloren gegangen sondern in die mp3-Datei geschrieben.