ESocketError

← →
Yermek (2004-03-23 22:39) [0]

Процедура проверяет, при нажатии на кнопку, по IP и Port"у запущен ли сервер на удаленном компе или нет.
Проблема вот в чем, как отловить эту чертову ошибку при написании кода
try ClientSocket1.Address:=IP.Text; ClientSocket1.Port:=Port.Text; ClientSocket1.Open; except on ESocketError do MessageDlg("Проверка закончилась неудачей",mtError,[mbOK],0); end;
Delphi его прогоняет, но при выходе из процедуры говорит - неудача "Асинхронная ошибка ... 10061", а у меня просто сервер не запущен.
Вопрос как программно обработать эту ошибку.

← →
Yermek (2004-03-23 22:50) [1]

Извеняюсь не по адресу, запарился :)

При не блокирующем виде сокета перехватить это исключение на уровне Application обработав OnException или кинуть на форму TApplicationEvents и у него прописать обработчик OnException

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