Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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



Ответ
 
Опции темы
Старый 06.02.2012, 09:51   #1
ZuBy
Профессионал
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Адрес: Казахстан, Астана
Сообщений: 1,231
Репутация: 379
По умолчанию Обмен сообщениями

Привет Всем!

Сделать клиент-серверное приложение.
Суть: каждый клиент который запустил приложение должен отправить на сервер "сигнал", что он работает.
клиентов от 5-20, через интернет все работать должно

Подскажите в каком направлении двигаться? Какие компоненты использовать? Если есть то можно не большой пример
__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Старый 06.02.2012, 11:03   #2
Человек_Борща
Модератор
Заслуженный модератор
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Адрес: Республика Беларусь, г. Минск
Сообщений: 11,357
Репутация: 2633

skype: arhangelsoft
По умолчанию

TServerSocker, TClientSocket или hardcore'ый WinSock..
Человек_Борща вне форума   Ответить с цитированием
Старый 06.02.2012, 11:04   #3
ZuBy
Профессионал
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Адрес: Казахстан, Астана
Сообщений: 1,231
Репутация: 379
По умолчанию

я с ними раньше не работал, примера маленько нет случайно?
__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Старый 06.02.2012, 11:23   #4
Человек_Борща
Модератор
Заслуженный модератор
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Адрес: Республика Беларусь, г. Минск
Сообщений: 11,357
Репутация: 2633

skype: arhangelsoft
По умолчанию

Program Files\Delphi7\Demos\Internet

А вообще каждый клиент посылает SendBuff или SendText, а сервер обрабатывает OnRecive вроде как-то так.
Человек_Борща вне форума   Ответить с цитированием
Старый 06.02.2012, 12:35   #5
ZuBy
Профессионал
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Адрес: Казахстан, Астана
Сообщений: 1,231
Репутация: 379
По умолчанию

вот невезение, у установленных делфи нет demo-проектов.
можете скинуть? спасибо зарание
__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Старый 06.02.2012, 13:18   #6
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк, Украина
Сообщений: 15,599
Репутация: 5692
По умолчанию

Ловите zip
Вложения
Тип файла: zip Internet.zip (134.9 Кб, 26 просмотров)
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Старый 06.02.2012, 13:51   #7
ZuBy
Профессионал
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Адрес: Казахстан, Астана
Сообщений: 1,231
Репутация: 379
По умолчанию

Аватар, спасибо!
__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Старый 06.02.2012, 15:50   #8
ZuBy
Профессионал
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Адрес: Казахстан, Астана
Сообщений: 1,231
Репутация: 379
По умолчанию

у меня вот проблема или не понимание как это работает...
мне надо чтобы сервер одно приложение было,а клиент другое.
как их связать?
и какой ip писать в
Код:

 TcpClient1.RemoteHost := ?

, сервера же?
__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Старый 08.02.2012, 10:35   #9
Aliens_wolfs
Участник клуба
 
Регистрация: 16.12.2009
Адрес: Санкт-Петербург
Сообщений: 597
Репутация: 258
По умолчанию

Вот накидал сетевую программу для обмена сообщениями. Принцип такой клиент подключается к серверу, сервер проверяет пароль по алгоритму MD5 в файле пользователей, если находит, то выделяет клиенту порт и вносит его в свой список в котором видно кто подключен на сервере, в этом же файле выдается ID клиенту т.е. номер для него вот по этим номерам клиет может писать сообщение другим клиентам, думаю что можно более 1000 клиентов запустить и они независимо друг от друга будут общатся. Все реализованно много поточностью на WinSock, протокол обмена между сервером и клиентом свой. Поизучайте может что для себя сделаете. Одна папка для клиентов их ставишь на комп клиентов, а другая сервер через которое все проходит. В клиенте где хост прописываешь адрес сервера и порт по умолчанию 8080 пример 127.0.0.1:8080 когда сервер зарегистрирует в caption появится номер и выделяется порт для каждого клиента, это ваш номер по которому вам можно прислать сообщение. Чтобы послать сообщение вы должны знать номер клиента введя его в клиенте и написав сообщение отправляете и нужный клиент получт что написали. Программа на быструю руку написана но рабочая http://zalil.ru/32664950 Клиенты прописываюся в серверной программе в папке config\user.ini тамже и номер прописывается и пароль. Можно реализовать так: что сервер будет выдавать каждому клиенту список номеров и имен кто находится в online но это на стадии разработки

Последний раз редактировалось Aliens_wolfs; 08.02.2012 в 11:28.
Aliens_wolfs вне форума   Ответить с цитированием
Старый 08.02.2012, 11:20   #10
ZuBy
Профессионал
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Адрес: Казахстан, Астана
Сообщений: 1,231
Репутация: 379
По умолчанию

она по интернету же работает? я просто щас не могу проверить, второго компа нет.
__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
tcpserver и много client'ов обмен сообщениями Небесный Работа с сетью в Delphi 8 13.12.2011 17:30
обмен сообщениями между сервером и клиентом Don Karleone Работа с сетью в Delphi 3 25.02.2011 16:24
Обмен сообщениями(миничат) через IdTcpClient и idTcpServer =LeonZone= Работа с сетью в Delphi 3 07.08.2010 13:01
Обмен сообщениями без IP адреса Иллидан Работа с сетью в Delphi 9 29.02.2008 21:48
Обмен сообщениями между IdTcpClient и idTcpServer Teen4jump Работа с сетью в Delphi 3 05.09.2007 09:25




13:30.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru