[volod3000]

Решил немного переписать bass.pas (т.е. тот файл который я подключаю для загрузки DLL ) под себя, т.е. сделать
динамическую загрузку и оставить только необходимые (для моего проекта) функции.
После подключаю его (mybass.pas) к основной форме, но ....

Посмотрите, что не так, почему не работает, где ошибка (хотя компилятор молчит, Dll создается)


Воспроизвожу так:

Код:

    procedure TForm1.FormActivate(Sender: TObject);
    begin
      if bass_Init(-1, 44100,0, handle,nil) = false then
         Label1.Caption := 'Не могу инициализировать поток ';
         stream:=Bass_streamCreateFile(false, Pchar(ExtractFilePath(Application.ExeName)+'zas1.mp3'),0,0,BASS_UNICODE);
    end;
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        Bass_ChannelPlay(stream, false);
    end;

Но звука нет, честно не пойму, где собака зарыта .