IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Avi Info, AVI Info
сообщение
Сообщение #1


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


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

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

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


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата(Артемий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К?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


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


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 21.11.2017 16:52
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"