VPF::Послать сообщение всем клиентам.

_Rin

Дата 13.9.2006, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 12.9.2006

Репутация: нет
Всего: нет

Пишу чат на Indy.

Клиенты посылают сообщения серверу.
Сервер выводит их у себя в Memo-поле с указанием от кого пришло.

Как серверу переслать сообщение, пришедшее от одного клиента, всем другим клиентам, чтобы они
тоже могли вывести его у себя на форме.

Помогите плизз!!!
http://forum.vingrad.ru/html/emoticons/qstn.gif
smile

Snowy

Дата 13.9.2006, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Посмотри темы внизу страницы.

_Rin

Дата 13.9.2006, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 12.9.2006

Репутация: нет
Всего: нет

Смотрела. Но все равно не понимаю.
Столкнулась с Indy первый раз.

Есть обработчик TCPServerExecute(AThread: TIdPeerThread);
Сервер получает сообщение от одного клиента, выводит его в Memo, а затем шлет ответ этому клиенту
о том, что все принял правильно.

Как сделать так, что бы это сообщение могли получить и другие клиенты, подсоединеные в данный момент к серверу (я знаю их IP и порты).

http://forum.vingrad.ru/html/emoticons/stena.gif
smile

Alexeis

Дата 13.9.2006, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 2
Всего: 459

_Rin, Пробовала использовать адрес типа 192.168.0.255
такие сообщения обычно идут всем клиентам диапазона
192.168.0.0 - 192.168.0.254

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Snowy

Дата 13.9.2006, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

У TIdTCPServer есть свойство Bindings - это и есть массив подключенных клиентов.
Выбирай нужного и шли что хочешь.

_Rin

Дата 13.9.2006, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 12.9.2006

Репутация: нет
Всего: нет

Спасибо за помощь, я нашла подходящий пример и во всем разобралась.
Но возникла новая проблема.

Пытаюсь подключится к серверу, и периодически возникает ошибка Connection Closed Gracefully.
(именно периодически, клиент может подсоединится и нормально, без ошибок).
В чем может быть причина, и как её устранить.

Код клиента:

Код


procedure TClientForm.Connect_to_Server();
begin
 try
  StatusBar1.Panels.Items[0].Text:='Есть соединение';
  MainMenu1.Items[0].Enabled:=false;
  TCPClient.Connect();

 except
  on E: Exception do
  begin
   MessageDlg(#13+E.Message,mtConfirmation,[mbOk],0);
   Memo2.Lines.Add(E.Message);

   if TCPClient.Connected=false then
   begin
    StatusBar1.Panels.Items[0].Text:='Нет соединения';
    Login.Enabled:=true;
    Password.Enabled:=true;
    SendButton.Enabled:=false;
    MainMenu1.Items[0].Enabled:=true;
   end;
  end;
 end
end;

Это сообщение отредактировал(а) Snowy - 13.9.2006, 15:01

Snowy

Дата 13.9.2006, 15:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Модератор: Пожалуйста, используйте кнопку "Код" для выделения кода
А то я уже устал править за Вами все сообщения.

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

_Rin

Дата 13.9.2006, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 12.9.2006

Репутация: нет
Всего: нет

Ладушки: буду использовать Кнопку "Код".

На счет сервера:
- сервер работает (свойство Active - устанавливаю в true)
- сообщение может выскочить, даже если подключается первый клиент (то есть никаких других подключений у сервера нет).
- ограничений на количество подоключений тоже нет.

Не знаю, в чем дело.

Snowy

Дата 13.9.2006, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(_Rin @ 13.9.2006, 15:13

)

Не знаю, в чем дело.

Аналогично.
Может у сервера плохое настроение, голова болит...
Ну не хочет он принимать подключение.
Можно попробовать делать 3 попытки подключения вместо одной.
А так - гадание на кофейной гуще. Здесь всё совсем не очевидно.
Самая сложная в отлове ошибка - нестабильная. Может выскочить, а может и нет...

_Rin

Дата 13.9.2006, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 12.9.2006

Репутация: нет
Всего: нет

Все заработало.
Ошибка была на строне сервера.

Выделение памяти надо было делать не GetMem/Free, а New/Dispose.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »