BASS 2.0 Dynamic_bass.pas error!!!

0

Czesc Wszystkim.
Testuję biblioteki Bass Iana Lucka(http://www.un4seen.com/). Uruchomiłem demo BassWa, pozwalające na uzywanie pluginow Winampa w Delphi. Przy probie kompilacji zrodel otrzymuje błąd w module Dynamic_Bass:

Function Load_BASSDLL (const dllfilename:string) :boolean;
var oldmode:integer;
begin
  if BASS_Handle<>0 then result:=true {is it already there ?}
  else begin {go & load the dll}
    oldmode:=SetErrorMode($8001);
TUTAJ--->>>>>    BASS_Handle:=LoadLibrary(pchar(dllfilename)); // obtain the handle we want
    SetErrorMode(oldmode);
    if BASS_Handle<>0 then
       begin {now we tie the functions to the VARs from above} 

[Error] Dynamic_Bass.pas(850): Left side cannot be assigned to
Nie rozumiem dlaczego wyswietla taki komunikat skoro obie strony wyrażenia są typu Cardinal.
Co jest tego przyczyną, jak się tego pozbyć, by skompilować źródła. Kompilacji próbowałem dokonać w Delphi 7 Enterprise.

Pozdr/Pepe

0

Nie przypominam sobie, żeby w BASSie był przykład wykorzystania pluginów z winampa. To, co pokazałeś tutaj, to kawałek modułu do dynamicznego ładowania biblioteki bass.dll.

0

Chodzi o to że Bass_HANDLE jest stałą i nie można jej modyfikować (można ją odczytywać, ale nie zapisywać). Sprawdź gdzie jest zadeklarowana i spróbuj przenieść ją z sekcji const do var.

0

Chodzi o to że Bass_HANDLE jest stałą i nie można jej modyfikować (można ją odczytywać, ale nie zapisywać). Sprawdź gdzie jest zadeklarowana i spróbuj przenieść ją z sekcji const do var.

Rzeczywiście, po zamienieniu stałej Bass_Handle na zmienną program skompilował się, niestety otrzymałem komunikat Access Violation. Alke dobre i to. Moze cos wymysle. Dzieki.

Ha. Działa. Wszystko jest OK. Moze napisze, gdyby ktos miał ten sam problem.Wystarczyło usunoc deklarację stałej Bass_Handle i zamiast tego wkleic następującą deklarację zmiennej Bass_Handle(u mnie ponad deklaracja funkcji:
Function Load_BASSDLL (const dllfilename:string) :boolean;)

var BASS_Handle:Thandle;

1 użytkowników online, w tym zalogowanych: 0, gości: 1