VPF::Библиотека для работы с Avi файлами vfw

Ak47black

Дата 12.1.2007, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Надеюсь ктонибудь работал с vfw библиотекой.
Вообшем у меня следушая проблемма вот рабочий код

Код


function SaveCallback(nPercent: Int): Bool; pascal;
var
  abort: Boolean;
begin
  Application.ProcessMessages;
  Form1.Progressbar1.Position := nPercent;
  if abort = True then
    Result := True
  else
    Result := False;
end;

procedure TForm1.GetAviInfo(Path: String; SaveTo: String);
procedure CorruptedVideoFile;
begin
  ShowMessage('FileCorrupted');
end;
var
  AviFile: IAVIFile;
  AviInfo: TAVIFileInfo;
  Steams: array [0..1] of IAVIStream;
  i: Integer;
  AviCopressOptions: PAVICOMPRESSOPTIONS;
begin
  if not FileExists(Path) then Exit;
  AVIFileInit;
  AVIFileOpen(AviFile,PChar(path),0,nil);
  AVIFileInfo(AviFile,AviInfo,sizeof(AviInfo));
  with AviInfo, InfoList.Lines do
  begin
    Add('MaxBytesPerSec = '+#9+#9+#9+IntToStr(dwMaxBytesPerSec));
    Add('Flags = '+#9+#9+#9+#9+IntToStr(dwFlags));
    Add('Caps = '+#9+#9+#9+#9+IntToStr(dwCaps));
    Add('Streams = '+#9+#9+#9+IntToStr(dwStreams));
    Add('SuggestedBufferSize = '+#9+#9+IntToStr(dwSuggestedBufferSize));
    Add('Width = '+#9+#9+#9+#9+IntToStr(dwWidth));
    Add('Height = '+#9+#9+#9+#9+IntToStr(dwHeight));
    Add('Scale = '+#9+#9+#9+#9+IntToStr(dwScale));
    Add('Rate = '+#9+#9+#9+#9+IntToStr(dwRate));
    Add('Length = '+#9+#9+#9+#9+IntToStr(dwLength));
    Add('EditCount = '+#9+#9+#9+IntToStr(dwEditCount));
    Add('MaxBytesPerSec = '+#9+#9+#9+IntToStr(dwMaxBytesPerSec));
  end;
  if AVIFileGetStream(AviFile,Steams[0],streamtypeVIDEO,0)<>0 then
  begin
    CorruptedVideoFile;
    exit;
  end;
  if AVIFileGetStream(AviFile,Steams[1],streamtypeAUDIO,0)<>0 then
  begin
    CorruptedVideoFile;
    exit;
  end;
  AVISaveV(PChar(SaveTo),nil,@SaveCallback,2,Steams[0],AviCopressOptions);

  AviFileExit;
end;

Когда сохраняю один поток с видео то все окей, но если сохраняю только аудио поток или два (видео с аудио) потоком то на этом месте

Код


  AVISaveV(PChar(SaveTo),nil,@SaveCallback,2,Steams[0],AviCopressOptions);

Ошибка.
Что в моем коде неправильного ?
И как вообше vfw надежная библетека в использовании?

Ak47black

Дата 13.1.2007, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Изменил

Код


AVISaveV(PChar(SaveTo),nil,@SaveCallback,2,Steams[0],AviCopressOptions);

на

Код


AVISaveV(PChar(SaveTo),nil,@SaveCallback,2,Steams[0],PAVICOMPRESSOPTIONS(nil^))

И получаеться теперь нормально обратно сохранить только Avi файлы с малыми размерами, а большие по 700mb файлы сохраняються без аудио дорожки и получаеться ошибка.
Может ктото знает в чем ошибка ?

Ak47black

Дата 13.1.2007, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Ошибка AVIERR_FILEREAD

Ak47black

Дата 13.1.2007, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Мне получаеться нормально работать только с теми файлами которые имеют 0 вхождений.
Может это влияет? Вообше что такое вхождение(fragment)? И где оно зраниться в Avi файле?

Это сообщение отредактировал(а) Ak47black - 13.1.2007, 14:51

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »