Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
AlekNomanOnim
0 / 0 / 1
Регистрация: 20.07.2012
Сообщений: 10
1

Обработка ошибки в Клиент - Серверном приложении

24.08.2012, 21:01. Просмотров 685. Ответов 3
Метки нет (Все метки)

Доброго времени суток.
Писал чат на сокетах. Есть приложение Сервер и приложение Клиент. Клиент работает, естественно, только тогда, когда работает Сервер, иначе выбивает ошибку "Asynchronous socket error 10061".
Внимание вопрос: Как сделать так, чтобы: Когда возникает такая ошибка, т.е сервер на моем компьютере не запущен, приложение само переходило в режим сервера.
Пытался искать обработчики ошибок, нашел конструкцию try except, однако, как оформить код именно в случае вышеназванной ошибки?
Заранее благодарю.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.08.2012, 21:01
Ответы с готовыми решениями:

Обмен сообщениями в клиент-серверном приложении.
Ситуация: Пишу на Delphi 7. БД на MS SQL 2000. В случае, если у одного из...

Как отследить ошибки в запущеном внешнем приложении?
Использую ShellExecute для запуска архиватора, ошибки пролетают совершенно...

обработка ошибки
Добрый день! Подскажите, пожалуйста, алгоритм, как сделать, чтобы в базу...

Поиск по БД/Обработка ошибки добавления, редактирования
Приветствую. Есть 2 вопроса. 1. Есть БД в эксесе, подключился через АДО,...

Обработка картинки в консольном приложении
Всем привет, сделал объектную программу (есть форма, кнопки, и т.д.) для...

3
mss
2632 / 2257 / 275
Регистрация: 24.12.2010
Сообщений: 13,725
24.08.2012, 21:09 2
try
.. приложение пытается "естественно работать" в качестве клиента ..
except
.. приложение пытается "естественно работать" в качестве сервера ..
end

Добавлено через 2 минуты
Цитата Сообщение от AlekNomanOnim Посмотреть сообщение
выбивает ошибку
Выбивают чечетку.
А ошибка обнаруживается по таким-то конкретно визуально наблюдаемым признакам.
0
саша40
-46 / 291 / 47
Регистрация: 14.08.2012
Сообщений: 2,565
25.08.2012, 19:51 3
обработчик вашей не работы сервера:
Delphi
1
2
if ServerSoccet1.Active=false then
ShowMessage('Сервер не включен');
Вы при открытие формы активируйте сервер и клиент:
Для сервера:
Delphi
1
2
3
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSoccet1.Active:=true;
Клиент:
Delphi
1
2
3
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSoccet1.Actieve:=true;
Попробуйте.
0
Arkaniy
106 / 106 / 21
Регистрация: 29.08.2012
Сообщений: 453
30.08.2012, 03:26 4
У клиента событие OnError

Pascal
1
2
3
4
5
6
7
8
9
10
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
if error code = 10061 then
 begin
  ServerSocket1.Active := true;
  errorcode := 0;
 end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.08.2012, 03:26

Убрать ошибки в консольном приложении
{$APPTYPE CONSOLE} uses SysUtils; type TTable = object public ...

Обработка изображения в клиент-серверном приложении
Приветствую! Ребят, подскажите, почему в клиент-серверном приложении не удается...

Передача файла в клиент-серверном приложении - исправить ошибки в коде
Вот ссылка откуда я копипастил код,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru