Как вырезать из AVI отдельные кадры в bmp, jpeg....

← →
Bruno (2004-05-28 17:26) [0]

Подскажите как из AVIшки вырезать отдельные нужные картинки и сохранять их в файлы типа bmp, jpeg

← →
Dr.Alex (2004-05-28 18:20) [1]

Кладешь на форму 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;

← →
Dr.Alex (2004-05-29 17:38) [2]

Странно спросил и исчез, видемо все у него будет хорошо. :)

← →
Burich (2004-07-30 03:08) [3]

Dr.Alex, сибо огромнейшее.
Мне на работе задали это в качестве теста, так я чесез Microsoft video SDK хотел телепаться, а тут такое красивое решение=)).
Если ты в Питере, с меня пиво/лимонад... Не знаю, что употребляешь=))
Кстати, никаких модулей подключать не потребуется??
Еще раз сибо.

Как вырезать из AVI отдельные кадры в bmp, jpeg.... Найти похожие ветки