Форум: "Сети";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Вниз

Ошибки... мучают. 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 вся ветка

Форум: "Сети";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c