Fehler beim Laden von mp3 aus dll

[fwsp]

hallo

ich möchte aus einer dll sound (mp3) laden und abspielen (per bass.dll) die da per res drinstecken, das ganze versuche ich mit der folgenden prozedur.

Delphi-Quellcode:

procedure TFrmInstrumente.Button2Click(Sender: TObject);
var
  H: HINST;
  R: TResourceStream;
begin
  H := LoadLibrary('Sound.dll');
  if H <> 0 then
  begin
    try
      R := TResourceStream.Create(H, 'Sound00', RT_RCDATA);
      Player.LoadFromStream(R);
      Player.Play;
    finally
      FreeLibrary(H);
    end;
  end;
end;

nur passiert nichts, rein garnichts.
ich hab nicht die möglichkeit den stream in eine datei zu schreiben, da das endprodukt auch von cd funktionieren soll.

danke.

[fwsp]

*push*

[TeronG]

Hab mit der bass.dll noch nich viel gemacht aber das Thema hatten wir glaubich schon mal hier
Notfalls kannste ja die Daei/den Stream im Temp-Verzeichniss ablegen. (und löschen nich vergessen ^^)

[fwsp]

ja, das thema gab es schon einmal, blieb aber unbeantwortet.
gibt es keine möglichkeit, die mp3s direkt zu streamen?

[turboPASCAL]

Player, was ist das für einer ?

Zitat von fwsp:

ich möchte aus einer dll sound (mp3) laden und abspielen (per bass.dll) die da per res drinstecken,

Etwas mehr Code bitte, damit man sich vorstellen kann wie du das angehst.

[fwsp]

der player ist der tbassdllplayer, so wie ich bereits geschrieben habe. welchen teil des codes möchtest du denn noch sehen? das ist der teil der musik aus der dll holt und ihn abspielen soll.

//Edit1
Die dll ist definitiv richtig erstellt, hab grad den stream gespeichert und dann abspielen lassen, klappt, aber ich muss das doch direkt aus der dll streamen lassen können.

[turboPASCAL]

Ja, das geht auch. Muss jetzt erst mal wech... (komme aber wieder )

[turboPASCAL]

LoadFromStream ist nicht LoadFromStream. Ne, das ist zum laden eines "normalen Streams".

Ändere mal in der TBassDLLPlayer.pas in Zeile 472 folgendes:

Delphi-Quellcode:

function TBassdllPlayer.LoadFromResourceName(Instance: HInst; ResourceName: PChar;
  ResTyp: TRC_ResourceTyp): Boolean;
var
  i, TmpVolume: Integer;
  ResStream : TResourceStream;
  MemoryStream: TMemoryStream;
begin
  //...

  if ResTyp = RC_MUSIC then
  begin
    ResStream := TResourceStream.Create(Instance, ResourceName, RT_RCDATA);
    // ...
  end else
  if ResTyp = RC_STREAM then
  begin
    ResStream := TResourceStream.Create(Instance, ResourceName, RT_RCDATA);
    // ...

und in Zeile 138

Delphi-Quellcode:

published { Published-Deklarationen }
    function LoadFromFile(FileName: string): boolean;
    //function LoadFromResourceName(ResourceName: PChar; ResTyp: TRC_ResourceTyp): Boolean; // alt
    function LoadFromResourceName(Instance: HInst; ResourceName: PChar; ResTyp: TRC_ResourceTyp): Boolean; // neu

und dann sollte es mit:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  //... 
  private
    MySoundLibH: HInst;
  //... 

procedure TForm1.ButtonXYZClick(Sender: TObject);
begin
  // Load Stream from Resource (MP3)

  MySoundLibH := LoadLibrary('Resources.dll'); // zB. ins FormCreate verschieben
  if MySoundLibH <> 0 then
  begin
    if not BassdllPlayer1.LoadFromResourceName(MySoundLibH, 'MP3STREAM', RC_STREAM) then ; //... ErrorMsg o. ä.
    // Start playing
    BassdllPlayer1.Play;

    FreeLibrary(MySoundLibH); // zB. ins  FormDestroy verschieben
  end else ; //... ErrorMsg o. ä.
end;

funktionieren.

H := LoadLibrary('Sound.dll'); undFreeLibrary(H); würde ich aber als "global deklar." da gegf. sonst ein Fehler kommt. (nach laden aus dem Stream)

[fwsp]

hui, hui, hui.

da bist du ja richtig tief eingetaucht.
werd ich mal gleich probieren.
danke.

[fwsp]

ich bin begeistert.