Главная страница
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.038 c
1-1092677011
AlexZ
2004-08-16 21:23
2004.09.05
external variable | {$L MyFile.obj}


1-1092906179
Марат
2004-08-19 13:02
2004.09.05
Fatal Error


6-1088615393
leonidus
2004-06-30 21:09
2004.09.05
Чем заменить idHTTP


6-1088658782
Артем К.
2004-07-01 09:13
2004.09.05
Присутствует ли в сети компьютер с введенным в edit IP-адресу


1-1093118075
iBitmap
2004-08-21 23:54
2004.09.05
WM_LBUTTONDOWN