Написал скачивалку страниц. Но при ошибке 404

← →
Nox321 (2006-03-08 11:07) [0]

Написал скачивалку страниц. Но при ошибке 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.

← →
Джо © (2006-03-09 01:30) [1]

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

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

> on failur do

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

Написал скачивалку страниц. Но при ошибке 404 - смерть Найти похожие ветки