Скачать: CL | DM;

Vorbis/OGG   Найти похожие ветки 

← →
Goorus ©   (2006-04-04 13:57) [0]

Пытаюсь сделать поддержку ogg  в своей проге, с потоками всё получилось, буферы правильно работают, но столкнулся с проблемой, когда файл имеет малый размер. Есть огг всего 6 килобайт, и вот её не получается проиграть. Проблема возникает ещё при чтении заголовка:

 FStream := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
 res := ov_open_callbacks(FStream, vf, nil, 0, ops_callbacks);

На второй строке программа подвисает (где-то полсекунды), ну а дальше звук не читается

 ...
 repeat
   Change := ov_read(vf, PCM[BytesRead], ASize - BytesRead, 0, 2, 1, nil);
   BytesRead := BytesRead + Change;
 until (Change = 0) or (BytesRead = ASize);

Получается, что Change = 0 и ничего в буфер не загружается.
Видимо, проблема в том, что не правильно загружаются данные vf: OggVorbis_File. Смотрел, что присходит после вызова ov_open_callbacks, так вот там беспрерывно вызывается функция ops_seek_func, причём с параметрами перемиститься относительно начала файла, а offset - отрицательный и всё время уменьшается на 8500. Похоже, такой вызов происохдит до тех пор, пока offset не станет меньше Low(Int64), а потом эти вызовы просто прекращаются, так ничего и не загрузив.

Может кто сталкивался или просто знает как правильно?

---

← →
VEG ©   (2006-05-28 13:41) [1]

Странно. Разве декодер Ogg Vorbis портирован на Delphi? Или вы пользуетесь внешними библиотеками?

---

← →
Rial ©   (2006-05-28 18:52) [2]

Вообщето - то имеется расширение для работы специально с OGG файлами.
Посмотри:

  alGenBuffers(1,@Id);
  alBufferData(Id,AL_FORMAT_VORBIS_EXT,Stream.Memory,Stream.Size,44100);

А, по большому счету, у меня тоже частенько вохникают глюки с этими библиотеками...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c