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

[Julian M.]

Kannst du mir nochmals helfen ? Ich wollte nun "einfach" die letzten 10 Minuten immer in einem MemoryStream festhalten und diesen bei Bedarf abspeichern. Leider ist die erstellte Datei 0 KB groß, d.h. er schreibt nichts in den Memorystream.

Delphi-Quellcode:

procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
  if (ms = nil) then ms:= TMemoryStream.Create; // create the stream
  if (buffer = nil) then ms.Free // finished downloading
  else
  begin  // Ab hier geänderter Code
    if ms.Size<=14745600 then //angabe in bit, entsprechend 10 Minuten bei 192kbit/s Stream
    ms.Write(buffer^, len) //schreibe memorystream voll
    else  // wenn memorystream 10min beinhaltet, dann lösche den anfang und füge den buffer ans ende.
    begin
      ms.Position:=len;//anfangsposition um die größe des buffers nach hinten setzen
      ms.CopyFrom(ms,(ms.Size-1)-len); //den "verschobenen" teil des streams neu abspeichern
      ms.Write(buffer^, len);  //den buffer wieder ans ende schreiben
    end;
    ms.Position := ms.Size - 1;
  end;
end;    



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

Danke und Gruß, Julian

[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;

[himitsu]

SaveToFile funktioniert da zufällig nicht. (das schreibt nur den gesamten Ring-Speicher in die Datei, so wie er im RAM liegt ... ist wohl ein kleiner Bug)
Du könntest einen FileStream erstellen und dort über FileStream.CopyFrom oder CopyTo die entsprechenden Bytes (RingStream.DataSize) reinkopieren.

Aber bei einer MP3 kannst du das eh alles vergessen, da du so oder so nur einen Teil der MP3-Datei bekommst, die absolut nicht funktionsfähig ist.

[Julian M.]

Danke für deine Antwort, Erfahrungen nach interessiert es die meisten Player nicht, ob die MP3 ein wenig abgehackt ist.
Ich ging allerdings davon aus, dass der von Bass.dll gelieferte Buffer immer ein Frame inkl. Header ist.

Aber: mein Hauptproblem ist, dass ich mit Streams immer noch nicht klar komme.

Also sagen wir Stream_A enthält:ABCDEFG
wie kopiere ich nun korrekt 'BCDEFG' in Stream B ?


Gruß Julian

[himitsu]

Grade nochmal nachgesehn:

SaveToFile sollte funktionieren.
In den Ringpuffer wird alles reingeschrieben und wenn X Bytes ausgelesen wurde, dann liegt der Anfang dieses Puffers nun auf Position X+1 und ab dieser Stelle würd auch SaveToFile speichern.

Statt Read und Write solltest du immer ReadBuffer und WriteBuffer verwenden, außer du wertest das Result aus.

Wenn per Write/WriteBuffer A bis G rein geschrieben und über Read/ReadBuffer/Seek das A ausgelesen wurde, dann sind noch B bis G drin.

Dieser RingPuffer muß auch manuell geleert werden, denn wenn er voll ist, passt nix mehr rein, da nichts automatisch gelöscht wird.



Und bezüglich Vererbung sollte ich mich für diese Klasse steinigen lassen.

[wicht]

Funktioniert es denn mittlerweile, überhaupt irgendwie Daten auf die Festplatte zu speichern mit dem SaveToFile()? Die ganze Sache sieht ausserdem gefährlich aus, weil StatusProc() glaube ich nicht im Hauptthread läuft, der SaveToFile()-Aufruf aber schon. Du müsstest den Zugriff dann synchronisieren (siehe TCriticalSection).

Zitat:

Also sagen wir Stream_A enthält:ABCDEFG
wie kopiere ich nun korrekt 'BCDEFG' in Stream B ?

Code:

procedure Kopieren(Stream_A, Stream_B: TMemoryStream);
begin
  Stream_A.Position := 1;
  Stream_B.CopyFrom(Stream_A, 6);
end;

Ist so aus dem Kopf niedergeschrieben, sollte aber passen..

[himitsu]

Zitat von wicht:

Du müsstest den Zugriff dann synchronisieren (siehe TCriticalSection).

Die Klasse war damals schon für MultiThread vorgesehen und hat bereits eine CS integriert.