Скачать: CL | DM;

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c