VPF::Реконект при ошибке 10054 - Форум программистов

Anakin

Дата 17.8.2012, 03:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет

Добрый вечер.
Есть процедура которая парсит сайт.
Но гдето через 5-10 минут выходит ошибка в программе Socket Error #10054 Connection reset by peer
Так вот я пытаюсь сделать так что бы при выходе такой ошибки происходило автоматическое пере подключение и программа продолжала работать.
Но что не получается, по любому выходит ошибка а пере подключение не происходит.
Вот код моей функции, подскажите что не так с ней.

Код


Trying:=0;
  Repeat
    GoodCon:=False;
    try
        Data := TStringList.Create;
        frmMain.idHttp.Request.Host:='sait.ru';
        frmMain.idHttp.Request.UserAgent:='Mozilla/5.0 (Windows NT 5.2; WOW64; rv:7.0.1) Gecko/20100101 Firefox/7.0.1';
        frmMain.idHttp.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
        frmMain.idHttp.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
        frmMain.idHttp.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
        frmMain.idHttp.Request.Referer:='http://sait.ru/';
        frmMain.idHttp.Request.Connection:='keep-alive';
        frmMain.idHTTP.Response.KeepAlive:=True;
        Data.Add('username=' + edt_login.Text);
        Data.Add('password=' + edt_pwd.Text);
        StrPage := frmMain.idHttp.Post('http://www.sait.ru/takelogin.php', Data);
        GoodCon:=True;
     Except
          On E:EIdSocketError Do
          Begin
            Inc(Trying);
            if E.LastError = 10054 then
             Begin
              StrPage := frmMain.idHttp.Post('http://www.sait.ru/takelogin.php', Data);
             End;
          End;
          End;
  Until (Trying > 4) Or GoodCon;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »