| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Написал скачивалку страниц. Но при ошибке 404 - смерть [D6, WinXP]

Nox321 ©   (2006-03-08 11:07:00) 

Написал скачивалку страниц. Но при ошибке 404, на одной из страниц, все слетает с катушек. Многопоточность в ней сама осуществляется(я примерно понял почему, но это даже не предпологалось).
Теперь встал другой вопрос, как обработать исключительную ситуацию - 404 ошибка.
Если try ... except то как описать ошибку? on failur do ? или?

код проги:

var
 Form1: TForm1;
 input,output:text;
 s:string;
 i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
       AssignFile(input, edit1.Text);
       reset(input);
       i:=0;

       repeat
               readln(input,s);
               i:=i+1;
               NMHTTP1.Body:= Form1.Edit2.Text+'\body'+IntToStr(i)+'.html';
              // NMHTTP1.Header:= Form1.Edit2.Text+'\Header'+IntToStr(i)+'.html';
               NMHTTP1.Get(s);
               label5.Caption:=inttostr(i);
                AssignFile(output,Form1.Edit2.Text+'\body'+IntToStr(i)+'.txt');
                rewrite(output);
                writeln(output,NMHTTP1.body);
                CloseFile(output);

       until (eof(input)) or (i=strtoint(edit3.Text));
       CloseFile(input);
       ShowMessage('Successful!');
end;

end.


---

Marser   (2006-03-09 01:39:00) [1]

> on failur do

Нет такого класса исключений. Смотрите в хелпе.

---

Джо   (2006-03-09 01:30:00) [2]

Если известен конкретный класс исключения то:

...
try
 ...
except
 on E: MyExceptionClass do ...
end;

---

Наверх