Главная страница
    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.033 c
14-1092311245
able
2004-08-12 15:47
2004.09.05
Ожоги. Как бороться.


14-1092660525
Tiger666
2004-08-16 16:48
2004.09.05
Как в Delphi подключить обработку инструкций MMX, SSE и т.д.


1-1093180013
bloodman
2004-08-22 17:06
2004.09.05
как получить доступ к контроллу из dll??


1-1092748061
shc
2004-08-17 17:07
2004.09.05
Освобождение памяти в TreeView


14-1092742868
DelphiNew
2004-08-17 15:41
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский