Обработка ошибки при передаче данных с помощью сокетов

← →
Глеб © (2004-06-29 10:13) [0]

Я обрабатываю сообщение:

procedure TForm5.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin Status.Caption := "Status: Connection error!"; end;

Но даже при обработке сообщения появляется MessageBox, где написано: Asynchronous socket error.
Я пробовал try...except. Ничего не помогает. Всё равно это сообщение появляется. Как мне сделать, чтобы оно не появлялось?

← →
Digitman © (2004-06-29 11:12) [1]

> Ничего не помогает

помогает привычка чтения справки, в которой написано :

The ErrorCode parameter is the error code returned by the Windows socket API call. Changing this to 0 within an error handler prevents an exception from being raised.

кр.того, если ErrorCode указывает на ошибку при установлении соединения, в обработчик события следует добавить строчку

Socket.Close;

Обработка ошибки при передаче данных с помощью сокетов Найти похожие ветки