Bass.dll Internet Radio - wie die letzten 5 Minuten bekommen, ohne Aufnahme stoppen ?

[Julian M.]

Könnte es sein, dass ein Ringbuffer genau das ist, was ich suche ?
himitsu hat hier http://www.delphipraxis.net/861255-post7.html eine Tmemoryringbuffer geschrieben, mein code sähe dann so aus ? Beim Abspeichern passiert leider wieder nichts.

Delphi-Quellcode:

procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
  if (rb = nil) then rb:=TMemoryringbuffer.create(14745600); // create the stream
  if (buffer = nil) then rb.Free // finished downloading
  else
  begin  // Ab hier geänderter Code
    rb.Write(buffer^, len) //füge den buffer ans ende
  end;
end;    



procedure TForm1.Button4Click(Sender: TObject);
begin
  rb.SaveToFile('memorystream.mp3');
end;