[zibert]

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

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

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

Код:

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

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

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

Код:

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;

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