Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Avi Info

Автор: Артемий2 4.08.2006 20:41

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

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

Автор: volvo 4.08.2006 21:16

Цитата(Артемий2 @ 4.08.2006 16:41)
Помогите разобраться в чем ошибка!!

В неправильной работе со строками (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 { <--- Исправь на это }


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


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

Автор: Артемий2 5.08.2006 14:44

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