Вниз
Скачать: CL | DM;

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

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



Память: 0.45 MB
Время: 0.031 c
1-1092860381
nester
2004-08-19 00:19
2004.09.05
Что делать с локальными типизироваными константами в Делфи 7


1-1092737415
BFG9k
2004-08-17 14:10
2004.09.05
Обратная связь WebBrowser и Delphi


1-1093234634
Fynjy1984
2004-08-23 08:17
2004.09.05
Проблема с разделителем


14-1092734667
Blackman
2004-08-17 13:24
2004.09.05
Сайт "Курс борьбы с DELPHI" закрывается 20.08.2004


14-1092925357
oldman
2004-08-19 18:22
2004.09.05
Вот такое решение задачки...




   Наверх