Перехват Asynchronous Socket Error

[_-Re@l-_]

Вот как его перехватить? Вот так

try
    ClientSocket1.Active:=True;
except
    ShowMessage('False!');
end;

Не идёт.

[veniside]

на то он и асинхронный сокет, чтобы ошибки лезли не тогда, когда их ждёшь.

В OnError() присваивай ErrorCode := 0, тогда исключений вроде как не будет.

[Shouldercannon]

Перехват ошибок сокета. Напишем собственную процедуру:

procedure TForm1.ClException(Sender: TObject; Error: Exception);
begin
  if (Error.ClassName = 'ESocketError') then
  begin
    // Что-то
  end
  else Application.ShowException(Error); // Ошибки не сокета пусть показывает
end;

Добавим в FormCreate связку с процедурой обработки ошибок:

// Пусть обработка ошибок идет через специальную процедуру
Application.OnException := ClException;

[_-Re@l-_]

veniside, как-то так получилось, что ... я через 2 минуты после создания темы обнаружил это же
Shouldercannon, интересно, я должен был до этого догадаться... Но ладно, спасибо.