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

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;

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

---

← →
Gonza ©   (2002-07-07 13:57) [5]

> 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;

---

← →
Wizard_Ex ©   (2002-07-07 19:25) [6]

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


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

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

и все пройдет


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

---

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

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



Память: 0.46 MB
Время: 0.015 c