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

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

← →
GeLLeR ©   (2007-03-23 09:36) [0]

Как сделать если происходит ошибка не быдавалось сообщение Asynchronous socket error??? В процедуре SocketError всё точно правильно. Когда происходит ошибка выдается моё сообщение плюс Asynchronous socket error, как его убрать?

---

← →
Yanis ©   (2007-03-23 09:44) [1]

код ошибки какой???

---

← →
GeLLeR ©   (2007-03-23 09:54) [2]

да любой допустим 10049

---

← →
GeLLeR ©   (2007-03-23 09:55) [3]

procedure TMainForm.ClientSocket1Error(Sender: TObject;
 Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
 var ErrorCode: Integer);
begin
 case ErrorCode of
   10065: MessageBox(Handle, "Превышен интервал ожидания",
                           "Не удалось установить подключение", MB_ICONERROR);
   10049: MessageBox(Handle, "Неверный IP-адрес",
                           "Не удалось установить подключение", MB_ICONERROR);
 end;
end;

---

← →
hero ©   (2007-03-23 09:59) [4]

если я правильно понял то
errorcode:=0
Showmessage("message")

---

← →
GeLLeR ©   (2007-03-23 10:10) [5]

Ага всё спасибо большое

---

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

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



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