Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.03.06;
Скачать: CL | DM;

Вниз

видео с youtube   Найти похожие ветки 

 
kak-bydima ©   (2010-12-14 20:00) [0]

скачал видео с youtube, засунул в программу и при воспроизведении через tmediaplayer скорость воспроизведения становиться просто бешеной.
подскажите, как нормализовать скорость?


 
P   (2010-12-14 20:50) [1]


> kak-bydima ©   (14.12.10 20:00)


На youtube особый формат видео файлов который через tmediaplayer воспроизводится с бешеной скоростью


 
kak-bydima ©   (2010-12-14 21:22) [2]

а как исправить это???


 
И. Павел ©   (2010-12-14 23:51) [3]


> а как исправить это???

Тоже замечал такое за TMediaPlayer. При воспроизведении видео очень большого объема.

Попробуйте вручную импортировать ActiveX медиаплеера.

Using the Media Player ActiveX control for playing video

The TMediaPlayer control included in Delphi does not work too well.
However several other options exist! You can use ActiveMovie or MediaPlayer.

ActiveMovie is a bit old, so therefore I recommend using the MediaPlayer control (which is available from MediaPlayer 6.4 - or you can even use the newer MediaPlayer9 control).

The use the Windows Media Player control start Delphi up and goto:
Component ->Import ActiveX Control
Then Choose Windows Media Player (version 1.0) from msdxm.ocx.
Rename it from TMediaPlayer to TWMP as the name TMediaPlayer already exists in Delphi.
Then click Install.

Drop the control on a form. Now set the property ShowControls to false to avoid a runtime error when closing Delphi. You can always do a ShowControls := True at runtime.

Play code could look like this:
...
public
dTotalFrames: Double;
dTotalTimeSecs: Double;
dFramerate: Double;
...
if OpenDialog1.Execute then
begin
WMP1.FileName := OpenDialog1.FileName;
while WMP1.ReadyState < 3 do
Application.ProcessMessages;
// Get Length in frames
WMP1.DisplayMode := 1; // 1 = Frames
dTotalFrames := WMP1.Duration;
// Get length in seconds
WMP1.DisplayMode := 0 ; // 0 = Time
dTotalTimeSecs := WMP1.Duration;
// Framerate
if dTotalTimeSecs > 0 then
dFramerate := DTotalFrames / dTotalTimeSecs;
WMP1.Play
end;


 
kak-bydima ©   (2010-12-15 01:40) [4]

спасибо все пашет))
токо строки после   Play code could look like this:
там немного по другому



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

Текущий архив: 2011.03.06;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.016 c
15-1290500287
ixen
2010-11-23 11:18
2011.03.06
Странная проверка пароля в Firebird


3-1246532222
Дмитрий Белькевич
2009-07-02 14:57
2011.03.06
Out of memory в результате фетча большого числа записей.


15-1290896924
Friencis
2010-11-28 01:28
2011.03.06
ServicePack for Delphi7 (d7_ent_upd1_1.exe)


2-1292090673
Анонимус
2010-12-11 21:04
2011.03.06
Вопрос про сплиттер, Delphi 7


1-1248514978
ford
2009-07-25 13:42
2011.03.06
Отследить изм-е позиции слова в TRichEdit при изм-ии раз-ра кнтрл





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский