Musik-Resource aus DLL in TBassdllPlayer laden

[turboPASCAL]

Nich drängeln...

Done.


Add Function:

Delphi-Quellcode:

function TBassPlayer.LoadFromResourceNameEx(Insance: HInst;
  ResourceName: PChar; ResTyp: TRC_ResourceTyp): Boolean;

Verwendung:

Delphi-Quellcode:

var
  DllHandle : THandle;

procedure TFormX.FormCreate(Sender: TObject);
begin
  DllHandle := LoadLibrary('.\lib\music.dll');
end;

procedure TFormX.FormDestroy(Sender: TObject);
begin
  if DllHandle <> 0 then FreeLibrary(DllHandle);
end;

function TFormX.LoadMusicLibrary(BassPlayer: TBassdllPlayer; Listbox: TListbox) : Boolean;
var
  id : String;
  item : Integer;
  Sound : String;
begin
  if DllHandle <> 0 then
  begin
    item := random(4) + 1;
    case item of
      1: Sound := 'Music01';
      2: Sound := 'Music02';
      3: Sound := 'Music03';
      4: Sound := 'Music04';
    end;
    if BassPlayer.LoadFromResourceNameEx(DllHandle, PChar(Sound), RC_Music) then BassPlayer.Play;
  end else
    ShowMessage('Loading [Music] has failed!');
end;