Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Вниз
Написал скачивалку страниц. Но при ошибке 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;
← →
Marser © (2006-03-09 01:39) [2]> on failur do
Нет такого класса исключений. Смотрите в хелпе.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c
