Moin,
ein kleines Problem, woran ich aber einfach nicht weiter komme:
Ich habe einige Lieder in eine Resource gepackt, mir dann eine
DLL erstellt und möchte in meiner Applikation diese Lieder nun mittels des TBassdllPlayers (aus der
DP) abspielen. Dazu habe ich mir eine kleine Funktion geschrieben, die leider noch ihren Dienst versagt:
Delphi-Quellcode:
function LoadMusicLibrary(BassPlayer: TBassdllPlayer; Listbox: TListbox) : Boolean;
var
h : THandle;
id : String;
item : Integer;
Sound : String;
begin
h := LoadLibrary('.\lib\music.dll');
if h <> 0 then
begin
try
item := random(4) + 1;
case item of
1: Sound := 'Music01';
2: Sound := 'Music02';
3: Sound := 'Music03';
4: Sound := 'Music04';
end;
BassPlayer.LoadFromResourceName(PChar(Sound), RC_Music);
BassPlayer.Play;
finally
FreeLibrary(h);
end;
end;
end
else ShowMessage('Loading [Music] has failed!');
end;
Problem ist nur, dass die Resourcen (Musik01, Musik02, etc) nicht gefunden werden. Scheinbar muss ich ja noch irgendwo angeben das alles in dem
Handle h liegt oder? Hat da jemand ne Idee?
Danke euch schonmal.
