Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

Генерация AVI-файла в процессе работы Delphi-приложения   Найти похожие ветки 

 
Vladimir Prokofiev   (2002-06-11 11:34) [0]

Вопрос в следующем. Я работаю с научными приложениями. До сих пор выводил графические изображения на TCanvas (принтера, экрана, или скидывал в Clipboard и в файлы JPEG, BMP). Но это статические картинки. Сейчас есть потребность показать набор картинок (они накапливаются у меня, скажем, в виде набора BMP-файлов в какой-нибудь папке в процессе расчёта) как анимацию (мультик). Причём хотелось бы прямо из Delphi именно преобразовать этот набор файлов в один компактный *.AVI файл, который дальше легко хранить и показывать.
Внутри хелпа "Win32 Programmer"s Reference" есть большое кол-во функций для создания (а не только показа) *.AVI файлов, AVIStreamWrite, CreateEditableStream, AVISave и т.д. Но как подключить к Delphi-приложению эти функции (например, какую библиотеку надо добавить к USES?). Или они вообще недоступны.
Нет ли простенького примера с созданием AVI-файла из Delphi?
Эти функции относятся к WinAPI, Win SDK?
Владимир.


 
Vlad___   (2002-06-12 14:16) [1]

Я как-то писал подобное но для делфей библиотек не нашел. Пришлось писать на C++ Builder. Там был "vfw.h" ( video for windows, он-же есть в MSVC ), в этом хеадере обьявлены структуры и функции для работы с avi файлами. Возможно можно переписать этот хеадер для делфей а может быть проще написать длл на билдере или MSVC и использовать ее из делфей. А под MSVC есть пример работы с этим API - aviedit.


 
shrek2002   (2002-06-13 01:05) [2]

Скачай отсюда или с www.torry.net библиотеку GLScenes 0.82 - там есть файл vfw.pas и пример работы с ним


 
Diamond Cat ©   (2002-06-13 01:12) [3]

функцию AVIStreamWrite можно экспортировать из Avifile.dll или Avifil32.dll, устанавливаются с виндами



Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-60570
alexsandri
2002-08-07 18:18
2002.08.19
как програмно


1-60614
Markvolsh
2002-08-07 18:39
2002.08.19
checkboxes and labels


14-60849
OlegatoR
2002-07-25 10:11
2002.08.19
На наш астероид летит 6500 километровая планета


14-60817
OlegatoR
2002-07-24 10:02
2002.08.19
Как я купил диск с Delphi


3-60489
BAY
2002-07-27 23:00
2002.08.19
Сигнал при добавлении