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

@AlekNomanOnim · Регистрация: 20.07.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Писал чат на сокетах. Есть приложение Сервер и приложение Клиент. Клиент работает, естественно, только тогда, когда работает Сервер, иначе выбивает ошибку "Asynchronous socket error 10061".
Внимание вопрос: Как сделать так, чтобы: Когда возникает такая ошибка, т.е сервер на моем компьютере не запущен, приложение само переходило в режим сервера.
Пытался искать обработчики ошибок, нашел конструкцию try except, однако, как оформить код именно в случае вышеназванной ошибки?
Заранее благодарю.

@mss · 24.08.2012, 21:09

try
.. приложение пытается "естественно работать" в качестве клиента ..
except
.. приложение пытается "естественно работать" в качестве сервера ..
end

Добавлено через 2 минуты

Сообщение от AlekNomanOnim

выбивает ошибку

Выбивают чечетку.
А ошибка обнаруживается по таким-то конкретно визуально наблюдаемым признакам.

@саша40 · 25.08.2012, 19:51

обработчик вашей не работы сервера:

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;

Попробуйте.

@Arkaniy · 30.08.2012, 03:26

У клиента событие OnError

Pascal

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;

@AlekNomanOnim 0 / 0 / 1 Регистрация: 20.07.2012 Сообщений: 10
		1
	Обработка ошибки в Клиент - Серверном приложении 24.08.2012, 21:01. Показов 2195. Ответов 3 Метки нет (Все метки) Доброго времени суток. Писал чат на сокетах. Есть приложение Сервер и приложение Клиент. Клиент работает, естественно, только тогда, когда работает Сервер, иначе выбивает ошибку "Asynchronous socket error 10061". Внимание вопрос: Как сделать так, чтобы: Когда возникает такая ошибка, т.е сервер на моем компьютере не запущен, приложение само переходило в режим сервера. Пытался искать обработчики ошибок, нашел конструкцию try except, однако, как оформить код именно в случае вышеназванной ошибки? Заранее благодарю. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	24.08.2012, 21:09	2
	try .. приложение пытается "естественно работать" в качестве клиента .. except .. приложение пытается "естественно работать" в качестве сервера .. end Добавлено через 2 минуты Сообщение от AlekNomanOnim выбивает ошибку Выбивают чечетку. А ошибка обнаруживается по таким-то конкретно визуально наблюдаемым признакам. 0

	30.08.2012, 03:26