Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.052 c
3-1138914373
fedor
2006-02-03 00:06
2006.03.26
IB и FIB по разному реагируют на SQL-запрос?


1-1140640342
Grief
2006-02-22 23:32
2006.03.26
Список библиотек процесса


2-1142136727
setis
2006-03-12 07:12
2006.03.26
Погогите сделать SELECT


1-1140428731
Ega23
2006-02-20 12:45
2006.03.26
Активизация/Деактивизация Frame


3-1138797778
Громозека
2006-02-01 15:42
2006.03.26
Компоненты ZEOS для доступа к MySQL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский