Скачать: CL | DM;

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

← →
Глеб ©   (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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c