Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создать AVI из последовательности jpeg (bmp) как? [D6, WinXP]

DVM © (2006-02-13 11:02:00)
Необходимо создать AVI из последовательности jpeg (bmp), используя один из установленных в системе кодеков. Во многоих программах такое реализовано, очевидно стандартная какая-то возможность - появляется окно для выбора кодека.
Кто знает как осуществить?

SMAC (2006-02-27 11:20:00) [1]
У меня прописано:

$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl

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

А что касается проекта SimpleDemo.dprиз http://programania.com/aviwriter_2.zip, то всё работает просто отлично!!! Я по ходу разобрался...
Если будет в дальнейшем задавать такие же глупые вопросы как и я, то:
1. Содержимое папок SimpleDemoи Component Filesнужно объединить.
2. Из uses убрать "Variants," как отсутствующий.
3. Зарэмить //ListBox1.DeleteSelected;
4. Перенести AviWriter: TAviWriter_2;из раздела typeв раздел var
5. Добавить в процедуру TMainForm.FormCreate(Sender: TObject); передUpdateCompressorList; строку AviWriter := TAviWriter_2.Create(self);

И всё заработает... Появятся все DCU.

А вот что делать с AviDemo.bpgиз http://programania.com/aviwriter_2.zipпока не понял... Кто подскажет?

Дмитрий Белькевич (2006-02-22 17:38:00) [2]
Дело, конечно, хозяйское, но на будущее рекомендую посмотреть прописаны ли пути к папке delphi6/lib.
Прописывать в environment options - library - library path:

$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\R ave5\Lib;

SMAC (2006-02-22 15:02:00) [3]
ЗЫ

Всех с праздником! С мужским. Да не посчитают модераторы многоуважаемого форума данные поздравления флудом.

SMAC (2006-02-22 11:45:00) [4]
Спасибо, programania! Все работает!!!

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

При компиляции выдается Error на:
{$ALIGN 8}-> заменяю -> {$ALIGN ON}

requires rtl, vcl;

а вот здесь сложнее, поскольку ни rtl.dcu, ни vcl.dcuя в папке с Delphi не нашел. Может быть я сделать что-то не так?

Заранее списибо.

Дмитрий Белькевич (2006-02-22 04:15:00) [5]
>Подскажите новичку: как подключить компоненту http://programania.com/aviwriter_2.zipк моей программе и пользовать?
Никогда не использовал не встроенные средства Delphi...

Немного не это по-моему ему нужно.
Скорее всего, нужно просто установить компоненту:
Запускаешь AviPack.dpk.
Жмёшь 'сompile', 'install', компонента появляется в закладке 'custom'.

programania (2006-02-21 20:04:00) [6]
Добавить в uses aviWriter_2,
обьявить aw: tAviWriter_2;
создать
aw:=tAviWriter_2.create(form1);
aw.PixelFormat := pf24bit;

заполнить список кодеков
aw.Compressorlist(form1.comboBox1.Items);
установить выбранный
with form1.comboBox1 do
aw.SetCompression(copy(Items.Strings[ItemIndex], 1, 4))
и др. свойства:
aw.fileName:='bmp.avi';
aw.width:=480;
aw.height:=360;
aw.WavFileName:='';
aw.OnTheFlyCompression:=true;
aw.Stretch:=false;
aw.frameTime:=40;
aw.InitVideo;

обьявить и создать b: tBitmap;b:=graphics.tBitmap.create; b.pixelformat:=pf24bit;
заполнять его b.loadFromFile('image.bmp');
Добавлять кадры в цикле
aw.AddFrame(b);

закончить
aw.FinalizeVideo;
aw.WriteAvi;

Подробнее прилагаются 2 примера Demo

SMAC (2006-02-21 16:37:00) [7]
Люди добрые!
Подскажите новичку: как подключить компоненту http://programania.com/aviwriter_2.zipк моей программе и пользовать?
Никогда не использовал не встроенные средства Delphi...

Заранее спасибо.

DVM (2006-02-14 10:53:00) [8]

> Дмитрий Белькевич © (13.02.06 21:58) [4]

Опс, проглядел. В принципе я более-менее разобрался, но все равно спасибо всем!

Дмитрий Белькевич (2006-02-13 21:58:00) [9]
Компонент как раз простой очень, и пишет без сжатия, насколько я понял из его исходников.

А это что?

unit AviWriter;

..........

{.............. Задаём параметры компрессии AVI-файла ................}
If fCompression then with MyAVIcompressOptions do begin
fccType := StreamTypeVideo; // DWORD
fccHandler := MyFOURCC('M','S','V','C'); // DWORD

programania (2006-02-13 21:20:00) [10]
Запись из нескольких bitmap в avi:
с кодированием в divX на лету:
http://programania.com/aviwriter_2.zip 60kb

DVM (2006-02-13 11:32:00) [11]

> zinetz_victor (13.02.06 11:17) [1]

> если просто - ищи компонент avi_writer, если сложно

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

> вопрос надо точнее ставить :)

куда уж точнее, кодек уточнить? :)

zinetz_victor (2006-02-13 11:17:00) [12]
> Кто знает как осуществить?
ну я знаю - и что? вопрос надо точнее ставить :)

если просто - ищи компонент avi_writer, если сложно - читай video_for_windows в msdn или читай про directshow

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »