Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

Проблемы с mp3   Найти похожие ветки 

 
-=SS=- ©   (2004-12-03 11:22) [0]

Добрый день не подскажете как правильно проиграть mp3 средствами bass.dll

procedure TForm1.Button1Click(Sender: TObject);
var
mp3File : string;
GLSMBASS : TGLSMBASS;
chan : HSTREAM;
Begin
 mp3File := "C:\Test.mp3";
 if FIleExists(mp3File) then
 begin
  BASS_Init(0,44100,BASS_DEVICE_MONO,handle);
  BASS_StreamFree(chan);
  chan := BASS_StreamCreateFile(FALSE, Pchar(mp3File), 0, 0,BASS_SAMPLE_LOOP );
  BASS_StreamPlay(chan, False, BASS_SAMPLE_LOOP);
  Application.ProcessMessages;
 end;
end;

это почему то не работает


 
Kair ©   (2004-12-06 05:51) [1]

После Bass_Init добавь Bass_Start;


 
-=SS=- ©   (2004-12-06 11:47) [2]

Большое вам спасибо.... так и вправду работает.



Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.026 c
14-1109922277
Иксик
2005-03-04 10:44
2005.03.27
Такие как все


8-1102340271
WOWer
2004-12-06 16:37
2005.03.27
Дифракция


3-1109152784
juice
2005-02-23 12:59
2005.03.27
Выборка из набора данных


3-1109250563
Антоныч
2005-02-24 16:09
2005.03.27
Помогите составить SQL-запрос


1-1110540052
Володя
2005-03-11 14:20
2005.03.27
ProcessTerminate