Tbassplayer некторые поблемы(((

[Anfall]

После добавления на форму компонента Tbassplayer. Все вроде работает, но пир выходе из приложения выдает http://s45.radikal.ru/i107/0902/3d/9460894cec25.bmp
Что сделать? Что не так? Delphi7!

Вообще как пользоваться этим компонентом? Для него нужна вся библиотека bass? Или просто bass.dll?

[Котовский]

корочи папарядку, выдает у тибя ошибку доступа, то есть твоя прога получила по рукам за неправильную работу с распределением памяти, смотри там, где у тебя идет динамическое распределение памяти - открытые массивы, указатели итд. далее впрос я ни понял: Для него нужна вся библиотека bass? Или просто bass.dll? попрафьте миня, если я не прав, но помоиму bass.dll- эта как раз и есть библиотека (фся)

[knight]

У меня вот это работает. Подключил файл bass.pas и кинул bass.dll в директорию с программой

private
    mods: array[0..128] of HMUSIC;
    modc: Integer;
    sams: array[0..128] of HSAMPLE;
    samc: Integer;
    strs: array[0..128] of HSTREAM;
    strc: Integer;
    procedure Error(msg: string);
...

Procedure FormCreate;
begin
 //////
 
	// check the correct BASS was loaded
	if (HI(BASS_GetVersion) <> BASSVERSION) then
	begin
		MessageBox(0, 'An incorrect version of BASS.DLL was loaded', nil, MB_OK);
		Halt;
	end;

	// Initialize audio - default device, 44100hz, stereo, 16 bits
	if not BASS_Init(-1, 44100, 0, Handle, nil) then
		Error('Error initializing audio!');
  //////

end;

Procedure FormClose;
begin
//////

    (*
     (It's not actually necessary to free the streams, musics and
     samples because they are automatically freed by BASS_Free.)
	*)

	// Free stream
  if strc > 0 then
    for a := 0 to strc - 1 do
    	BASS_StreamFree(strs[a]);

    // Free music
	if modc > 0 then
		for a := 0 to modc - 1 do
			BASS_MusicFree(mods[a]);

	// Free samples
	if samc > 0 then
		for a := 0 to samc - 1 do
			BASS_SampleFree(sams[a]);

	// Close BASS
	BASS_Free();

//////
end;

procedure Play;
f: PChar;
i: Integer;
ch: HCHANNEL;
begin
        f := PChar(ExtractFileDir(Application.ExeName) +'/sound/alarm.wav');
         Form1.sams[0] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS);

         // Play the sample at default rate, volume=50, random pan position

         ch := BASS_SampleGetChannel(Form1.sams[0], False);
         BASS_ChannelSetAttribute(ch, BASS_ATTRIB_PAN, Random(200) - 100);
         BASS_ChannelSetAttribute(ch, BASS_ATTRIB_VOL, 50);
         if not BASS_ChannelPlay(ch, False) then
              Form1.Error('Error playing sample!');
end;

[Котовский]

таки гиде ошпка-та начинается, перед закрытием надо все каналы освобождать BASS_SampleFree. и ваще пападробней. чей-та ты ваще делаиш, я че та пока ни вник. особина массивы дискрипторов посли дириктивы private?

[knight]

Сообщение от Котовский

таки гиде ошпка-та начинается, перед закрытием надо все каналы освобождать BASS_SampleFree. и ваще пападробней. чей-та ты ваще делаиш, я че та пока ни вник. особина массивы дискрипторов посли дириктивы private?

у меня нет никаких ошибок
это у Anfall ошибки...

добавил процедуры инициализации - завершения... что-то я их забыл скопировать из исходника...

[Котовский]

Мою ноги, спать ложусь