Текущий архив: 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.053 c