Client - Server Socket событие OnError

[One.Love]

Помогите плиз народ, вопрос такой:
Как заглушить вывод ошибки с Client или Server Socket?
Я делаю так в OnError

if (ErrorCode=10061) then
ShowMessage('Компьютер недоступен');

А после моего сообщения вылазиит ошибка Asynchrone Socket ну чета наподобие!

Помогите плиз

[LeoN]

И почему вылазит эта ошибка? У меня соеденяется с 127.0.0.1 через одинаковый порт с сервером - все равно лажа.

[Квэнди]

Код показывайте, что флудить-то понапрасну.

[One.Love]

короче при соединении с другим компом если клиент выключен то вылазиит ошибка 10061, а если есть соединение то все нормально мне надо только заглушить данный еррор и всё как это сделать?

Сам с собой соединяться мне нету смысла

[Квэнди]

Код показывайте, что флудить-то понапрасну.

Пока оного не будет, буду остальное считать флудом.

[One.Love]

Квэнди:Смотрите пост выше. Это не ресурс медиумов. Показывайте код, в котором возбуждается исключение.

[LeoN]

Это не ответ, но это код:

procedure TMForm.CSConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 Chat.Lines.Add(TimeToStr(now)+':Соединение');
 CS.Socket.SendText('/co'+Nic+'|'+Al);
 Sleep(1000);
 CS.Socket.SendText('/re');
 N3.Enabled:=False;
 N4.Enabled:=True;
end;

procedure TMForm.CSConnecting(Sender: TObject; Socket: TCustomWinSocket);
begin Chat.Lines.Add(TimeToStr(now)+':Соединенно') end;

procedure TMForm.CSDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 Chat.Lines.Add(TimeToStr(now)+':Отключенно');
 CS.Socket.SendText('/di'+Nic+Al);
 OnLine.Clear;
 N3.Enabled:=True;
 N4.Enabled:=False;
 Cs.Active:=False;
end;

[alexBlack]

Чтобы "заглушить" ошибку нужно обработать OnError. Если ErrorCode установить в 0, исключения не будет возникать.

procedure CSOnError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);

И почему вылазит эта ошибка?

По приведенному куску кода трудно понять. Но если и клиент и сервер на одной форме, может из-за момента когда делается Active := true.
Попробуйте сделать две кнопки. При нажатии первой установите Active := true для сервера, на второй для клиента и запускайте вручную.

[LeoN]

Клиент и сервак - две разные программы.

[Terran]

Используй такой способ, он прост и надёжен!

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode:=0;
end;

И никаких ошибок вылазить не будет, есле даже нет соединения, этот код можешь использовать как и в ClientSocket, так и в ServerSocket.