Показать сообщение отдельно
  #17  
Старый 02.06.2008, 12:10
Lekas Lekas вне форума
Прохожий
 
Регистрация: 02.06.2008
Сообщения: 2
Репутация: 10
Лампочка

Хех... скопировать мало...
Значит так, самое простое:
Копируешь файлы Bass.dll и Bass.pas в диррекдорию с проектом. Затем, в delphi открываешь 'Project\View Source', там надо прописать библиотеку:
Код:
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Bass in 'Bass.dll';

В Unit1 после Uses пишешь Bass.

Посде этого шаманства кидаем на форму 2-е кнопки и в 1-й пишем:
Код:
 If BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then
 Begin
//Play и Stop;
     BASS_Init(-1, 44100, 0, Application.Handle, nil);
    Channel := BASS_StreamCreateFile(FALSE, PChar('test.mp3'), 0, 0,0);
     BASS_ChannelPlay(Channel, True);
     Timer1.Enabled:=true;
 End else
 Bass.BASS_ChannelStop(Channel)
А во второй кнопке пишем:
Код:
//Пауза;
 If BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then BASS_ChannelPlay(Channel, False) else
 BASS_ChannelPause(Channel)

в свойстве OnClose пиши Bass_free;

Вот собственно и всё!
Для изменения громкости самого трека надо на форму кинуть TrackBar и в нём написать так:
Код:
Bass.BASS_ChannelsetAttribute(Channel,BASS_ATTRIB_VOL,TrackBar1.Position/100);
При этом в свойство трак бара Max болжно равняться 100...
Это не изменяет системную громкость...
Удачи в пользовании!
Ответить с цитированием