Avi Info, AVI Info Опции

[Артемий]

Помогите разобраться!!!!!!Пожалуйста!

Вот проект который должен читать информацию об AVI файле!Но он этого не делает!Помогите разобраться в чем ошибка!!

Сообщение отредактировано: Артемий2 - 5.08.2006 14:36

[volvo]

Помогите разобраться в чем ошибка!!

В неправильной работе со строками (function ReadAviInfo):

...
 if not FileExists(FileName) then
 begin
  ErrCode := 1;
  exit;
 end;
 iFileHandle := FileOpen(FileName, fmOpenRead);
 FileSeek(iFileHandle, 7, 0);

 setlength(TempFExt, 5); { <--- Этого у тебя вообще не было }

 FileRead(iFileHandle, TempFExt[1], 5); { Обрати внимание на индекс ... }
 if copy(TempFExt, 2, 4) <> 'AVI ' then { <--- ... и на то, ОТКУДА начинаем копирование }
 begin
  ErrCode := 2;
  exit;
 end;

{ Дальше - без изменений... }

И еще одно:

procedure TForm1.Button1Click(Sender: TObject);
...
if ErrCode = 0 then { <--- Исправь на это }

Информация должна отображаться, если НЕТ ошибки, а у тебя что было? Если ЕСТЬ ошибка - то показать информацию?


P.S. В следующий раз удаляй EXE файл из проекта перед присоединением, зачем качать лишние 400К?

[Артемий]

Спасибо но я ещё вчера сам нашел ошибку.Я именно эти строки просто задиклорировал!Все равно СПАСИБО!