Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.05;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.048 c
3-1092376581
segor
2004-08-13 09:56
2004.09.05
Проверка поля на обязательность


3-1092142595
AndrewS
2004-08-10 16:56
2004.09.05
Как в runtime добавить lookup поле в DataSet


1-1092730717
ceval
2004-08-17 12:18
2004.09.05
как в Excel сделать заголовок столбца (по середине) и


4-1090655477
akvilon
2004-07-24 11:51
2004.09.05
UpdateRgn, PAINTSTRUCT, InvalidateRgn как с этим работать?


14-1092840049
QuasiLamo
2004-08-18 18:40
2004.09.05
CASHFLOW