Bass.dll dynamisch zur laufzeit laden

[TeTSuO]

Hallo Erstma

Ich habe die Bass.DLL mit in das kompilat eingebunden. zur laufzeit wird es auch entpackt wenn ich aber versuche die DLL mit der Unit Bass_dynamic zu Laden kommt ne Fehlermeldung das er die Datei nicht Laden konnte.

Die Unit ist für Version 2.0 von der Bass.dll ich habe aber Version 2.1. Kann es vielleicht daran liegen das er die Proceduren falls addressiert

Mein Quelltext :

Delphi-Quellcode:

Var hFindRes: HRSRC;
    hLoadres: HGLOBAL;
    hLockRes: Pointer;
    FS: TFileStream;
    TmpDir: String;
    N: Integer;
    FPlayer: TBassInstance;

Begin
 // DLLName für Bass_Dynamic
 BassDLL:='SNDHLD.TMP'+#0;
 // Tempverzeichnis ermitteln
 SetLength(TmpDir,MAX_Path);
 N:=GetTempPath(MAX_Path,PChar(TmpDir));
 SetLength(TmpDir,N);
 // DLL Pfad für Bass_Dynamic setzen
 Bass_Path:=CheckDir(TmpDir);
 // Ressource laden
 hFindRes:=FindResource(hInstance,MAKEINTRESOURCE(1000),'APPDATA');
 hLoadRes:=LoadResource(hInstance,hFindRes);
 hLockRes:=LockResource(hLoadRes);
 // Ressource speichern
 FS:=TFileStream.Create(Bass_Path+BassDll,fmCreate);
 FS.Write(hLockRes^,95288);FS.Free;
 
 FPlayer:=hBassCD;      
 LoadBassDLL(FPlayer);
End;