tmediaplayer

← →
race1 (2004-08-18 11:24) [0]

хочу сделать tmediaplayer в рантайме, для определения (только определения) продолжительности файла. дело происходит в не визуальном компоненте, т.е. окошка у него нет (и делать такое public св-во, что бы компоненту передали хендл родительского приложения, очень не желательно)

MediaPlayer := TMediaPlayer.Create(nil); MediaPlayer.FileName := AFileName; MediaPlayer.Open; MediaPlayer.TimeFormat := tfMilliseconds; Duration := MediaPlayer.Length MediaPlayer.Free;
ругается на open; что нет parent окна. какое ему можно подсунуть общедоступное окно (или другими средствами) что бы определить-таки продолжителность?

← →
ssk © (2004-08-18 11:47) [1]

MediaPlayer := TMediaPlayer.Create(nil); MediaPlayer.Parent:=Self; MediaPlayer.FileName := AFileName; MediaPlayer.Open;

← →
race1 (2004-08-18 12:15) [2]

мой компонент не визуальный, TComponent, TMediaPlayer.Parent: TWinControl, т.е. жестоко не подходит

← →
Mihey_temporary © (2004-08-18 13:48) [3]

Продолжительность файла определяй из файла либо при помощи MCI. Если надо, могу кинуть инфу про WAV и MP3 из файла, либо про поддерживаемый звук через MCI комманды.

← →
race1 (2004-08-18 14:12) [4]

лучше про узнавание длины через mci, потому что мне нужно не wav и mp3 узнать длину, а у других файлов

← →
Mihey_temporary © (2004-08-18 14:31) [5]

А каких файлов? Видео или видео и аудио вместе?

← →
race1 (2004-08-18 14:53) [6]

пока mpeg (videocd). я, в принципе, парсю файл вручную, получаю битрейт аудио+видео, но при вычислении продолжительности (размер файла \ битрейт) получаются погрешности. mci даёт точный результат, поэтому его и хочу использовать

← →
Mihey_temporary © (2004-08-18 15:43) [7]

Попробуй VFW (в примере см. AVIFileInfo):
http://www.swissdelphicenter.ch/torry/showcode.php?id=1180

← →
race1 (2004-08-18 15:45) [8]

нет, не то, к сожалению... мне нужно именно mpeg. ну и wma до кучи :) ави мне не надо

Тогда смотри исходники TMediaPlayer.

← →
race1 (2004-08-18 17:53) [10]

к сожалению, не подходит :( слишком долго грузит файлы из которых я получаю нужную информацию за доли секунды

только щас понял его тормознутость

tmediaplayer Найти похожие ветки