(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

DataSnap XE добавление 1

Vsevolod Leonov

Один уважаемый человек проработал учебный пример по обратным вызовам (callbacks) и инициировал его модификацию на тему "чистый callback со стороны сервера".

Любителям сразу получить по-полной рекомендуется загрузить нафаршированный фичами пример с центрального хранилища. Загружать его надо непосредственно из Delphi IDE способом, описанном в упомянутом выше уроке.

Но мне, как бывшему (?) Delphi-тренеру более по душе поэтапное знакомство, когда ты не копипастишь чужие наработки, а именно символ за символом вбиваешь код в среду (и мозг). Поэтому давайте по-тихому (кто еще не сделал) всё-таки выполним пример на обратные вызовы и также медленно научим сервер самостоятельно вещать в полностью асинхронном режиме (для чего как раз и нужны heavy-weight callbacks).

Постановка задача (не моя): таймер на сервере, который оповещает клиентов вызовом клиентского метода (что и есть callback).

В раннем DataSnap что-то как-то было сложно с тем, чтобы нагрузить серверное приложение интерфейсными элементами. Сейчас с этим просто: добавляем на серверную форму компонент TButton и запланированный TTimer. Кнопка - чтобы запустить таймер с вполне тривиальным кодом:

Timer1.Enabled := not Timer1.Enabled; // в design-time таймер Enabled = fasle

На событие таймера напишем тоже что-нибудь простое, но ёмкое:

ServerContainer1.DSServer1.BroadcastMessage(
"DelphiLabsChannel",   // название канала, куда будет вещание
TJSONString.Create("This is a message, triggered by timer") // посылаем в формате JSON
)

Тогда при запущенном сервере и клиенте (именно в такой последовательности) нажатие на кнопку пустит таймер, таймер через умолчательную секунду сделает broadcast по клиентам, подключенным к указанному каналу (первый параметр).

Где на клиенте поискать название канала?

 

где искать ChannelName (имя канала)

Выбираем компонент (уже выбранный на рисунке) и ищем в инспекторе объектов.

А как сообщить серверу, "в какой" канал нужно вещать? Можно, конечно, вызвать специально созданный метод на сервере, заставив сервер запомнить данное имя. Если вы будете запоминать название канала в каком-нибудь поле класса серверных методов, то помните, что LifeCycle объектов бывает разный (материал урока о жизненных циклах).

Но забудем о жизненных циклах и не будем вообще думать о сообщении серверу название канала. Подумаем о том, что, вероятно, целесообразно изначально спроектировать систему обмена сообщениями между клиентами и сервером на базе системы каналов вещания. Что-нибудь лёгкое типа:

  1. Канал оповещения о блокировках
  2. Канал оповещения о критической загрузки сервера
  3. Канал сообщений о принудительных обновлениях
  4. Канал сообщений о желательных обновлениях
  5. Чат-канал

… в таком случае названия каналов уже жёстко прошиты и ничего сообщать не надо. Вообще, приятно, что в новой DataSnap XE все хранится в строках: ChannelName, CallbackName, ClientName.

(прошу прощение за излишнюю подробность - инстинкт тренера :))



 Распечатать »
 Правила публикации »
  Обсудить материал в конференции Embarcadero »
Написать редактору 
 Рекомендовать » Дата публикации: 13.05.2011 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Delphi Professional Named User
Enterprise Connectors (1 Year term)
Pinnacle Studio 21 Plus. Электронный ключ.
SAP CRYSTAL Server 2013 WIN INTL 5 CAL License
Allround Automation PL/SQL Developer - 5 user license
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
Новые материалы
Corel DRAW - от идеи до реализации
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Разработка программ базы данных (63)
Написание прикладных компьютерных программ (базы данных) на заказ. Разработка корпоративных...
 
Кухня (4)
Хочу сделать ремонт на кухне. Где приобрести кухонную плиту? Какой фирмы стоит её рассматривать?
 
Как в IBM Rational DOORS сделать заголовки не жирным шрифтом? (2)
Измучился уже, когда идет иерархия уровнем ниже, чем Х.Х., мне нужно, чтобы заголовки не...
 
Ищу программиста для написания программы (62)
Ищу программиста ,владеющего Вижуал Бэйсик и программированием в Экселе, для написания...
 
Отличается ли ДрифтКазино от беттинга? (18)
Друзья, давно заметил, что на Дрифте уже несколько месяцев во всю рекламируется и предлагается...
 
 
 



    
rambler's top100 Rambler's Top100