Mp3 aus MemoryStream abspielen

[phreax]

Hi Turbopascal
Ja Danke mit TBassDLLPlayer funktioniert das ganze sehr gut

Die datei kommt dadurch in den stream, dass ich sie aus einem an dei *.exe-datei angehängten Tar-GZip entpacke und sie dann direkt wiedergebe...

Der Quellcode mit initialisierung des players für alle, die wie ich keine komponenten einbinden können:

Delphi-Quellcode:

uses BassDLLPlayer;

procedure TForm1.Button1Click(Sender: TObject);
var player: TBassdllPlayer;
    stream: TMemoryStream;
begin
stream := TMemoryStream.Create;
player := TBassDLLPlayer.Create(self);
try
  stream.LoadFromFile('..\datei.mp3');
  player.LoadFromStream(stream);
  player.Volume := 50;
  player.Play;
  while (not (player.Position = player.SongLength)) do//warten auf songende
  begin
    Sleep(1);
    Application.ProcessMessages;
  end;
finally
  stream.Free;
  player.Free;
end;
end;