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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.08.2009, 23:24   #1
pro100-delphi
Пользователь
 
Аватар для pro100-delphi
 
Регистрация: 19.08.2009
Сообщений: 99
Вопрос Вопрос по компоненты Client/ServerSOCKET

У меня вопрос такой, вот к примеру я могу написать сервер который отправляет сообщения и принимает их и клиент который отправляет сообщения и принимает их. Как сделать так, что бы когда мне на сервер приходило сообщение, оно рассылалось всем пользователям. Приведите пример в виде кода. Заранее спсибо
pro100-delphi вне форума Ответить с цитированием
Старый 28.08.2009, 23:46   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);
var s:string;
    i:integer;
begin
 s:=Socket.ReceiveText;
 for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do ServerSocket1.Socket.Connections.SendText(s);
end;
чтото типа такого
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 29.08.2009, 00:05   #3
pro100-delphi
Пользователь
 
Аватар для pro100-delphi
 
Регистрация: 19.08.2009
Сообщений: 99
По умолчанию

спасиб. Только тогда надо было обработчик событие не CllientRead а клиент ClientWrite
pro100-delphi вне форума Ответить с цитированием
Старый 29.08.2009, 00:10   #4
pro100-delphi
Пользователь
 
Аватар для pro100-delphi
 
Регистрация: 19.08.2009
Сообщений: 99
По умолчанию

И ещё один вопрос. А зачем Socket.ActiveConnections-1, а не Socket.ActiveConnections??????????? ????? можете объяснить почему убераем 1 соединение?
pro100-delphi вне форума Ответить с цитированием
Старый 29.08.2009, 00:30   #5
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

ну нумерация же с нуля...как со стринглистом в общем.

Цитата:
Только тогда надо было обработчик событие не CllientRead а клиент ClientWrite
может у меня и в справке ошибка...но там написанно что событие возникает когда сервер должен читать от клиента

и кстати все верно...событие возникает тогда когда серверу посылают сообщение
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Последний раз редактировалось Пепел Феникса; 29.08.2009 в 00:33.
Пепел Феникса вне форума Ответить с цитированием
Старый 29.08.2009, 11:22   #6
pro100-delphi
Пользователь
 
Аватар для pro100-delphi
 
Регистрация: 19.08.2009
Сообщений: 99
По умолчанию

Цитата:
может у меня и в справке ошибка...но там написанно что событие возникает когда сервер должен читать от клиента
CllientRead = клиент читает, разве нет так? CllientRead = сервер читает, с чего ты взял это? Я запутался... А чё у тя там за справка? Не знаю чё делать, но очень хочу написать МНОГОПОЛЬЗОВАТЕЛЬСКИЙ ЧАТ
pro100-delphi вне форума Ответить с цитированием
Старый 29.08.2009, 13:03   #7
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

справка Дельфийская:
Цитата:
TCustomServerSocket.OnClientRead
Occurs when the server socket should read information from a client socket.

property OnClientRead: TSocketNotifyEvent;
Цитата:
TCustomServerSocket.OnClientWrite
Occurs when the server socket should write information to a client socket.

property OnClientWrite: TSocketNotifyEvent;
+я помню что когда HTTP сервер делал юзал именно это событие.

Цитата:
CllientRead = клиент читает
скорее (для сервера) что он(сервер) читает из клиентского сокета

кстати ведь сервер то не знает когда клиент(удаленный который)читает(если он не уведомляет)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 29.08.2009, 21:26   #8
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

всем доброе время суток..кто нибудь дайте мне ссылку или скиньте файл где подробно описаны компоненты Client/ServerSOCKET...прям с нуля и от а до я....очень надо.спасибо заранее
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 29.08.2009, 21:42   #9
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

всмысле описанны?
сорцы в Дельфи есть...описание в хелпе.
если какие то таблы то пиши поможем
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 30.08.2009, 00:28   #10
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

хэлпом я не умею пользоваться(((точнее я там не понимаю....мне надо чтоб конкретно обяснялось(((я же новичок..у меня есть книги про дельфи и там описаны разные компоненты...но о сетевых ни слова...может есть у кого и такие книги?????
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ServerSocket загрузка процессора daxter Работа с сетью в Delphi 1 26.08.2009 15:25
Вопрос по ServerSocket. maks448 Работа с сетью в Delphi 3 29.04.2009 08:56
Serversocket,clientsocket prizrak1390 Работа с сетью в Delphi 10 21.04.2009 16:04
Люди Подскажите пожалуйста где в инете можно достать компоненты ServerSocket и ClientSocket Reds Компоненты Delphi 6 21.04.2009 15:11
Вопрос про ServerSocket и ClientSocket civic.qip Работа с сетью в Delphi 8 27.09.2008 02:04