[zibert]

Есть проблема с экстрагирование avi фрейма: Суть проблемы заключается в следующем:
Экстрагировать фрейм из AVI с помощью функции взятой отсюда.. Но проблема в том, что эта функция не работает на Windows Xp, а на Win7 все норм. Может кто-то что-то знает по этому поводу?

[zibert]

Может кто-то знает другой способ достать фреймы?

[M.A.D.M.A.N.]

http://www.delphisources.ru/pages/so...vi_loader.html

[zibert]

Сообщение от M.A.D.M.A.N.

http://www.delphisources.ru/pages/so...vi_loader.html

Это конечно хороший способ. Но не доверяю я Canvas'у. Хотелось бы процедуру которая напрямую это все делает (Без медиа плеера и канваса)

Вот нашел функцию, но не могу понять, что нужно указывать в параметре dc: HDC.
Остальные параметры более понятны.
avifn - путь к ави файлу.
TmpBmp - сам фрейм, который получаем на выходе.
lPos - номер фрейма, который нужно достать.

Если что - то не так, то поправьте.

[angvelem]

Сообщение от zibert

... что эта функция не работает на Windows Xp, а на Win7 все норм...

На XP работает, проверено.

DC нужно получить

Код:

SysDC := GetDC(0);
DC := CreateCompatibleDC(SysDC);
// Здесь вызов
DeleteDC(DC);
ReleaseDC(0, SysDC);

[zibert]

Сообщение от angvelem

На XP работает, проверено.

Ну, не знаю тогда((
Может я использую не такой vfw.pas. Они ведь разные бывают..

[angvelem]

Я нашёл древний, из поставки GLScene за 2001 год и немного подправил с учётом требований Дельфи 7.

[zibert]

Сообщение от angvelem

Я нашёл древний, из поставки GLScene за 2001 год и немного подправил с учётом требований Дельфи 7.

А вы бы не могли его скинуть? Взглянуть..

[angvelem]

Сейчас проверю работу 2-ой функции. Код vfw приложен.

[zibert]

Сообщение от angvelem

DC нужно получить

Код:

SysDC := GetDC(0);
DC := CreateCompatibleDC(SysDC);
// Здесь вызов
DeleteDC(DC);
ReleaseDC(0, SysDC);

я вызываю так:

Код:

var SysDC,DC:HDC;
......................
SysDC := GetDC(0);
DC := CreateCompatibleDC(SysDC);
GetAVIFrame('типа путь к ави', DC , image1.Picture.Bitmap, 1);
DeleteDC(DC);
ReleaseDC(0, SysDC);

И на выходе получаю "Черный квадрат" в image1.
А вот когда я делаю так:

Код:

GetAVIFrame('типа путь к ави', form1.Canvas.Handle , image1.Picture.Bitmap, 1);

я получаю в image1 фрейм, но какой Первый (число 1, которое я посылаю в параметре lPos) или какой - то другой?