Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2010, 11:32   #1
MyIE
Форумчанин
 
Аватар для MyIE
 
Регистрация: 02.01.2010
Сообщений: 127
По умолчанию SocketClient - Убрать оишбку, при выкл. сервере

Есть клиент(SocketClient) и сервер(SocketServer)
Все работает
Просто, мне необходимо перехватить оишбку, возникающую при отключенном сервере. Когда клиент пытается присоединиться, а сервер выкл.
Выполняется подключение
Код:
CS1: TClientSocket;
...
CS1.host:= '127.0.0.1';
try
CS1.Active:= true;
except;
end;
Вот если сервер выключен, тог возникает ошибка подключения по порту.
Вопрос: как перехватить эту ошибку, остановить ее выполнения и вместо нее произвести свои действия?
0_o
MyIE вне форума Ответить с цитированием
Старый 17.03.2010, 16:20   #2
ImmortalAlexSan
Участник клуба
 
Аватар для ImmortalAlexSan
 
Регистрация: 13.01.2009
Сообщений: 1,353
По умолчанию

Все очень просто)
Код:
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
If ErrorCode=10061 then
Showmessage('Неудалось подключиться');
end;

end.
10061 или 10060 или 10054 код этой ошибки. Не помню точно! Дерзайте!
Ну или можно ещё добавить
Код:
Socket.Close;
"Тебе то может на меня и насрать, но твои глаза меня обожают!"
ImmortalAlexSan вне форума Ответить с цитированием
Старый 17.03.2010, 19:28   #3
MyIE
Форумчанин
 
Аватар для MyIE
 
Регистрация: 02.01.2010
Сообщений: 127
По умолчанию

Попробовал ваш вариант, такая же ошибка вылазит.
Изображения
Тип файла: png error_screen.png (15.5 Кб, 72 просмотров)
Вложения
Тип файла: rar socket.rar (173.4 Кб, 6 просмотров)
0_o
MyIE вне форума Ответить с цитированием
Старый 17.03.2010, 19:38   #4
bill_gates
Ненависник Windows
Пользователь
 
Аватар для bill_gates
 
Регистрация: 04.07.2009
Сообщений: 82
По умолчанию

ImmortalAlexSan забыл самое главное:

Код:
...
begin
If ErrorCode=10061 then begin
ErrorCode:=0;
Showmessage('Неудалось подключиться');
end;
end;
...
if Вопрос.Возник then begin if Google.Поиск=false then begin СоздатьТопик; end; end;

if ДругойЮзер.Помог then begin НажатьНаВесы end;
bill_gates вне форума Ответить с цитированием
Старый 17.03.2010, 20:39   #5
ImmortalAlexSan
Участник клуба
 
Аватар для ImmortalAlexSan
 
Регистрация: 13.01.2009
Сообщений: 1,353
По умолчанию

bill_gates, да точно, а я думаю сижу... что-то недописал. Без вашей поправки ошибка так и будет лететь! Хорошо, что подправили!
"Тебе то может на меня и насрать, но твои глаза меня обожают!"
ImmortalAlexSan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Убрать рамку при рисовании в MS WORD badfilin Microsoft Office Word 2 08.01.2010 12:41
TWebBrowser - убрать Border при режиме редактирования RIO Общие вопросы Delphi 0 05.01.2010 00:53
помогите исправить оишбку, с# Айат Помощь студентам 1 21.12.2009 23:52
Проблема с обработкой исключений в Delphi при компиляции программы на сервере ivladak Общие вопросы Delphi 14 15.08.2009 20:58
ПРИ ЗАГРУЗКЕ ВИНДЫ ДАЕТ ВЫБОР ИЗ 3, КАК УБРАТЬ 2? iukash Windows 3 01.05.2009 14:04