Работа с Audiocd

[mohonko]

Я делаю в Delphi свой плейер на основе TMediaPlayer. Никак не могу заставить этот компонент проматывать AudioCD файлы на 5 секунд вперёд и назад. К следующим и предыдущим дорожкам переходит нормально, но совершенно не отматывает по самой дорожке. А в моей проге это недопустимо. Кто может помогите.

 

[DCoder]

Свойство Position не работает?

 

[mohonko]

Не работает. С помощью Position удается прамотать только вперёд.

 

[romka]

Не работает. С помощью Position удается прамотать только вперёд.

Всё, что я могу посоветовать, это деалть MP3-плеер не на основе готового TMediaPlayer, а с помощью команд MCI (кстати TMediaPlayer работает именно на этих командах). Тогда ты сможешь устанавливать позицию начала и конца воспроизведения трека. Команды отправляй с помощью функции MCISendCommand. Должно получиться что-нибудь подобное:

MCISendCommand(DevID, MCI_PLAY, MCI_WAIT or MCI_FROM or MCI_TO, Longint(@PlayParms)), где
DevID-идентификатор открытого устройства; OpenParms - структура TMCI_Play_Parms. В эту структуру в поля dwFrom и dwTo занеси позиции начала и конца воспроизведения трека соответственно.

Более подробно об MCI смотри в хелпе по WinApi.
Удачи.

 

[mohonko]

А где взять эту хелпу? Как воспроизводить различные форматы аудио и видео с помощью MCI?