Створити avi з послідовності jpeg (bmp) як

Створити AVI з послідовності jpeg (bmp) як?

Необхідно створити AVI з послідовності jpeg (bmp), використовуючи один з встановлених в системі кодеків. У многоих програмах таке реалізовано, очевидно стандартна якась можливість - з'являється вікно для вибору кодека.
Хто знає як здійснити?

> Хто знає як здійснити?
ну я знаю - і що? питання треба точніше ставити :)

якщо просто - шукай компонент avi_writer, якщо складно - читай video_for_windows в msdn або читай про directshow


> zinetz_victor # XA0; (13.02.06 11:17) [1]


> Якщо просто - шукай компонент avi_writer, якщо складно

Компонент якраз простий дуже, і пише без стиснення, наскільки я зрозумів з його початкових кодів.

> Питання треба точніше ставити :)

куди вже точніше, кодек уточнити. )

Компонент якраз простий дуже, і пише без стиснення, наскільки я зрозумів з його початкових кодів.


# XA0; # XA0; # XA0; If fCompression then with MyAVIcompressOptions do begin
# XA0; # XA0; # XA0; fccType: = StreamTypeVideo; # XA0; # XA0; # XA0; # XA0; # XA0; // # XA0; DWORD
# XA0; # XA0; # XA0; fccHandler: = MyFOURCC ( "M", "S", "V", "C"); # XA0; # XA0; // # XA0; DWORD

Додати в uses aviWriter_2,
обьявить aw: tAviWriter_2;
створити
aw: = tAviWriter_2.create (form1);
aw.PixelFormat: = pf24bit;

оголосити і створити b: tBitmap; b: = graphics.tBitmap.create; b.pixelformat: = pf24bit;
заповнювати його b.loadFromFile ( "image.bmp");
Додавати кадри в циклі
aw.AddFrame (b);

закінчити
# XA0; aw.FinalizeVideo;
# XA0; aw.WriteAvi;

Детальніше додаються 2 приклади Demo

Трохи чи не це по-моєму йому потрібно.
Швидше за все, потрібно просто встановити компоненту:
Запускаєш AviPack.dpk.
Тиснеш "сompile", "install", компонента з'являється в закладці "custom".

Спасибі, programania. Все працює.

А ось те, про що говорить Дмитро Белькевич я як раз і пробував робити. Так у мене були такі проблеми:

При компіляції видається Error на:
-> Заміняю ->

а ось тут складніше, оскільки ні # XA0; rtl.dcu. ні vcl.dcu я в папці з Delphi не знайшов. Може бути я зробити щось не так?

Всіх зі святом! З чоловічим. Та не порахують модератори вельмишановного форуму дані привітання флудом.

Справа, звичайно, хазяйське, але на майбутнє рекомендую подивитися прописані шляхи до папки delphi6 / lib.
Прописувати в environment options - library - library path:

У мене прописано:

А що за $ (DELPHI) \ R ave5 \ Lib?

І все запрацює. З'являться всі DCU.

Пам'ять: 0.75 MB
Час: 0.061 c

Схожі статті