| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вырезать из AVI отдельные кадры в bmp, jpeg.... [WinXP]
Bruno © (2004-05-28 17:26:00)Подскажите как из AVIшки вырезать отдельные нужные картинки и сохранять их в файлы типа bmp, jpeg
Burich (2004-07-30 03:08:00) [1]Dr.Alex, сибо огромнейшее.
Мне на работе задали это в качестве теста, так я чесез Microsoft video SDK хотел телепаться, а тут такое красивое решение=)).
Если ты в Питере, с меня пиво/лимонад... Не знаю, что употребляешь=))
Кстати, никаких модулей подключать не потребуется??
Еще раз сибо.
Dr.Alex (2004-05-29 17:38:00) [2]Странно спросил и исчез, видемо все у него будет хорошо. :)
Dr.Alex (2004-05-28 18:20:00) [3]Кладешь на форму TMediaPlayer , ТПанель Свойство TMediaPlayer.Display выбираешь панель на котором будет воспроизводиться видео и при помощи следующего кода грабишь картинки при воспроизводстве фильма
TMediaPlayer.open;
TMediaPlayer.play;
Код для грабежа должен работать - это кусок кода из моей рабочей программы если что подправишь где надо
Procedure PHOTO;
var
BitMap:TBitMap;
Jpg:TJpegImage;
begin
BitMap:=TBitMap.Create;
jpg:=TJpegImage.Create;
BitMap.Width:=p.Width;// определяем размеры картинки по размерам панели
BitMap.Height:=p.Height;
BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,GetWindowDC(p.Handle),0,0, srccopy);
jpg.CompressionQuality:=100;
jpg.Assign(BitMap);
jpg.Compress;
WWW:='1.jpg';
BitMap.SaveToFile('1.bmp');
jpg.SaveToFile(WWW);
BitMap.Free;
JPG.Free;
end;
| |
