Пример обратного вызова Delphi XE2 datasnap - PullRequest
6 голосов
/ 05 января 2012

Я пытаюсь создать небольшой пример того, как обмениваться объектами с помощью обратных вызовов, но у меня возникают некоторые проблемы.

  1. Когда сервер создает и передает объекты, некоторые клиентские соединения обратного вызовазакрывается случайным образом со временем (иногда после того, как сервер отправил около 100 000 объектов, иногда после 100 и даже меньше).
  2. Когда клиент вызывает метод сервера для широковещательной рассылки объекта, случается так, что соединение клиента с серверомзакрыто.Все это мешает мне преобразовать мой текущий проект в настоящий клиент-серверный.Вот мой источник, включая исполняемые файлы как для сервера, так и для клиента: DataSnapExample.rar

PS Я попробовал демо Mat DeLong's Monitoring, я поставил ttimerв основной форме сервера, которая вызывает событие меню широковещательных сообщений, и результат был таким же - после отправки сообщений некоторое время некоторые клиенты отключаются.Боюсь, это происходит из-за ошибки клиент-сервер в Delphi XE2 Datasnap.Вот демонстрация: DataSnap XE2 - Пример компонента Unified Monitoring Connection

Может кто-нибудь сказать мне, если это моя ошибка или нет?Спасибо ...

...