Не могу отловить исключения EIdSocketError

[Stilet]

Я остаюсь при свое мнении - на каждый пост свой эксцепшн.
И вместо EIdSocketError я обычно использую общий Exception. А уже потом по коду ошибки разбираюсь что это.

[eval]

если не ловит

except
on E: EIdSocketError do

то логично предположить что его тут нет, или не логично?

[bakanaev]

Сообщение от eval

если не ловит
то логично предположить что его тут нет, или не логично?

Нелогично, ибо если обвязать эту процедуру еще раз в try except end; ловим вот такое (из лога софта)

ClassName: EIdSocketError, Message:Socket Error # 10054 Connection reset by peer.

[eval]

что значит еще раз? и какого типа исключение тогда ловится?

[bakanaev]

Сообщение от eval

что значит еще раз? и какого типа исключение тогда ловится?

Вот что значит (вызываю процедуру test)

proceure post;
begin
 try
    PauseStop;
    Result := IdHTTP.POST(Url, Data);
    PauseStop;
  except
    on   E: EIdSocketError  do
    begin 
      .....
    end;
  end;
end;

procedure test;
begin
 try
   post;
  except
    on   E: Exception   do
    begin 
      ..... //От сюда лог выше  
    end;
  end;
end;

[Stilet]

если обвязать эту процедуру еще раз в try except end

А зачем еще раз? Чегот я запутался что тут происходит...

//тут уже все срабатывает

Ну а ты точно уверен что именно EIdSocketError ?
Из хелпа:

Exception raised when a socket error occurs while reading or writing using the Internet protocol stack.

Про Connection reset by peer. это исключение не в курсе.

[eval]

//От сюда лог выше

лог не нужен нужен тип пойманого исключения

[bakanaev]

Полный код

function HTTPGet(Url: String): String;
begin
  try
    PauseStop;
    Result := IdHTTP.GET(Url);
    PauseStop;
  except
    on E: Exception do
    begin
      if (E.ClassType = EIdSocketError) 
        or (E.ClassType = EIdNotASocket)
        or (E.ClassType = EIdConnectTimeout)
      then 
      begin
        LogString := ' Запрос ушел';
        Synchronize(Log);
     end;
    end;
  end;
end;

function Regg: TFunctionsResult;
...
begin
try
  Html := HTTPGet('http://site.ru');
except
  on E: Exception do
  begin
    Result := ERROR;
    LogString := ' ClassName: ' + E.ClassName + ', Message: ' + E.Message;
    Synchronize(Log);
  end;
end;
end;

Вот вызываем функцию Regg, в логе получаем

ClassName: EIdSocketError, Message:Socket Error # 10054 Connection reset by peer.