[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 нужно получить

Код:

1 2 3 4 5

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

[zibert]

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

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

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

[angvelem]

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

[zibert]

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

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

Код:

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

Код:

1 2 3 4 5 6 7

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

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

Код:

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

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

[zibert]

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

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

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

[angvelem]

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

[angvelem]

Обе функции работают одинаково, у них и код практически один в один. Фреймы в обоих случаях выдаются те, что запрошены. Во-втором случае вызывал так:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Button22Click(Sender: TObject); var   DC : HDC; begin   DC := CreateDC('Display', nil, nil, nil);   GetAVIFrame('earth.avi', DC, image1.Picture.Bitmap, 3);   DeleteDC(DC); end;

[zibert]

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

Обе функции работают одинаково, у них и код практически один в один. Фреймы в обоих случаях выдаются те, что запрошены. Во-втором случае вызывал так:

Код:

То-есть во втором случае вы получали 3 фрейм?
А качество картинки меняется?
У меня получается картинка немного темнее, чем на видео..

[angvelem]

1. Да 3-ий фрейм.
2. На вид вроде одинаково.

[zibert]

Все хорошо, да не очень((
Вставил функцию GrabAVIFrame и воспользовался вот этим vfw.pas.
В итоге выдает access violation, хотя картинку сохраняет.
Использую так:

Код:

1 2 3 4 5

for i := 0 to NumberOfFrames - 1 do  begin    Str := 'Frames\' + inttostr(i) + '.bmp';    GrabAVIFrame(AVIFilePath, i, TempPath + Str);  end;

Немного процедуру подредактировал:
изменил некоторые типы(потому что не принимал пасник)

Код:

1 2 3 4 5 6 7 8 9 10 11

var   Error: Integer;   pFile: iAVIFile; {PAVIFile}   AVIStream: iAVIStream; {PAVIStream}   gapgf: iGETFRAME;{PGETFRAME}   lpbi: PBITMAPINFOHEADER;   bits: PChar;   hBmp: HBITMAP;   AviInfo: TAVIFILEINFO;{TAVIFILEINFOW}   TmpBmp: TBitmap;   DC_Handle: HDC;

Может что - то посоветуете?

[angvelem]

Чем не устроил высланный файл?
Поглядел ваш файл, он "заточен" под юникод, хотя по-умолчанию отключён. Если используете Дельфи7, то нужно часть вызываемых функций в GrabAVIFrame изменить. К примеру, AVIFileInfo менем на AVIFileInfoA.