VPF::Подскажите где тут ошибка? - Форум программистов

pomogite

Дата 24.2.2014, 19:30 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

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

Подскажите почему вылетает ошибка EAccessViolation в программе?

Вот код:

Код


procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
    n:word;
    tmp,main,s:string;
    tim:TDate;
begin
tim:=time;
  try
    memo1.Lines.Text:=idhttp1.Get(Edit1.Text) ; sleep(2000);
         for i:=0 to Memo1.Lines.Count -1 do
            begin
            s:=Memo1.Lines[i];
            if pos(Edit3.Text,s)<>0 then
              begin
                 s:=copy(s,pos(Edit3.Text,s)+length(Edit3.Text),
                 length(s)-pos(Edit3.Text,s)-length(Edit3.Text)-length(Edit4.Text)+1);
                 memo2.Lines.Add(s+' '+ TimeToStr(now));
                 Series1.AddXY(tim, strtoint(s));
                 idhttp1.Free;
                 memo1.clear;
                 exit;
              end;
            end;
  except
    memo2.Lines.Add('Site connection error') ;
    memo1.clear;
    idhttp1.Free;
  end;

end;

Ошибка:
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0047B547 in module 'Project1.exe'. Write of address 01CDC000'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Это сообщение отредактировал(а) pomogite - 24.2.2014, 19:37

kami

Дата 24.2.2014, 20:05 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Цитата(pomogite @ 24.2.2014, 19:30

)

idhttp1.Free;

Ошибка здесь. Особенно - если сей компонент лежит на форме.

Добавлено через 8 минут и 8 секунд
1.Обычно исповедуется такой принцип: кто создал, тот и удаляет.
Ваш код создавал idhttp1? Если нет - то почему ваш код удаляет этот компонент?
2. Таймер вызывается многократно, многократно производятся попытки удаления. А кто будет многократно создавать?

Резюмируя - ошибка логики приложения.

pomogite

Дата 24.2.2014, 22:45 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

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

Даже если закомментировать эту строчку, та же ошибка.

kami

Дата 25.2.2014, 10:11 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Цитата(pomogite @ 24.2.2014, 22:45

)

Даже если закомментировать эту строчку,

Закомментировать где?
"этих строчек" в приведенном коде две.

И потом - а что говорит дебаггер? На какой строке вываливается ошибка?

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