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

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 до кучи :) ави мне не надо

---

← →
Mihey_temporary ©   (2004-08-18 17:42) [9]

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

---

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

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

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

---

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

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



Память: 0.47 MB
Время: 0.02 c