Socket exception

← →
asphix (2003-04-16 12:19) [0]

Добрый день.

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

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 12:39) [1]

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

← →
asphix (2003-04-16 14:22) [2]

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

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

-----------

Странно, но почему-то не помогла конструкция типа:
try
..
except
..
end;
Ошибка всё равно выдаётся :(

← →
savva (2003-04-16 14:27) [3]

если ты про

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

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

← →
Digitman (2003-04-16 14:30) [4]

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

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

Socket exception Найти похожие ветки