Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

tmediaplayer [D7]

race1 © (2004-08-18 11:24:00)
хочу сделать tmediaplayer в рантайме, для определения (только определения) продолжительности файла. дело происходит в не визуальном компоненте, т.е. окошка у него нет (и делать такое public св-во, что бы компоненту передали хендл родительского приложения, оченьне желательно)

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

race1 (2004-08-18 17:53:00) [1]
к сожалению, не подходит :( слишком долго грузит файлы из которых я получаю нужную информацию за доли секунды

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

Mihey_temporary (2004-08-18 17:42:00) [2]
Тогда смотри исходники TMediaPlayer.

race1 (2004-08-18 15:45:00) [3]
нет, не то, к сожалению... мне нужно именно mpeg. ну и wma до кучи :) ави мне не надо

Mihey_temporary (2004-08-18 15:43:00) [4]
Попробуй VFW (в примере см. AVIFileInfo):
http://www.swissdelphicenter.ch/torry/showcode.php?id=1180

race1 (2004-08-18 14:53:00) [5]
пока mpeg (videocd). я, в принципе, парсю файл вручную, получаю битрейт аудио+видео, но при вычислении продолжительности (размер файла \ битрейт) получаются погрешности. mci даёт точный результат, поэтому его и хочу использовать

Mihey_temporary (2004-08-18 14:31:00) [6]
А каких файлов? Видео или видео и аудио вместе?

race1 (2004-08-18 14:12:00) [7]
лучше про узнавание длины через mci, потому что мне нужно не wav и mp3 узнать длину, а у других файлов

Mihey_temporary (2004-08-18 13:48:00) [8]
Продолжительность файла определяй из файла либо при помощи MCI. Если надо, могу кинуть инфу про WAV и MP3 из файла, либо про поддерживаемый звук через MCI комманды.

race1 (2004-08-18 12:15:00) [9]
мой компонент не визуальный, TComponent, TMediaPlayer.Parent: TWinControl, т.е. жестоко не подходит

ssk (2004-08-18 11:47:00) [10]
MediaPlayer := TMediaPlayer.Create(nil); MediaPlayer.Parent:=Self; MediaPlayer.FileName := AFileName; MediaPlayer.Open;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »