Hallo,

wer kann mir dringend helfen?

Ich möchte mehrere WAV-Dateien in einen Memorystream einlesen.
Die Ausgabe mache ich dann, in dem ich den gesamten Stream abspiele.

Beispielcode, welche so nicht funktioniert (es wird blos die letzte gefunde Datei abgespielt):

...
for i := 0 to Pred(FAudiolist.count) do
begin
...
SoundFile := FAudioList[s-1];
if FileExists(Soundfile) then
begin
ms.LoadFromFile(SoundFile);
AudioSource.CopyFrom(ms,0);
AudioSource.Position := ms.Size;
end
...

Warum setzt du denn AudioSource.Position := ms.Size?

Hallo,

danke für die Antwort. Wie hänge ich aber an den Stream an?

Und man kann auch nicht einfach so Audiodateien aneinanderhängen.

Es funktioniert ja auch nicht, wenn du mehrere PAS-Dateien aneinanderhängst.

Da muß man schon den "funktionalen" Inhalt richtig verknüpfen, damit sowas ginge.

So wie es da steht müsste es eigentlich mit dem Anhängen funktionieren, hab mich vorhin verguckt.

Was passiert denn noch so in der for-Schleife?

Man kann die schon aneinanderhängen, es kommt ja drauf an wie man die abspielt. Wenn man die Startposition und Größe hat geht das schon.

Zitat von divBy0:

Wenn man die Startposition und Größe hat geht das schon.

Dann spielst du aber auch wieder nur jedes Lied einzeln ab und nicht alle "zusammen".

Wenn du doch für jedes Lied im Stream den Start und die Größe hast, dann kannst du doch einfach nach dem ersten Lied auf die Startposition des zweiten springen und spielst da weiter ohne erst die Datei von der Platte laden zu müssen.

Oder wenn die Abtastraten usw. bei allen Waves gleich ist, könnte man auch bei der ersten den Header anpassen und die Header bei den folgenden weglassen.

In der Vorschleife sollen nur die Wav-Dateien zu einem Stream addiert werden.
Diesen Stream möchte ich dann mit einem Player laden und abspielen.
Kann mir jemand einen kurzen Beispielcode zum addieren der Wav-Dateien zu einem Stream geben?

Zitat von himitsu:

Und man kann auch nicht einfach so Audiodateien aneinanderhängen.

Bei manchen Formaten geht das tatsächlich. Ebenso bei manchen Videoformaten.