Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.032 c
3-1092217638
zse
2004-08-11 13:47
2004.09.05
в MS SQL Serv хранимая процедура


3-1091805017
DmitryMN
2004-08-06 19:10
2004.09.05
Отменение выполнения запроса


3-1091906797
Денисыч
2004-08-07 23:26
2004.09.05
Поддерживает ли технология dbexpress Firebird ?


14-1092976591
Vlad Oshin
2004-08-20 08:36
2004.09.05
http://www.liveinternet.ru/images/attach/32750/1054196.jpg


8-1087475591
mr. Lamer
2004-06-17 16:33
2004.09.05
Качественное сжатие





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский