Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Mp3 aus MemoryStream abspielen (https://www.delphipraxis.net/82973-mp3-aus-memorystream-abspielen.html)

phreax 23. Dez 2006 13:49


Mp3 aus MemoryStream abspielen
 
Hallo zusammen.
Gibt es eine Möglichkeit eine Mp3-Datei aus einem Stream, der sich im arbeitsspeicher befindet, wiederzugeben ohne diese auf der Platte zwischenzuspeichern und sie dann mit dem Musicplayer wiederzugeben?
Denn die oben genannte Methode dauert immer ziemlich lange...

danke für alle Beiträge im voraus :-D

phreax 25. Dez 2006 08:20

Re: Mp3 aus MemoryStream abspielen
 
Weiss niemand eine antwort?
*push*

turboPASCAL 25. Dez 2006 08:42

Re: Mp3 aus MemoryStream abspielen
 
Ja doch...

Da die Suche z. Z. down ist verwende mal folgende Links:

BASS.DLL
BASS + Stream

oder:

TBassDLLPlayer

Willst du die mp3 aus der Resource einer DLL bzw. eines Programms abspielen bzw. wie kommt die mp3-Datei in den Stream ?

phreax 27. Dez 2006 11:21

Re: Mp3 aus MemoryStream abspielen
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:36 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz