[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

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) или какой - то другой?

[zibert]

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

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

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

[angvelem]

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

[angvelem]

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

Код:

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

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

Код:

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;

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

[angvelem]

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

[zibert]

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

Код:

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

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

Код:

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.