ClientSocketError

← →
Shrek © (2002-07-07 12:25) [0]

Привет Народ! Помогите пожалуйста! Я пишу клиента для сервера. Проблема вот в чем, если сервер не запущен то приложение выдает ошибку я конечно обрабатываю его, но потом приложение выдаёт стандартное сообщение "Asynchronous socket error 10061."
Как быть?.. Помогите!

Это не работает... После моего сообщения выдаёт стандартное сообщение.

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin if ErrorCode = 10061 then MessageDlg("Server is not found...", mtInformation, [mbOK], 0); end;

← →
Shrek © (2002-07-07 12:45) [1]

Люди сжальтись надо мною помогите пажалуйста.

← →
Wizard_Ex © (2002-07-07 13:01) [2]

Кинь на форму ApplicationEvents

и на событие onExeption
напиши чего-нибудь

и все пройдет

← →
Polevi © (2002-07-07 13:40) [3]

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

← →
wk © (2002-07-07 13:51) [4]

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
if ErrorCode = 10061 then
begin
ErrorCode = 0; MessageDlg("Server is not found...", mtInformation, [mbOK], 0);
end;
end;

Работает безотказно!

> procedure TForm1.ClientSocket1Error(Sender: TObject;
> Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
> var ErrorCode: Integer);
> begin
> if ErrorCode = 10061 then
> MessageDlg("Server is not found...", mtInformation,
> [mbOK], 0);
ErrorCode:=0;// Вот и все что надо
> end;

Повторяю еще раз

Кинь на форму ApplicationEvents

и на событие onExeption
напиши чего-нибудь

и все пройдет

Все остальное редкий наверно случай, но бывает и не у всех

ClientSocketError Найти похожие ветки