socket error 10053

[DELPHI161]

Всем привет!
Помогите разобраться. Делаю программку для проверки почты.

try
    POP3.Retrieve(i,Msg);
тут всякие операции с письмом

except
on  e: EIdException  do
    WriteLn(myFile, e.message);
on e: Exception do
      WriteLn(myFile,e.message);

end;

Так вот вылетает сообщение "socket error 10053........"
и пока не нажмеш ОК на форме с ошибкой программа висит!
КАК СДЕЛАТЬ ЧТОБЫ ЭТО ОКОШКО НЕ ВЫСКАКИВАЛО????????

[саша40]

Интернет подключи!
И ты забыл:

Application.ProcessMessages;

[Человек_Борща]

Саша40, не поможет это, т.к. нету цикла в котором это можно применить.

и пока не нажмеш ОК на форме с ошибкой программа висит!

Так и должно быть, VCL выпадает из работы т.к. кто-то поленился все в TThread запихать, а просто кинул TidPOP3 на форму, и теперь не знает почему все зависает, когда происходит обмен данными по через компонент.

ТС,
вот вам прямым текстом, что значит ответ 10053:

WSAECONNABORTED - 10053
Software caused connection abort.
An established connection was aborted by the software in your host computer, possibly due to a data transmission time-out or protocol error.

Вы просто что-то делаете не так.

[DELPHI161]

Уважаемый Человек_Борща

Вот упрощенный текст процедуры которая выполняется в таймере с определенным интервалом

try
 POP3 := TidPOP3.Create(nil);
except
 exit;
end;

POP3.Host := Host;
POP3.Username := Username;
POP3.Password := Password;
POP3.Connect; 



try
 C:=POP3.CheckMessages;
 
 while i<>C+1 do 
 begin
  Msg.Clear; 
  POP3.Retrieve(i,Msg);
  Application.ProcessMessages();
  //тут всякие операции с текстом
  inc(i);
except
on e: Exception do
      WriteLn(myFile,e.message);
end;

if POP3.Connected then
  POP3.Disconnect;

if POP3.Socket.Connected then
 POP3.Socket.Close;

POP3.free;

Я предполагаю что если сделать эту процедуру в отдельном потоке то окошко с ошибкой все равно выскочит.

так вот я не пойму почему try except не отлавливает это сообщение ? и как его отловить

[Человек_Борща]

даже если бы и отлавливал то это не изменило бы того факта, что программа не будет работать. Проблема на вашей стороне, вы не правильно что-то где-то делаете.

if POP3.Socket.Connected then
POP3.Socket.Close;

за это сам idPOP3 отвечает вам незачем повторно это делать.