Текущий архив: 2007.04.15;
Скачать: 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 вся ветка
Текущий архив: 2007.04.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.064 c
