[zibert]

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

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

Так самое интересное, что через F7 ошибка вылетает после end (в конце функции)....

[angvelem]

Чтобы не вылетало измени

Код:

1 2 3 4 5

TmpBmp.Handle := hBmp; //    AVIStreamGetFrameClose(gapgf);     AVIStreamRelease(AVIStream); //    AVIFileRelease(pfile);     AVIFileExit;

[zibert]

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

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

Решил проблему заменой VFW.pas.
Все нормально, но на windows 7.. а вот на XP Стопориться на вот таком моменте:

Код:

1 2 3 4 5 6 7

gapgf := AVIStreamGetFrameOpen(AVIStream, nil); if gapgf = nil then begin   AVIFileRelease(pFile);   AVIFileExit;   Exit; end;

То есть после выполнения ф-ии gapgf = nil.
У меня есть предположение, что но ХР не установленно кодеков нужних для распаковки.. А также, раз уж я начал про кодеки, хотелось спросить можно ли как, то использовать кодеки в проекте для получения фреймов из видео, которое закодировано каким то особенным кодеком.

PS
Еще не большей вопрос, а вот при получении и сохранении Видео потока таким способом

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure DevideAVIIntoVidioAndAudio(FileName, AVIName, WAVName: string; var VidioIn, AudioIn: boolean); var   AVIFile: PAVIFile;   AudioStream: PAVIStream;   VideoStream: PAVIStream;   z: pAVICOMPRESSOPTIONS; begin   z := nil;   AVIFileOpen(AVIFile, PChar(FileName), 0, nil);     try     VidioIn := True;     AVIFileGetStream(AVIFile, VideoStream, streamtypeVIDEO, 0);     AVISaveV(PChar(AVIName), nil, nil, 1, VideoStream, z);   except     VidioIn := False;   end;     try     AudioIn := True;     AVIFileGetStream(AVIFile, AudioStream, streamtypeAUDIO, 0);     AVISaveV(PChar(WAVName), nil, nil, 1, AudioStream, z);   except     AudioIn := False;   end; end;

Видео каким кодеком "компресируется"?

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

Авишка без кодеков воспроизводится. Это базовый формат, такой же как и wav.

В основном большинство кодеков (пользовался только аудио-кодеками, на счет видео не уверен на 100%) декодируют в ави, так что конечно можно дергать нужные фреймы.

[zibert]

Всем спасибо. Разобрался. Можно закрывать.