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

Вниз

Video for Windows   Найти похожие ветки 

 
Ozone ©   (2004-10-05 06:48) [0]

Пытаюсь разбить AVI"шку на кадры. Делаю так:


uses vfw;

{...}

var
  Error: integer;
  pFile: IAVIFile;
  AVIFInfo: TAVIFILEINFO;
  AVIStream: IAVIStream;
  GFrame: IGetFrame;
begin

AVIFileInit;

Error := AVIFileOpen(pFile, PChar(FName), 0, nil);
if Error <> 0 then begin
 AVIFileExit;
 ShowMessage("< ERROR_OPEN >");
 exit;
end;

if AVIFileInfo(pFile, AVIFInfo, SizeOf(AVIFInfo)) <> AVIERR_OK then begin
 AVIFileRelease(pFile);
 AVIFileExit;
 ShowMessage("< ERROR_INFO >");
 exit;
end;

Error := AVIFileGetStream(pFile, AVIStream, streamtypeVIDEO, 0);
if Error <> AVIERR_OK then begin
  AVIFileRelease(pFile);
  AVIFileExit;
  ShowMessage("< ERROR_STREAM >");
  exit;
end;

GFrame := AVIStreamGetFrameOpen(AVIStream, nil);
if GFrame = nil then begin
  AVIStreamRelease(AVIStream);
  AVIFileRelease(pFile);
  AVIFileExit;
  exit;
end;

{ здесь будет покадровое считывание и сохранение - его еще нет!}

AVIStreamGetFrameClose(GFrame);
AVIStreamRelease(AVIStream);
AVIFileRelease(pFile);
AVIFileExit;

end.


Т.е. казалось бы я еще ичего такого не сделал, но при таком коде вылетает "AV at address 00404E78. Read address FEEEFEF6".

В каком месте я напортачил?


 
PGM_X   (2004-10-05 10:29) [1]

Может тут не лады "pFile: IAVIFile <> PAVIFILE". Насколько я помню (давно это было :-)) у меня в VFW про COM объекты вообще не было.



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

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

Наверх




Память: 0.46 MB
Время: 0.033 c
14-1103525707
syte_ser78
2004-12-20 09:55
2005.01.09
завершение работы приложения


11-1084877331
mdw
2004-05-18 14:48
2005.01.09
Обновились компоненты mdvXXX


3-1102327062
yuray
2004-12-06 12:57
2005.01.09
Создание процедуры программно


1-1103564105
Roo
2004-12-20 20:35
2005.01.09
Косяк с высотой Edit-ов


1-1103727679
cfytr
2004-12-22 18:01
2005.01.09
Вставка в RichEdit или ее перехват