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

Вниз

AVI   Найти похожие ветки 

 
Dextor   (2004-06-20 15:17) [0]

Добрый день, мастера!!! Подскажите пожалуйста, как поставить на форму AVI фильм, затем TrackBar"ом прокрутить его на нужную позицию, и сохранить в JPEG текущийй кадр ???


 
Dextor   (2004-06-20 18:20) [1]

А еще мастерами называются! Ну пожалуйста подскажите, нужно очень!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


 
}{enon ©   (2004-06-20 21:51) [2]

Мастеров тут нет (выходной, однако), попробую помочь, как смогу.

Если тебе заранее известен размер кадра (ширина, высота), то делаешь следущее:
1)Кидаешь на форму MediaPlayer (вкладка System), какой-нибудь контрол (например, TPanel) и TImage.
2)Устанавливаешь размер Panel и Image равным размеры кадра
3)Устанавливаешь свойство плеера Display равным Panel1
4)Ставишь AutoOpen = true и прописываешь путь к файлу (FileName), либо открываешь файл програмно
5)При изменении положения TrackBur"a выполняешь команду
MediaPlayer1.Position := Round(MediaPlayer1.Length * percent);, где percent - положение бегунка (от 0 до 1). На всякий случай поставь MediaPlayer1.TimeFormat := tfFrames;
6)После (5) копируешь изображение на Image:
BitBlt(Image1.Canvas.Handle,0,0,xsize,ysize,GetDC(Panel1.Handle),0,0,SRCCOPY);
7)Сохраняешь в файл (Image1.Picture.SaveToFile("filename.bmp");) В JPEG ты стандартными средствами не сохранишь, надо либо использовать сторонние библиотеки, либо конвертировать этот bmp каким-нибудь Paint"ом.

Если размер кадра неизвестен, то все несколько сложнее. Можно либо попробовать его определить, либо не устанавливать Display. При этом AVI-шник откроется в отдельном окне и можно скопировать его уже оттуда.


 
Dextor   (2004-06-20 22:04) [3]

Спасибо!!!!!!



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

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

Наверх





Память: 0.45 MB
Время: 0.034 c
1-1092982410
bezpal
2004-08-20 10:13
2004.09.05
Как в Delphi проанализировать запущена ли определенная программа?


3-1092277691
Sirus
2004-08-12 06:28
2004.09.05
Принудительное закрытие базы Interbase...


6-1088490331
leonidus
2004-06-29 10:25
2004.09.05
Компонент idHTTP не работает через прокси


4-1090517704
juiceman
2004-07-22 21:35
2004.09.05
программировать в Windows устройства


1-1092833438
Toshanius
2004-08-18 16:50
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский