VPF::Создание Video - Форум программистов

<Spawn>

Дата 29.7.2003, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Кто нить знает как можно реализовать запись. Например, если я делаю какие нить манипуляции в Винде, то все ето сохранять в avi-файле. То есть так как это, например, реализованно в Quake. Может для этого существуют какие-нибудь API функции? Заранее спасибо.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

p0s0l

Дата 29.7.2003, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Снимки можно делать так:

Код

procedure TForm1.Timer1Timer(Sender: TObject);
var
  dc : hdc;
begin
  dc := GetDC(0);
  BitBlt(Canvas.Handle, 0, 0, width, height, dc, Mouse.CursorPos.x, Mouse.CursorPos.y, SRCCOPY);
  ReleaseDC(0, DC);
end;

(в примере рисуется на форму, а ты делай чо хошь)

а сжимать в avi - надо юзать avifil32.dll
в Delphi почему-то не прописаны многие стандартные API-шные библиотеки, эта, к сожалению, одна из них.
поэтому переходи на C... Шутка. ищи в инете, может какой-нибудь добрый человек сделал
модуль avifil32.pas? и смотри хелп по этим функциям (например, AVIFileInit).
Сжимать надо спомощью IC... (например, ICCompress)
Сам я не знаю как ими пользоваться.

Это сообщение отредактировал(а) p0s0l - 29.7.2003, 18:17

--------------------

С уважением, г-н Посол.

p0s0l

Дата 29.7.2003, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Кстати, в си это vfw32.h - Video For Windows, скорее всего надо искать vfw32.pas

--------------------

С уважением, г-н Посол.

Mikel

Дата 30.7.2003, 11:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2

Могу кинуть делфийский модуль юзающий эту библиотеку(из Красновского DirectX'a)

--------------------

...so remember, it's better to burn out than to fade away

<Spawn>

Дата 30.7.2003, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Буду очень благодарен. [email protected]

Это сообщение отредактировал(а) <Spawn> - 30.7.2003, 13:08

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »