Обработка ошибок TClientSocket

← →
Leviathan (2001-10-11 21:58) [0]

Мастера! Как мне сделать, чтобы при отсутствии сервера вылезало не стандартное дельфовое сообщение об ошибке, а мое? Простовал в try-except засунуть ClientSocket.Active := True; Не помогает.

← →
MAXX (2001-10-12 00:02) [1]

Если я тебя правильно понял, то нужно, в событии OnError компонента TClienSocket присвоить переменной ErrorCode ноль (ErrorCode:=0) тогда вообще не будет выводится никакого сообщения об ошибке. А если хочешь выводить своё сообщение то туда же можешь вставить что то типа MessageBox(....) или ShowMessage(...) и т.п. При возникновении ошибки её код передаётся в переменную ErrorCode по этому можно для разных ошибок выводить разные сообщения.

Обработка ошибок TClientSocket Найти похожие ветки