Bass.dll und memorystream

[Luki206]

Hi, ich glaube die Antwort zu meiner Frage ist ziemlich naheliegend aber ich komme nicht drauf.. Wie kann ich aus einem MemoryStream mit der Bass.dll ein Lied wiedergeben? Habe auch schon gegoogled habe aber nur was mit dem BassDLLPlayer gefunden der aber leider nicht mehr unterstützt wird (bzw. ich finde dazu nichts).
Danke
Luki :)

[DeddyH]

Ohne es selbst ausprobiert zu haben:
http://www.un4seen.com/doc/#bass/BAS...reateFile.html

Zitat:

mem TRUE = stream the file from memory.
file Filename (mem = FALSE) or a memory location (mem = TRUE).

Wenn man also diese Funktion mit mem auf true und file auf MemoryStream.Memory gesetzt aufruft, könnte es evtl. funktionieren, Versuch macht klug.

[Luki206]

ok danke, ich schaue mal was ich machen kann ;)

[Luki206]

Ich melde mich noch einmal hier zurück, ich bekomme den Fehler Code der Bass.dll 20 nur weiß ich nicht was der bedeutet Google wollte mir diese Frage auch nicht beantworten.. Hier mein Code wo ich die Datei aus einer Ressourcen DLL Lade und versuche abzuspielen:

Delphi-Quellcode:

procedure TFrmHaupt.MusikLoad(dll: string);
var h: Cardinal;
begin
 h := LoadLibrary(PChar(dll));
 LAudio := TResourceStream.CreateFromID(h, 1, RT_RCDATA);
end;

procedure TFrmHaupt.ImgPlayPauClick(Sender: TObject);
var f: PChar; LSpeich: String;
begin
LSpeich := CDS.FieldByName('Speicherort').Value;
MusikLoad(LSpeich);
   strs := BASS_StreamCreateFile(true, LAudio.Memory, 0, 0, 0);
   if strs <> 0 then begin
      Inc(strc);
   end else begin
      Error('Error, Datei konnte nicht geladen werden! Bitte überprüfen!');
end;
end;

Danke ;)

[DeddyH]

Ein Blick in die Bass.pas verrät mir:

Delphi-Quellcode:

BASS_ERROR_ILLPARAM     = 20;   // an illegal parameter was specified

Tja, woran das nun genau liegt, weiß ich leider auch nicht, wahrscheinlich war meine Vermutung, dass es so gehen könnte, einfach falsch.

[edit] Hast Du denn auch mal die Rückgabewerte z.B. von LoadLibrary geprüft? Nicht, dass das schon schiefgeht. [/edit]

[Luki206]

Oh, auf die Idee bin ich gar nicht gekommen.. Sorry.. :oops: Mit dem Rückgabewert scheint alles zu stimmen bzw. Ich habe die Datei die ich im ResourceStream habe mal auf meinem Desktop gespeichert und ich konnte sie wunderbar abspielen.. Ich versuche es mal weiter ;)

[Luki206]

Ok ich habe jetzt noch mal ein bisschen auf der Seite gesucht die Du gepostet hattest und habe das gefunden

Zitat:

BASS_ERROR_ILLPARAM The length must be specified when streaming from memory.

Ich habe das jetzt mal aus dem Verkehr genommen und habe die Länge dort eingetragen also hier:

Delphi-Quellcode:

strs := BASS_StreamCreateFile(true, LAudio, 0, 233, 0{$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

Die 233 ist die Länge nur bekomme ich jetzt den Fehler dass das Dateiformat nicht unterstützt wird obwohl es eine *.mp3 ist..

[nuclearping]

Länge = MemoryStream.Size ;)

[Sir Rufo]

Zitat:

Zitat von nuclearping (Beitrag 1250987)

Länge = MemoryStream.Size ;)

Joar ... in diesem Fall passt es wohl, weil in dem Stream nichts Anderes enthalten ist und die aktuelle Position des Streams auch am Anfang ist.

Ansonsten gilt (eigentlich immer bei Streams), das ab der aktuellen Position nun x Bytes die gewünschten Daten enthalten.
Somit kann man auch mehrere (unterschiedliche) Inhalte in dem Stream haben

Code:

|Size|Data|Size|Data|...|Size|Data|

hüpft durch den Stream bis zur richtigen Position (Size lesen und um Size-Anzahl Bytes vorwärts bewegen) und übergibt den Stream und den vorher gelesenen Size-Wert.

[Luki206]

Ok danke. Ich werde das heute Mittag probieren ;) Ich dachte ich muss bei Creat_Stream die Länge der Audio Datei schreiben :oops:

[nuclearping]

Zitat:

Zitat von Luki206 (Beitrag 1251063)

Ok danke. Ich werde das heute Mittag probieren ;) Ich dachte ich muss bei Creat_Stream die Länge der Audio Datei schreiben :oops:

Musst du ja auch, also die Länge der Audio-Daten. Aber nicht in Sekunden, sondern in Bytes. Weil die Funktion interessiert nicht, wie lang das Lied ist, sondern wieviel Bytes an Daten es von der Speicheradresse (MemoryStream.Memory = Pointer) lesen soll.

[Luki206]

Ok ich hab's jetzt bearbeitet bekomme aber immer noch den Fehler 41 also:

Code:

BASS_ERROR_FILEFORM     = 41;   // unsupported file format

obwohl .mp3..

[nuclearping]

Bist du sicher, dass die Daten auch korrekt aus der Resource geladen werden?

Mach doch mal MemoryStream.SaveToFile(...) und schau, ob du die erzeugte Datei in nem MediaPlayer abspielen kannst?

Oder setze mal einen Breakpoint bei

Delphi-Quellcode:

strs := BASS_StreamCreateFile(...

oder schon bei

Delphi-Quellcode:

MusikLoad()

, steppe durch und schau dir die (Rückgabe-)Werte im Debugger an.

Was sagt zB MemoryStream.Size? Was sagen die Rückgabewerte der Funktionen?

[Luki206]

WIE KANN MAN DENN NUR SO BLÖD SEIN??!!!:wall::wall::wall::wall: :wall::wall::wall::wall::wall::wall::wall: :wall::wall:


Ich habe das .Memory hinter LAudio vergessen.. Jetzt geht es....

Danke für die Hilfe ;)