Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Socket exception [D6, WinXP]


asphix ©   (2003-04-16 12:19:00) 

Добрый день.

Вот кусок кода, где надо отловить ошибку:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
client1.Open;
client1.Socket.SendText("#");
except
client1.Close;
checkbox1.Checked:=false;
end;
end;


Если на другом конце сервер сдох - то вываливается ошибка 10053. И никак не могу перехватить её :-(

Дайте грамотный совет?


Digitman   (2003-04-16 14:30:00) [1]


> Странно, но почему-то не помогла конструкция типа


для неблок.режима - ничего странного, так и должно быть


savva   (2003-04-16 14:27:00) [2]

если ты про

> try
> client1.Open;
> client1.Socket.SendText("#");
> except
> client1.Close;
> checkbox1.Checked:=false;
>
end;
> end;

то вроде закрытый сокет закрывать не надо..


asphix   (2003-04-16 14:22:00) [3]

Спасибо. Проблема решена.

В обработчике OnErrorделаю
ErrorCode:=0;
//дальше обработчик ошибки...

-----------

Странно, но почему-то не помогла конструкция типа:
try
..
except
..
end;

Ошибка всё равно выдаётся :(


Digitman   (2003-04-16 12:39:00) [4]

читай в хэлпе все касаемое события OnError() - в его обработчике и должна происходить обработка отказов


Наверх

Титульная страница Поиск, карта сайта Написать письмо