Скачать: CL | DM;

Ошибки... мучают. ServerSocket.   Найти похожие ветки 

← →
s002156Shurik ©   (2002-11-14 01:30) [0]

При разрыве связи с клиентом сокет выкидывает Asinchronus socket error! как сделать чтобы даже при наличии такого или другого какогонить исключения сообщения о них невыводились. Илиже как мне их обрабатывать?

---

← →
savva ©   (2002-11-14 09:25) [1]

у сокетов есть обработчик события OnError у TClientSocket и OnClientError у TServerSoclketю Их обработчики соответственно выглядят:

procedure TForm2.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin

end;

procedure TForm2.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin

end;

и если в них сделать ErrorCode=0; , то все должно быть так как тебе хочется. Кстати, в этих же обработчиках можно написать свою реакцию на ошибки..

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c