Обработка ошибки при передаче данных с помощью сокетов
Глеб © (2004-06-29 10:13:00)
Я обрабатываю сообщение:
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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
