[Seattle] Создание функции обратного вызова при помощи TDSRestClientCallback

[FIL]

Всем привет!

Решил тут немного поближе познакомиться с технологией DataSnap.

Добрался до функций обратного вызова.

Нашел хороший пример на данную тему: CallbackChannels

После некоторых доработок проект скомпилировался на Delphi 10 Seattle.

Клиент на базе TSQLConnection заработал как и ожидалось, а вот с клиентом на базе TDSRestConnection возникли проблемы:

Ф-ция обратного вызова регистрируется на сервере и сервер тут же закрывает канал

(при этом в обработчике события OnChannelStateChange параметр EventItem.EventType = rChannelClosedByServer).

Соответственно дальше ничего не работает. При этом на сервере в момент регистрации отображается создаваемый канал и какой-то фантомный (см. рис.).

Долго и безуспешно пытался понять в чем проблема и в итоге решил скомпилировать клиента (RESTClientChannels) на ХЕ8.

И... о чудо! - он заработал.

 

Соответственно вопрос: что разработчики сделали такого с TDSRestConnection и иже с ним в Seattle, что ф-ции обратного вызова перестали работать и как это исправить?

[FIL]

Вопрос актуален...

[FIL]

Выяснил что если из ХЕ8 взять файлы:

  Datasnap.DSClientRest.pas

  Datasnap.DSHTTPClient.pas

  Datasnap.DSProxyRest.pas

  Datasnap.DSClientMetadata.pas

, то клиет работает корректно.

 

Но найти в них косяк весьма проблемотично, т.к. изменения в Seattle относительно ХЕ8 слишком кардинальные.

А разработчикам, похоже, это не особо интересно.