Створити 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