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
