Обработка ошибок при сохренение веб страниц через idhttp

@_peccator_ · Регистрация: 08.04.2012

Author24 — интернет-сервис помощи студентам

Есть код, который сохраняет веб страниц через idhttp. Но если на момент попытки сохранения страница недоступна, то возникает ошибка что-то типа Socket Error. Как сделать, чтоб прога при неудачной попытке сохранении не выдавала окно с ошибкой, а делала попытки сохранения до удачного результата?

Добавлено через 30 минут
Собственно код

Delphi

var
  ms: TmemoryStream;
begin
  form2.label1.Caption:='идет сохранение...';
  form2.show;
  ms := TmemoryStream.create;
  idhtp1.Get(adres, ms);
  ms.SaveToFile(fname);
  form2.label1.Caption:='сохранено';
  form2.Timer1.Enabled:=true;
end;

@Antoxachelsea · 12.07.2012, 02:09

попробуй занести эту всю лабуду в Try except end;.
После except делай переход к метке goto , которую ты расположишь пред своей лабудой =)

Вроде так. Должно работать...

@_peccator_ · 12.07.2012, 09:07 **[ТС]**

Я заключил в Try except end;. Ошибку не выдает. Результат работы выводится на другую форму (она вместо showmessage), где отображается количество попыток. Так вот когда нет доступа до страницы, прога тупо виснет.

@flatgad · 12.07.2012, 15:27

Программа не зависает а уходит в бесконечный цикл. Попробуй в коде после объявления лабела для goto вставить

Delphi

1	Application.ProcessMessages;

оно разморозит твою программу. Я бы посоветовал сделать счетчик если к примеру 5-ть раз не удалось подключится к страничке выдавать сообщение типа повторить попытку соединения. Иначе будет лажа. Если интернет пропадет

@_peccator_ · 13.07.2012, 01:40 **[ТС]**

Всем спасибо.

Delphi

1	Application.ProcessMessages;

Не помогло.
поставил счётчик с в котором на форме задаю интервал подключения к сайту. всё менее-более работает.

@flatgad · 13.07.2012, 11:37

Сообщение от _peccator_

Всем спасибо.

Delphi

1	Application.ProcessMessages;

Не помогло.
поставил счётчик с в котором на форме задаю интервал подключения к сайту. всё менее-более работает.

покажи код где ты вставлял

Delphi

1	Application.ProcessMessages;

. Не может быть что бы оно не помогло.

@_peccator_ · 21.07.2012, 08:09 **[ТС]**

Delphi

form1.temp:='';
while form1.temp='' do
  begin
    try
      form1.temp:=h.get(form1.adres);
    except end;
   Application.ProcessMessages;
    if form1.temp<>'' then form2.Label1.Caption:='Cохранено';
  end

@Alex_pac · 21.07.2012, 10:03

Delphi

try
form1.temp:=h.get(form1.adres);
form2.Label1.Caption:='Сохранено';
except
form2.Label1.Caption:='Ошибка';
end;

@Antoxachelsea 0 / 0 / 0 Регистрация: 11.07.2012 Сообщений: 4
	12.07.2012, 02:09	2
	попробуй занести эту всю лабуду в Try except end;. После except делай переход к метке goto , которую ты расположишь пред своей лабудой =) Вроде так. Должно работать... 0

@_peccator_ 0 / 0 / 1 Регистрация: 08.04.2012 Сообщений: 18
	12.07.2012, 09:07 [ТС]	3
	Я заключил в Try except end;. Ошибку не выдает. Результат работы выводится на другую форму (она вместо showmessage), где отображается количество попыток. Так вот когда нет доступа до страницы, прога тупо виснет. 0

	21.07.2012, 10:03